使用RefEdit控件选择区域.docxVIP

技巧1使用RefEdit控件选择区域 在技巧错误！未找到引用源。中介绍了如何使用InputBox方法获得所选单元格区域的地址，而使用RefEdit控件获得单元格区域的地址比使用InputBox方法更加方便，可以单击RefEdit控件中的按钮以折叠用户窗体，选定区域后再单击按钮展开用户窗体，示例代码如下： #001 PrivateSubCommandButton1_Click() #002 DimRngAsRange #003 OnErrorGoToline #004 SetRng=Range(RefEditl.Value) #005 Rng.Interior.ColorIndex=15 #006 UnloadUserForm1 #007 ExitSub #008 line: #009 MsgBox你选择的是非单元格区域! #010 EndSub 代码解析： 用户窗体中按钮的单击事件过程，改变用户使用RefEdit控件所选择的单元格区域内部的颜色。 第3行代码，错误处理语句。因为如果用户输入或选定了错误的单元格区域地址，将显示一错误信息，如图1-1所示，所以必需使用OnErrorGoTo语句来绕过错误。 图1-1提示运行错误 第4行代码，使用Set语句将用户选择的单元格区域赋给变量rng。 第5行代码，改变用户所选单元格区域内部的颜色。 注意不能在无模式用户窗体中使用RefEdit控件。 窗体运行后，当用户在工作表中选择一个单元格区域后改变所选单元格区域内部的颜色，如图1-2所示。 A B ■C/ D E F G H I J 1 2 运行窗体 3 4 5 6 r .8 9 11 RefEdit控件 12 1 |Sheetl!$A$ll：$D$13 商1 13’ 14 ■ 15 图1-2使用RefEdit控件获得区域地址