Sub GetRange()
Dim rng As Range
On Error Resume Next
Set rng = Application.InputBox(prompt:=”输入单元格区域或者直接选取单元格”, Type:=8)
If rng Is Nothing Then
Else
End If
End Sub
» 转载请注明来源:网络蛀虫小窝 » 《Excel VBA单元格选取对话框》» 本站地址:http://www.gomoth.com
- 您可能感兴趣的相关文章
- * python 制作命令行excel 转cvs exe
- * excel查找一个值并复制到剪切板
- * excel弹出输入值的对话框
- * excel巧取汉字打头的字串内容
- * 给wps自制dll文件进行身份证号校验
- * excel中数字转汉字(大写)的几种办法NUMBERSTRING 函数使用
标签: excel