VBA常用技巧代码解析

gaozengxun · 发表于 2021-3-24 21:49

这个东西太好，可以当字典查询，谢谢楼主辛苦了。

zy_xkd · 发表于 2021-3-26 15:34

感谢楼主无私奉献

zy_xkd · 发表于 2021-3-26 16:20

先马后看，感谢分享

jyzas · 发表于 2021-3-27 09:37

谢谢楼主分享

xiatianaa · 发表于 2021-3-27 23:10

非常感谢提供这么好的资源！！！

示例文件.part01.rar 两个链接都无法下载了，能再发一个吗？

charki · 发表于 2021-3-30 23:37

谢谢，纯干货分享。。。

刘无为 · 发表于 2021-4-2 16:55

历害，点赞

讲古派 · 发表于 2021-4-21 22:43

Sub 打印()
If ActiveSheet.Name = "表2" Then '当活动工作表名为<表2>时
      Application.ActivePrinter = "打印机1的名称" '活动打印机设置为打印机1
      ActiveWindow.SelectedSheets.PrintOut '打印
Else
      Application.ActivePrinter = "打印机2的名称" '活动打印机设置为打印机2
      ActiveWindow.SelectedSheets.PrintOut '打印
End If
End Sub

Sub 打印机名称()
a = InputBox("请将下面打印机名称复制到代码中:", , Application.ActivePrinter)
End Sub

隔扣五人 · 发表于 2021-4-23 13:55

已下载电子书，菜鸟来报到

zhycu · 发表于 2021-4-24 13:45

好帖子赶紧学习

		自动登录	找回密码
密码			免费注册