vba 判断目标单元格内容改变的代码_VBA代码中显示单元格区域地址的方案；调用内置对话框方案...

分享成果，随喜真能量。大家好，今日内容仍是和大家分享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讲。