vba如何使用RefEdit控件选择区域

2016年8月11日 作者： 来源：

使用RefEdit控件获得单元格区域的地址比使用InputBox方法更加方便，可以单击RefEdit控件中的按钮以折叠用户窗体，选定区域后再单击按钮展开用户窗体，示例代码如下：
#001  Private Sub CommandButton1_Click()
#002      Dim Rng As Range
#003      On Error GoTo line
#004      Set Rng = Range(RefEdit1.Value)
#005          Rng.Interior.ColorIndex = 15
#006          Unload UserForm1
#007          Exit Sub
#008  line:
#009      MsgBox "你选择的是非单元格区域!"
#010  End Sub
代码解析：
用户窗体中按钮的单击事件过程，改变用户使用RefEdit控件所选择的单元格区域内部的颜色。
第3行代码，错误处理语句。因为如果用户输入或选定了错误的单元格区域地址，将显示一错误信息，所以必需使用On Error GoTo语句来绕过错误。
第4行代码，使用Set语句将用户选择的单元格区域赋给变量rng。
第5行代码，改变用户所选单元格区域内部的颜色。
注意 不能在无模式用户窗体中使用RefEdit控件。
窗体运行后，当用户在工作表中选择一个单元格区域后显示所选单元格区域。