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"控件上的按钮