如何快速实现Excel单元格选择的方法
在编写VBA程序对数据进行操作时，经常需要引用单元格。在Excel中，为函数指定参数所在的单元格时，可以使用“参数”按钮来进行单元格的选择。以下是学习啦小编为您带来的关于快速实现Excel单元格选择的方法，希望对您有所帮助。
快速实现Excel单元格选择的方法
学习啦在线学习网 1、启动Excel并打开工作表，打开Visual Basic编辑器，在工程资源管理器中鼠标右击，选择关联菜单中的“插入”|“用户窗体”命令插入一个用户窗体。在用户窗体中添加一个“标签”控件和两个“命令按钮”控件，将两个按钮控件的"Caption"属性分别设置为“确定”和“取消”，将窗体控件的"Caption"属性设置为“设置边框样式”，将“标签”控件的"Caption"属性设置为“指定需要设置的单元格”，如图1所示。
图1 设置控件的
2、在“工具箱”对话框中鼠标右击，选择关联菜单中的“附加控件”命令打开“附加控件”对话框，在“可用控件”列表中勾选"RefEdit Ctrl"复选框，如图2所示。单击“确定”按钮将其添加到“工具箱”对话框中，在“工具箱”对话框中选择该控件，在窗体中绘制控件，如图3所示。
图2 勾选
图3 向窗体中添加控件
3、双击“确定”按钮，为该按钮添加Click事件代码，具体的程序代码如下所示：
学习啦在线学习网 Private Sub CommandButton1_Click()
学习啦在线学习网 Dim rng As Range '声明一个对象变量
学习啦在线学习网 Set rng=Range(RefEdit1.Value) '将选择单元格对象赋予变量
With rng.Borders
学习啦在线学习网 .LineStyle=xlContinuous '设置边框线样式
学习啦在线学习网 .Weight=xlThin '设置线宽
学习啦在线学习网 .ColorIndex=5 '设置边框线颜色
End With
rng.BorderAround xlContinuous,xlMedium,5 '向单元格区域添加边框
学习啦在线学习网 Set rng=Nothing '清除对象
End Sub
4、双击“取消”按钮，为该按钮添加Click事件代码，具体程序代码如下所示：
Private Sub CommandButton2_Click()
Unload Me
End Sub
学习啦在线学习网 5、按F5键运行程序，单击"RefEdit"控件上的按钮
学习啦在线学习网 恢复用户窗体，选择单元格区域地址在控件中显示。单击“确定”按钮，选定单元格被添加了边框线，如图4所示。单击“取消”按钮将关闭对话框。
图4 单击“确定”按钮为选择单元格添加边框线
猜你喜欢：