VBA代码中显示单元格区域地址的方案

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讲。