不懂VBA也编程

987654321

大师！ 跟着学习了！

可爱76

因为Word的邮件合并功能打印工资金额时，出现许多小数点，与Excel表格中的金额不符，刚好看到老师的贴，我这样的菜鸟也照样做了一个，比Word的简单好用，金额也正确不用手工修改，谢谢您！！！

wyg6817

感谢坛里无私教授我们知识的所有版主、管理员和会员们，向你们致敬！

ayhzt

真是一个好的学习园地

wangtx218

老师，请再增加地内容，谢了！

xdh0815

我先学了用VBA在工作薄隐藏了许多的工作表后，在后面录入重算模式的代码，运行后提示“编译性错误：发现二义性的名称：workbook_sheet Deactivate"我把代码都录入下面，请山菊花大人教教我如何修改
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Sh.Visible = 2 '隐藏非活动状态的工作表
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Count = 1 And Target.Range("a1") = "返回目录" Then '如果点击的单元格内容为“返回目录”
Target.Offset(1).Activate
Sheets("目录").Visible = 1 '将目录工作表取消隐藏
Sheets("目录").Activate '激活目录工作表
End If
End Sub
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.EnableCalculation = False
Sh.EnableCalculation = True
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Sh.EnableCalculation = False
End Sub

xdh0815

山菊花大人，目录隐藏和重算功能我都要一起用的，因为我里面工作表多，公式多，计算时超慢，你说的两个VBA编码多太好，可用在一起，我这只菜鸟就不行了，请帮帮我。

JACKAL_SKY

好，一定要看看

xujingbo

老师您在线吗?想请教您关于隐藏的问题!我的邮箱444582369@QQ.COM

xujingbo

2、隐藏多余的工作表。
要隐藏多余的工作表，须做两项工作。
首先，在工程管理器中，右键单击模块名“ThisWorkbook”，选择“查看代码”，如下图：
图表中是:在VBAPROJECT(目录.XLS)下的THISWORKBOOK的查看代码中粘贴.
而我的目录查看代码打开后显示的是:"VBAPROJECT(BOOK1.XLS)"下一级的"MICROSOFT EXCEL 对象"中的下一级显示的ThisWorkbook,的查看代码中粘贴,填加后没有任何变化,为什么我的和您的不一样?