VBA常用技巧代码解析

yuanzhuping

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

1. #001  Private Sub UserForm_Initialize()
   
2. #002      With Me.SpinButton1
   
3. #003          .Max = 10000
   
4. #004          .Min = -10000
   
5. #005          .SmallChange = 1
   
6. #006          .Value = 0
   
7. #007          Me.TextBox1 = Format(.Value, "0.00")
   
8. #008      End With
   
9. #009  End Sub
   
10. #010  Private Sub SpinButton1_Change()
    
11. #011      Me.TextBox1 = Format(Me.SpinButton1 * 0.01, "0.00")
    
12. #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

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

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

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

yangdianmei

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

xljzhzhf

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

xljzhzhf

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

mfkrigss

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

yao200611

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

liechun1983

期待全版@@

Chris-X

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

唱歌的蚂蚁

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