代码运行结果: 代码截图: 代码文本: Public Sub 技巧() Dim myRange As Range Dim myString As String myString = "请用鼠标选取单元格,然后单击确定按钮。" On Error Resume Next Set myRange = Application.InputBox(myString, Type:=8) On Error GoTo 0 If myRange Is Nothing Then MsgBox "已经取消操作。" Else MsgBox "选择的单元格(区域)地址为:" & myRange.Address End If Set myRange = Nothing End Sub 注释: 【你们百度三天 不过我随口一句】 扫描二维码 |
|