分享成果，隨喜真能量。大家好，今日內容仍是和大家分享VBA編程中常用的簡單「積木」過程代碼，這些內容大多是取至我編寫的「VBA代碼解決方案」教程中內容。NO.176-NO.177內容是：
NO. 176：使用自定義MyExistSh函數判斷工作簿中是否存在指定名稱的工作表
NO. 177：使用Array函數創建一個數組用來保存數據並將其寫入到工作表的單元格區域
VBA過程代碼176：使用自定義MyExistSh函數判斷工作簿中是否存在指定名稱的工作表
Sub mynz()
Dim Sh As String
Sh = InputBox("請輸入查找的工作表名稱：")
If Len(Sh) > 0 Then
If Not MyExistSh(Sh) Then
MsgBox "對不起,您查找的" & Sh & "工作表不存在!"
Else
Sheets(Sh).Select
End If
End If
End Sub
代碼的解析說明：myn過程使用自定義的MyExistSh函數判斷工作簿中是否存在指定名稱的工作表，如果不存在則使用消息框進行提示.
VBA過程代碼177：使用Array函數創建一個數組用來保存數據並將其寫入到工作表的單元格區域
Option Base 1
Sub mynz ()
Dim arr As Variant
Dim i As Integer
arr = Array("A111", "A222", "A333", "A444", "A555", "A666", "A777", "A888")
For i = LBound(arr) To UBound(arr)
Sheets("59").Cells(i, 1) = arr(i)
Next
End Sub
代碼的解析說明：mynz過程使用Array函數創建一個數組用來保存數據並將其寫入到工作表的單元格區域。Option Base語句聲明數組下標的預設下界為1，數組下標的預設下界默認為0。代碼使用Array函數創建數組用來保存數據。使用LBound函數和UBound函數取得數組的最小和最大下標。確定數組的大小後使用For...Next語句遍歷數組元素並將數組元素依次寫入到工作表的A列單元格中。
VBA是實現自己小型辦公自動化的有效手段，我根據自己20多年的VBA實際利用經驗，現推出了四部VBA教程，這些是我多年編程經驗的記錄，也是我「積木編程」思想的體現。每一講都是較大塊的「積木」，可以獨立的完成某些或者某類的過程，有需要的朋友可以聯絡（WeChat:NZ9668）分享。利用這些可以提高自己的編程效率。其一：「VBA代碼解決方案」PDF教程，是VBA中各個知識點的講解，覆蓋了絕大多數的知識點，是初學及中級以下人員必備；其二「VBA資料庫解決方案」PDF教程，資料庫是數據處理的利器，對於中級人員應該掌握這個內容了。其三「VBA數組與字典解決方案」PDF教程，講解VBA的精華----字典，是我們打開思路，提高代碼水平的必備。其四「VBA代碼解決方案」視頻教程。目前正在錄製，「每天20分鐘，半年精進VBA」，越早參與，回饋越多。現在錄製到第三冊的99講。