InputBox方法获得单元格区域地址

VBA语言専攻 2022-04-22

102

【分享成果，随喜正能量】天地生一世人，自足了一世事。我们永远无法预料人生的下一场会发生什么，唯一能做的，便是用不厚的肩膀去承担起面临的一切。因为，我们坚信，生命总是最美好的存在。。

《VBA代码解决方案》这套教程是我最早推出的教程，目前已经是第二版修订了。这套教程定位于入门后的提高，在学习这套教程过程中，侧重点是要理解及掌握我的“积木编程”思想。要灵活运用教程中的实例像搭积木一下把自己喜欢的代码摆好。

这套教程共三册，一百四十七讲，内容覆盖较广，也是初级和中级间的过度教程，改版后的内容主要是提供程序源码文件及代码修正为32位和64位兼用代码。今后一段时间会给大家陆续推出。今日的内容是第42讲：InputBox方法获得单元格区域地址

第四十二讲用InputBox方法获得所选单元格区域地址

大家好，我们今日继续讲解VBA代码，今日讲解的是第42讲，在上一章的第41讲中讲了InputBox 方法，并介绍了所用的语法：expression.InputBox(Prompt, Title, Default, Left, Top, HelpFile, HelpContextId, Type)

InputBox方法很适合用户选择工作表单元格区域，并对所选择的单元格区域进行操作。在讲到TYPE的值时我们谈到了下面的各个值的：

在上面的表格中：0 表示一个公式；1表示一个数字；2表示文本（字符串）；4表示一个逻辑值，例如true或false；8 表示一个单元格引用；16表示一个错误值；64表示一个值的数组，在今日的代码中，将使用上述代码的“8”,即：一个单元格引用。

如下面的代码所示。

Sub mynz_42() '42 用InputBox方法获得所选单元格区域地址

Dim rng As Range

Sheets("42").Select

On Error GoTo 100

Set rng = Application.InputBox("请使用鼠标选择单元格区域：", Type:=8)

rng.Interior.ColorIndex = 6

100:

End Sub

代码窗口：

代码解析：mynz_42过程使用InputBox方法显示一个对话框，提示用户在工作表中选择一个单元格区域，并改变所选单元格区域内部的颜色。

1）第3行代码，错误处理语句。因为当对话框显示后，如果用户单击“取消”按钮，将显示一错误信息，所以必需使用On Error GoTo语句来绕过错误。

2）第4行代码，使用Set语句将用户选择的单元格区域赋给变量rng。当Type参数设置为8时，将返回一个Range对象，必须用Set 语句将结果指定给一个Range对象。

3）第5行代码，改变用户所选单元格区域内部的颜色。

运行该过程，将显示一个对话框，提示用户在工作表中选择一个单元格区域，并用Interior.ColorIndex改变所选单元格区域内部的颜色。Interior.ColorIndex方法用到的颜色代码在我之前的文章中详细的介绍过，有兴趣的朋友可以回头看看。

代码运行：

点确定后：

今日内容回向：

1 INPUTBOX函数和INPUTBOX方法的区别是什么？

2 如何获取所选单元格的区域？

3 请读者自己拷贝一下代码，试着看看程序运行的效果吧。

本讲内容参考程序文件：VBA代码解决方案修订（1-48）.xlsm

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：

【分享成果，随喜正能量】佛说，生命中的许多东西是可遇不可求，刻意强求的得不到，而不曾被期待的往往会不期而至。因此，要拥有一颗安闲自在的心，一切随缘，顺其自然，不怨怒，不躁进，不过度，不强求，不悲观，不刻板，不慌乱，不忘形，不以物喜，不以己悲；随缘不是听天由命，而是以豁达的心态面对生活。。

文章转载自VBA语言専攻，如果涉嫌侵权，请发送邮件至：contact@modb.pro进行举报，并提供相关证据，一经查实，墨天轮将立刻删除相关内容。