大家好，后疫情時代一定會到來，各行各業，都將是一場戰勝蕭條的無聲的戰役。無論怎樣，我們一定要堅信，疫情終將會過去，曙光一定會到來。后疫情時代將會是一個全新的世界，很多理念都將被打破，大多數人不會再享受體制內的保護，對于我們每個人，要盡可能多的學習有用的知識，為自己充電。在今后更加嚴峻的存量殘殺世界中，為自己的生存進行知識的儲備，特別是新知識的儲備。為后疫情時代做的必要準備。

今日繼續和大家分享VBA編程中常用的常用"積木"過程代碼。這些內容大多是我的經驗的記錄，來源于我多年的經驗。今日分享的是NO.242-243，內容是：

NO. 242：VBA代碼使用Shell函數打開記事本程序

VBA過程代碼243：VBA數組的定義及創建

VBA過程代碼242：VBA代碼使用Shell函數打開記事本程序

Sub Mynz()

Shell "notepad.exe", vbMaximizedFocus

End Sub

代碼解析：Mynz過程中使用Shell函數打開記事本，Shell函數是什么呢？它既不是工作表函數，也不是api函數，它是vba自帶的函數。但是它卻神通廣大，能抵n個api函數，api是應用程序接口，shell就是應用程序和系統之間的橋梁。它的用法很簡單，就是執行一個可執行文件。與開始菜單的運行功能一樣。

語法：Shell(pathname[,windowstyle])

VBA過程代碼243：VBA數組的定義及創建

Sub Mynz()

Dim i As Integer, j As Integer

Dim arr(1 To 10, 1 To 2) As Integer '定義一個10*2的二維數組(10行，2列)

j = 1 '數組1 to 10的索引號

For i = 1 To 20 Step 2

arr(j, 1) = i '賦值

arr(j, 2) = i + 1 '賦值

j = j + 1 '索引號增加

Next

[a1:b65536].ClearContents '清除原有數據

[a1].Resize(10, 2) = arr '將數組賦值給A1單元格向下10行，向右2列的區域

End Sub

代碼解析：

1 Dim arr(1 To 10, 1 To 2) As Integer 這里給出了數組的范圍最小的是arr(1, 1)，最大的是

arr(10, 2)

2 [a1].Resize(10, 2) = arr 講數組回填給工作表。

VBA是利用OFFICE實現自己小型辦公自動化的有效手段，我根據自己20多年的VBA實際利用經驗，現在推出了四部VBA經驗學習資料，是我"積木編程"思想的體現。

第一：VBA代碼解決方案，是VBA中各個知識點的講解，覆蓋了絕大多數的知識點；

第二：VBA數據庫解決方案，是數據處理的專業利器，介紹利用ADO連接ACCDB,EXCEL。

第三：VBA數組與字典解決方案，講解VBA中的數組和字典的利用。

第四：VBA代碼解決方案之視頻，是專門面向初學者的視頻講解，可以快速入門，更快的掌握這門技能。

目前正在寫第五部教程：VBA中類的解讀和利用，希望在年內陸續在各個平臺和大家見面。

VBA真的非常實用，希望大家掌握這個工具，利用這個工具，讓自己在工作中輕松，高效，快樂。學習有用的知識，讓健康的知識服務于大眾，不要想不勞而獲，更不要去偷奸取巧，踏踏實實，沉下心，提高自己，為后疫情時代做好知識的儲備。

總結

以上是生活随笔為你收集整理的vba定义全局变量并赋值_利用VBA代码如何打开任意程序的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。