分享成果，隨喜真能量。大家好，今日內容仍是和大家分享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專家 的文章
