VBA常用技巧代码解析

yuanzhuping · 发表于 2009-4-13 19:01

技巧120 使微调框最小变动量小于1
在用微调框调节数值时，默认的变动量只能设置成整数。为了使微调框的变动量小于1，如每次的变动量为0.01，需要在代码中做必要的设置，如下面的代码所示。

#001 Private Sub UserForm_Initialize()
#002 With Me.SpinButton1
#003 .Max = 10000
#004 .Min = -10000
#005 .SmallChange = 1
#006 .Value = 0
#007 Me.TextBox1 = Format(.Value, "0.00")
#008 End With
#009 End Sub
#010 Private Sub SpinButton1_Change()
#011 Me.TextBox1 = Format(Me.SpinButton1 * 0.01, "0.00")
#012 End Sub

复制代码

代码解析：
   使用微调框调节文本框的数值，每次的变动量为0.01。
   第1行代码到第9行代码，窗体的初始化事件，在窗体显示时对微调框控件进行必要的设置。
   第3、4行代码，设置微调框控件的Max、Min 属性。Max、Min 属性规定滚动条或数值调节钮的 Value 属性可接收的最大值和最小值，语法如下：
object.Max [= Long]
object.Min [= Long]
   参数object是必需的，一个有效的对象。
   参数Long是可选的，指定Value属性的最大设置值或最小设置值。
   第5行代码，设置微调框控件的SmallChange属性为1。SmallChange属性设定当用户单击滚动条或数值调节钮中的滚动箭头时发生的变动量，语法如下：
object.SmallChange [= Long]
   参数object是必需的，一个有效的对象。
   参数Long是可选的，设定Value属性的变动量。
   SmallChange属性只能设置为整数。
   第6行代码，设置窗体显示时微调框控件的Value属性为0。
   第7行代码，使用Format函数将将文本框的初始值格式化为“0.00”。关于Format函数请参阅技巧102 。
   第11行代码，微调框控件的Change事件，在微调框控件的Value属性发生变动时，将变动量乘0.01后赋给文本框，使文本框的变动量每次为0.01。
窗体运行后效果如图所示。

[ 本帖最后由 yuanzhuping 于 2009-4-13 19:02 编辑 ]

yuanzhuping · 发表于 2009-4-13 19:28

技巧121 不打印工作表中的控件
在打印工作表时，如果工作表中有控件，会把控件也一起打印出来，从而影响打印出来的工作表的美观。经过简单的设置能使工作表中的控件不被打印出来。
121-1 设置控件格式
如果工作表中的是窗体控件，设置时右键单击控件，在显示的右键快捷菜单中选择“设置控件格式”，在“设置控件格式”选项卡中选择“属性”页面，使“打印对象”前的复选框为空白状态，如图所示。

如果工作表中的控件是ActiveX控件，那么需要在设计模式下右键单击控件，在显示的右键快捷菜单中选择“设置控件格式”，在“设置控件格式”选项卡中选择“属性”页面，使“打印对象”前的复选框为空白状态，如图所示。

121-2 设置控件的printobjcet属性
如果工作表中的控件是ActiveX控件，使用除了使用技巧121-1的方法外，还可以在设计模式下右键单击控件，选择“属性”，设置控件的printobjcet属性为False。如图所示。

yangdianmei · 发表于 2009-4-13 19:51

真是良师益友!
相信我在老师的带领下,一定会在VBA中取得良好的成绩.

xljzhzhf · 发表于 2009-4-13 20:33

我天天来看，我工作之余的唯一选择！
呵呵……
学习中很艰苦，很吃力！

xljzhzhf · 发表于 2009-4-13 20:42

袁老师一定要注意休息，劳逸结合！
拿出最好的讲解！！
为你喝彩，为你祝福！

mfkrigss · 发表于 2009-4-13 20:45

好贴啊,好贴,一定要认真学习

yao200611 · 发表于 2009-4-13 21:23

我们的努力学习就是对楼主最好的感谢,衷心感谢楼主的大公无私的奉献

liechun1983 · 发表于 2009-4-13 21:53

期待全版@@

Chris-X · 发表于 2009-4-14 10:30

为什么我的选出来的是 A1 to F6

唱歌的蚂蚁 · 发表于 2009-4-14 10:51

注：n列数据行不确定，现需从两个窗体的组合框中分别选定的将值赋予添加a数据、添加b数据。请问vba语句怎么写？

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

VBA常用技巧代码解析

第8部分控件与用户窗体

第8部分控件与用户窗体

怎样依据n列数据（不确定行数）从某窗口的组合框中获取数据填充m列和o列

VBA常用技巧代码解析

第8部分 控件与用户窗体

第8部分 控件与用户窗体

怎样依据n列数据（不确定行数）从某窗口的组合框中获取数据填充m列和o列

第8部分控件与用户窗体

第8部分控件与用户窗体