不懂VBA也编程

kuoma

1还是有些许的问题再次请教山菊花老师
Private Sub Workbook_Open()
Dim Sh As Worksheet
For Each Sh In Worksheets
Sh.EnableCalculation = False
Next
ActiveSheet.EnableCalculation = True
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.EnableCalculation = False
t = Timer
Sh.EnableCalculation = True
MsgBox Timer - t
End Sub

我把此代码改成这样子，为了测试每次切换工作sheet所花费的时间，一般约花5秒钟，里面公式很多。
如果我把某一格的公式托动，整张表也重新计算约也是5秒钟左右。
如果完全不加代码的话
切换工作sheet是不会重新计算，如果托动公式的话会引发计算，约也是5秒钟，
想以我想这5秒钟应该是7个sheet的总花费时间了？

2
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Sh.EnableCalculation = False
t = Timer
Sh.EnableCalculation = True
MsgBox Timer - t
End Sub

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

如果用这代码也是一样要开自动计算，就能达到高效一点的情况。
sheet切换约跑1.6秒
如果托动公式的话也约跑1.6秒，所以我想先前的代码高效一点，不知这结论，山老师怎看？

Workbook_Open()
……
End Sub

这一段代码只运行一次就行，以后可以删去的，可以节省启动时的一点时间。
不看广告，看疗效。能节省时间的办法就是好的。
——山菊花

ychh_wy

原帖由 山菊花 于 2008-11-20 09:58 发表
录入过程中，为了反复录入符号“√”，让不少人心烦。
解决的办法可以使用数据有效性，也可以使用VBA，方法很简单。

假如I列要输入“是否三好学生”，如果是，录入一个“√”，因为第1、2行为标题行，从第3行开始 ...

全部选择

回复在32楼
——山菊花

luweiwei9

重新按第二次更改后的代码试了一次，感觉效果还不是很明显
现在传上附件
希望老师能给予帮助
非常感谢
密码是1212
出库表、客户对账表.2.part1.rar (200 KB, 下载次数: 287)

2008-11-24 15:10 上传

点击文件名下载附件

出库表、客户对账表.2.part2.rar (126.04 KB, 下载次数: 199)

2008-11-24 15:10 上传

点击文件名下载附件

你把代码加错地方了(大概一目十行，把中间的一些话漏看了)。
请测试。
速度是Excel的瓶颈，影响它的因素很多，没有一个办法可完美解决。
——山菊花
出库表、客户对账表.2.zip (340.63 KB, 下载次数: 619)

2008-11-25 10:20 上传

点击文件名下载附件

山菊花

制作多级下拉菜单，数据有效性应该是最好的选择。
为了配合界面的整体效果，使用控件也是可行的，它的制作方法也很简单。


控件是放置于工作表或窗体上的一些图形对象，能起到较好的装饰作用，当然，显示数据和输入数据是控件的主要用途。
控件有两类，分别从“窗体”和“控件工具箱”中添加。
点击菜单“视图—工具栏”，分别打开“窗体”和“控件工具箱”，比较两类控件，真有点分不清谁是谁的感觉。
简言之，“窗体”控件功能单一，但占用资源较小，“控件工具箱”控件则与之相反。实际中，应根据需要选择使用。
两者的比较，可参考帖子：
羊和披着羊皮的狼—闲话控件与图形

言归正传，利用控件制作多级下拉菜单，步骤如下：

一、使用窗体控件制作下拉菜单
1、准备基本数据(“省市”、“市县”两表)               
               
2、规划三个单元格(S1:U1)，用于保存三个控件选择结果。               
   窗体控件(组合框、列表框)的返回值是一个数值，表示选取的项在列表中的序号。               
               
3、设置两个辅助列，根据选择的省份，生成对应的市名列表(T2:T22)。               
  另一个是根据选择的市名，生成对应的县名列表(U2:U27)。               
               
4、按 Ctrl+F3 打开定义名称对话框，将S、T、U三列数据分别定义为名称“省”、“市”、“县”。               
               
5、添加和设置窗体控件。               
               
        ①、从窗体工具栏中选择“组合框”和“列表框”，分别添加到工作表中。       
        ②、右键点击控件，选择菜单项“设置控件格式”。       
        ③、根据不同用途的控件，设置其“数据源区域”和“单元格链接”。


二、使用控件工具箱控件制作下拉菜单

前面的数据准备、辅助列制作、定义名称都与前面介绍的方法相同。
不同的是插入控件后，不是使用“设置控件格式”，而是使用“属性”框。
控件的“ListFillRange”属性用于设置“数据源区域”。
控件的“LinkedCell”属性用于设置“单元格链接”。
(详细见附件)

biaotiger1

每天都更新哪
如果不看 好多好东西就漏掉了

zjf19751120

管他三七二十一，山版的先收藏下来！肯定会给学VBA带来很多方便！

爱你酷酷

好文章，支持一下，慢慢研究

zhc19620430

VBA好难学，山版主多给我辈指教，让我们也能为大家做贡献呀！

jwanch

仔细学习中

马拉桑

感谢山老师!

收藏学习