留言闆：今日是雙十一，下述教程中的第二套"數據庫"和第三套"字典"是優惠的最後一天，如有需要的朋友還請盡快，另外在此期間，我還準備了11份資料大禮，送給确實需要想學習VBA的同路人；視頻由于還沒有正式推出，仍可以享受最大的優惠。還有幾個小時的最後時間，能盡早的要盡早啊。

大家知道，在我寫的VBA解決方案的系列叢書中推出一種搭積木的思想，在三套教程中給出了大量的積木供大家使用。這三套教程中是按側重點不同而寫的，第一套：《VBA代碼解決方案》側重的是基本知識結構的講解，第二套：《VBA數據庫解決方案》側重的是數據的專業處理，第三套：《VBA數組與字典解決方案》是側重于利用字典，提高自己的代碼水平。這些教程發表之後，有些朋友覺得還過瘾，總在問一些現成的問題解決處理方案，在這這個文章中我将收集一些VBA編程的常用過程代碼方案，供大家寫代碼參考，并陸續發表。

所謂過程，包括方法、函數和事件，以及一些屬性的執行，可以完成一個小的執行工程，大家可以拿來利用這些案例。

VBA過程代碼1 : 使用Dim聲明語句

Sub MyNZ()

Dim a as integer '聲明a為整型變量

Dim a '聲明a為變體變量

Dim a as string '聲明a為字符串變量

Dim a as currency ,b as currency ,c as currency '聲明a,b,c為貨币變量

……..

End sub

代碼的解析及說明：上述代碼聲明變量可以是Byte、Boolean、Integer、Long、Currency、Single、Double、Date、String（隻限變長字符串）、String * length（定長字符串）、Object、Variant、用戶定義類型或對象類型。

VBA過程代碼2: 使用強制聲明變量聲明語句

Option Explicit

Sub MyNZ()

……..

End sub

代碼的解析及說明：上述代碼将強制聲明變量，未經聲明的變量時不能使用的。該語句必在任何過程之前出現在模塊中。

VBA過程代碼3: 使用聲明常數語句，用來代替文字值。

Sub MyNZ()

Const My = 456 ' 常數的默認狀态是 Private。

Public Const MyString = "HELP" ' 聲明 Public 常數

Private Const MyInt As Integer = 5 ' 聲明 Private Integer 常數

Const MyStr = "Hello", MyDouble As Double = 3.4567 ' 在同一行裡聲明多個常數

……..

End sub

代碼的解析及說明：上述代碼過程是常量的聲明過程，注意常數的作用範圍。

VBA過程代碼4：選擇當前單元格所在區域

Sub MyNZ()

Selection.CurrentRegion.Select

End sub

代碼的解析及說明：在EXCEL中，把鼠标放置在一個有效數據單元格中，執行該段代碼，你就可以将連在一起的一片數據全部選中。上述代碼就是完成了這個過程。要注意理解CurrentRegion的含義，不清楚的可以到VBA代碼解決方案中查找。

VBA過程代碼5：返回當前單元格中數據,删除前後空格後的值

Sub MyNZ()

msgbox Trim(ActiveCell.Value)

end sub

代碼的解析及說明：上述代碼過程用Trim函數，返回當前活動單元格内的數據，此數據是删除前後空格的值。Trim函數是提取input錄入數據的常用函數，以避免錄入的數據有空格确沒有被發現

更多精彩资讯请关注tft每日頭條，我们将持续为您更新最新资讯!