菜鸟也懂VBA-excle2007VBA入门教程(12)

G、 组合框 ComboBox

1. 可以输入文字相当于文本框的作用，且还有列表框的作用，也就是组合框集文本框和列表框特

点一起

2. 给组合框添加数据

实例 添加一个月份组合框

Private Sub UserForm_Initialize() Dim i As Byte For i = 1 To 12

Me.ComboBox1.AddItem i & \月\ Next i

Me.ComboBox1.ListIndex = 0’第一个值为默认值 End Sub

3. 单个读取 Me.ComboBox1.Value H、 列表框 ListBox

1. 只能选择，不能输入 2. 给列表框添加数据

实例 添加一个月份列表框

Private Sub UserForm_Initialize() Dim i As Byte For i = 1 To 12

Me.ListBox1.AddItem i & \月\ Next i

Me.ListBox1.ListIndex = 0 End Sub

3. 单个读取列表框中的值

第 31 页 共 52 页

Excel 2007 VBA 教程

Private Sub CommandButton1_Click() MsgBox Me.ListBox1.Value End Sub I、 框架 Frame

J、 选项卡控件 TabStrip K、 多页控件 MultiPage L、 滚动条 ScrollBar

M、 数值调节按钮 SpinButton N、 单选按钮 OptionButton O、 RefEdit控件

主要用来选择区域，当然我们也可以inputbox选区域，不过没有那么方便，RefEdit控件在Excel里选区域显得更专业一点，不过Vb里没有这个控件，不知为什么？ 实例 批量上下标

Private Sub CommandButton1_Click() Dim MyRg As Range '定义变量

If Me.OptionButton1 = True Then '如果单选按钮1被选中，那么 For Each MyRg In Application.Intersect(ActiveSheet.UsedRange, Range(Me.RefEdit1.Value)) '遍历选中的所有单元格

'Intersect的作用是选中区域和有数据区域交集，这样就不用循环选中的每一个单元格，大大提高运行速度

'Me.RefEdit1.Value取出RefEdit1的值，作为Range的参数 MyRg.Characters(Start:=Len(MyRg) - Me.ComboBox1.Value + 1, Length:=Me.ComboBox1.Value).Font.Superscript = True

'上面这段代码大家可以通过录制得到，然后修改一下得到。代码的意思，把后面Me.ComboBox1.Value个字标示上标

'ComboBox1.Value是组合框的值，也就是说标示后面多少个，由它决定的。下面的代码也是这个意思，我就不多作解释了 Next MyRg

ElseIf Me.OptionButton2 = True Then For Each MyRg In Application.Intersect(ActiveSheet.UsedRange, Range(Me.RefEdit1.Value))

MyRg.Characters(Start:=Len(MyRg) - Me.ComboBox1.Value + 1, Length:=Me.ComboBox1.Value).Font.Subscript = True Next MyRg Else For Each MyRg In Application.Intersect(ActiveSheet.UsedRange, Range(Me.RefEdit1.Value)) With MyRg.Font

.Superscript = False '取消上标 .Subscript = False '取消下标 End With Next End If End Sub

Private Sub CommandButton2_Click()

第 32 页 共 52 页