分享成果，随喜真能量。大家好，今日内容仍是和大家分享VBA编程中常用的简单"积木"过程代码，这些内容大多是取至我编写的"VBA代码解决方案"教程中内容。NO.159-NO.161内容是：
NO. 159：用InputBox方法获得所选单元格区域地址
NO. 160：VBA中调用内置对话框，完成人机对话的方案
NO. 161：利用VBA代码，如何删除指定的文件
VBA过程代码159：用InputBox方法获得所选单元格区域地址
Sub mynz ()
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过程使用InputBox方法显示一个对话框，提示用户在工作表中选择一个单元格区域，并改变所选单元格区域内部的颜色。运行过程，将显示一个对话框，提示用户在工作表中选择一个单元格区域，并用Interior.ColorIndex改变所选单元格区域内部的颜色。Interior.ColorIndex方法用到的颜色代码在我之前的文章中详细的介绍过，有兴趣的朋友可以回头看看。
VBA过程代码160：VBA中调用内置对话框，完成人机对话的方案
Sub mynz ()
Application.Dialogs(xlDialogOpen).Show
End Sub
代码的解析说明：mynz过程显示内置的"打开"对话框并选定示例所在的文件夹。
----------------------------------------------------------------------------------------------------------------------
VBA过程代码161：利用VBA代码，如何删除指定的文件
Sub mynz ()
Dim Filename As Variant
Dim mymsg As Integer
Dim i As Integer
Filename = Application.GetOpenFilename(Title:="删除文件", MultiSelect:=True)
If IsArray(Filename) Then
mymsg = MsgBox("是否删除你所选文件?", vbYesNo, "提示")
If mymsg = vbYes Then
For i = 1 To UBound(Filename)
Kill Filename(i)
Next
End If
End If
End Sub
代码的解析说明：mynz过程使用GetOpenFilename方法显示标准的内置"打开"对话框，获取用户选定文件的文件名后使用Kill语句删除。运行mynz过程，显示标准的内置"打开"对话框，删除用户选定的文件.
VBA实现自己小型办公自动化的有效手段，我根据自己20多年的VBA实际利用经验，现推出了四部VBA教程，这些是我多年编程经验的记录，也是我"积木编程"思想的体现。每一讲都是较大块的"积木"，可以独立的完成某些或者某类的过程，有需要的朋友可以联络（WeChat:NZ9668）分享。利用这些可以提高自己的编程效率。其一："VBA代码解决方案"PDF教程，是VBA中各个知识点的讲解，覆盖了绝大多数的知识点，是初学及中级以下人员必备；其二"VBA数据库解决方案"PDF教程，数据库是数据处理的利器，对于中级人员应该掌握这个内容了。其三"VBA数组与字典解决方案"PDF教程，讲解VBA的精华----字典，是我们打开思路，提高代码水平的必备。其四"VBA代码解决方案"视频教程。目前正在录制，"每天20分钟，半年精进VBA"，越早参与，回馈越多。现在录制到第二册的92讲。
閱讀更多 VBA專家 的文章
