Excel VBA中RefEdit的具体用法及实例

建一个窗体，窗体上建一个refedit控件、一个按钮，将下面代码粘贴到按钮的单击事件中：
Private Sub CommandButton1_Click()
str1 = RefEdit1.Text '鼠标选取单元格范围，获取引用字串
myrng = Right(str1, Len(str1) - InStr(str1, "!"))
Unload Me
MsgBox "选定范围" & Right(str1, Len(str1) - InStr(str1, "!")) & "数据总和为： " & Application.WorksheetFunction.Sum(Range(myrng))
End Sub
在表格中输入一些数字，此示例，通过refedit控件用鼠标在表格中选取范围，然后将选取范围的单元格引用字串传递给sum函数进行加总该范围的数据。