VBA常用技巧代码解析

sdzhojc

cyshun

学习学习！！

yuperic

楼主好强大啊 太崇拜你了

zhongjg1983

楼主强,辛苦了并期待全集,谢谢!

MOWENZHOU

今天终于赶上进度了
连续看下来又有了点进步的感觉啦，感谢版主！

牧羊女

收下了,好丰盛啊

yuanzhuping

技巧106         多个文本框数据相加
       在技巧102 中，我们在TextBox1、TextBox2中输入完数据后，利用文本框的Change事件使TextBox3显示其两者相乘的金额，但是如果窗体中有多个文本框，需要在每一个文本框的Change事件中写上相同的重复代码，因此使用类模块可以简化代码。
       在附件的窗体有七个文本框，其中六个用来输入数据，一个用来显示其他六个文本框相加后的合计数，首先打开VBE，插入一个类模块建立一个类，类模块的名字就是类的名字修改为“cmds”，在类模块中输入下面的代码：
Public WithEvents cmd As MSForms.TextBox
代码解析：
       使用Public语句声明变量cmd是用来响应由TextBox对象触发的事件的对象变量。
       在窗体的Initialize事件中写入下面的代码：

1. #001  Dim col As New Collection
   
2. #002  Private Sub UserForm_Initialize()
   
3. #003      Dim i As Integer
   
4. #004      Dim myc As cmds
   
5. #005      For i = 1 To 6
   
6. #006          Set myc = New cmds
   
7. #007          Set myc.cmd = Me.Controls("TextBox" & i)
   
8. #008          col.Add myc
   
9. #009      Next
   
10. #010      Set myc = Nothing
    
11. #011  End Sub

复制代码

代码解析：
       第1行代码在模块顶部声明变量col的类型为集合。
       第5行到第9行代码，将窗体中的六个文本框赋给col集合。
（关于类模块请参阅论坛中有关的资料。）
       在类模块中写入下面的代码：

1. #001  Private Sub cmd_Change()
   
2. #002      Dim i As Integer
   
3. #003      Dim Dval As Double
   
4. #004      For i = 1 To 6
   
5. #005          Dval = Dval + Val(UserForm1.Controls("TextBox" & i))
   
6. #006          UserForm1.TextBox7.Value = Dval
   
7. #007      Next
   
8. #008  End Sub

复制代码

代码解析：
       窗体中的六个文本框统一的Change事件，当任何一个文本框中的数据发生变化时，所有文本框相加的合计数显示在最后一个文本框中。
运行窗体在文本框中输入数据结果如图所示。

yuanzhuping

技巧107         控件跟随活动单元格
       在工作表中使用控件时一般都把控件放在工作表的上部，如果工作表中数据较多，当页面滚动到工作表下面的区域时，控件会离开当前可视区域，这时操作起来很不方便。解决方法除了冻结工作表的第一行放置控件的外，还可以使控件出现在选定的单元格位置，如下面的代码所示。

1. #001  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. #002      With Me.CommandButton1
   
3. #003          .Top = Target.Top
   
4. #004          .Left = Target.Left + Target.Width
   
5. #005      End With
   
6. #006  End Sub

复制代码

代码解析：
       工作表的SelectionChange事件，使工作表中的按钮控件出现在选定单元格的右边。
       第3行代码，设置按钮的Top属性等于选定单元格的Top属性。Top属性设置对象顶端到第一行顶端的距离。
       第4行代码，设置按钮的Left属性等于选定单元格的Left属性加上选定单元格的宽度，即按钮出现在选定单元格的右边。Left属性设置对象左边界至 A 列左边界的距离。
       当单击工作表区域的任一单元格，按钮出现在单元格的右边，如图所示。

lunax

我是VBA新兵, 非常感谢楼主的无私劳动! 支持!

joe_xgp

非常好的东西,我是新手,正急需,   谢谢!