數據結構有云：程序=數據+操作。從中可以看出，數據才是程序的核心對象，每個程序所有的操作和意圖都是圍繞數據展開的。每個程序的結構基本都分為三個部分：輸入，處理，輸出。輸入是接收用戶的數據，處理過程是通過不同的算法處理接收的數據，輸出是將處理的結果返回給用戶。
一、輸入與輸出
大家還記得在VBA我們一般通過什么方式接受用戶的簡單輸入呢？沒錯，最簡單的方式就是Msgbox與InputBox。
Msgbox:最簡單的用戶輸入框
Msgbox太簡單了，以至于大家用的最多的就是其顯示信息的功能，其實它是有返回值的。它的語法如下所示：

MsgBox(Prompt[,Buttons][,Title][,Helpfile,Context])?As?Integer

這里用戶的輸入就是他選擇的按鈕，也就是Integer值所代表的選項。這里用戶的選擇比較簡單，所以不用驗證。

?

InputBox：最簡單的全能型用戶輸入框
VBA內置的InputBox方法
這個函數返回一個字符串，選擇取消后返回空串(零個字節的字符串)。它不含有容錯處理。例如你想要用戶輸入整數，結果用戶輸入了字符，這個時候InputBox并不會替你告訴用戶錯誤的原因。

Application的InputBox函數
這個函數更強大，內置容錯處理，選擇取消后返回false。這個函數可以指定輸入的類型，當用戶輸入的數據類型與參數中指定的類型不兼容的時候，這個函數會給出溫馨的提示，告訴你輸入的數據類型不對。

?

除了這兩種最簡單的輸入方式外，還有其它一些重要的輸入方式：
單元格輸入：這種方式是最常見的，用戶在單元格中輸入數據，然后程序獲取單元格中數據并處理。
用戶窗口輸入：這種方式最直觀，比較適合處理結構化數據；利用窗口，我們可以提供專業的用戶視覺體驗和便利的用戶輸入體驗。
文件輸入：這種方式適合導入大量的數據或其它來源的數據。

?

說完了輸入，再說說輸出。VBA中輸出也有相對應的幾種方式：
Msgbox：最簡單的輸出信息方式。
單元格輸出：可以顯示大量的處理結果。
用戶窗口輸出：顯示一些自定義的信息和格式，用戶體驗較佳。
文件輸出：輸出大量的信息和結果。
立即窗口輸出：一般用于調試的時候顯示信息(Debug.Print)。

上面我們簡單總結了常見的輸入與輸出方式。用戶輸入的數據是我們工作的前提，那么這些數據是否符合我們的需求，我們就需要去驗證。

二、簡單數據驗證
1.簡單數據輸入與類型驗證

這個很好辦，直接使用Application中的InputBox函數就可以達到這個目的。

2.內置函數驗證
如果只是簡單驗證數據的類型，或者某些簡單的判斷也可以靠VBA中內置的一些函數來驗證。我在前面的內置函數中已經總結了，主要有兩類的內置函數：
VBA內置的驗證函數有：
IsNumeric(x) - 是否為數字, 返回Boolean結果。
IsDate(x)? - 是否是日期, 返回Boolean結果。
IsEmpty（x） - 是否為Empty, 返回Boolean結果。
IsArray(x) - 指出變量是否為一個數組。
IsError(expression) - 指出表達式是否為一個錯誤值。
IsNull(expression) - 指出表達式是否不包含任何有效數據 (Null)。
IsObject(identifier) - 指出標識符是否表示對象變量。

WorksheetFunction內置的驗證函數有：
IsErr - 檢查是不是除了#N/A外的錯誤值.
IsError - 檢查是不是錯誤值(#N/A, #VALUE!, #REF!, #DIV/0!, #NUM!, #NAME?,或者 #NULL!).
IsEven - 檢查是否是偶數.
IsOdd - 檢查是否是奇數.
IsLogical - 檢查是不是布爾值.
IsNA - 檢查值是否是錯誤值#N/A（值不可用）。
IsNonText - 檢查是否是非文本(空的單元格返回true)。
IsNumber - 檢查是不是數字。
IsText - 一般用于判斷單元格中內容是否是文本。

三、復雜數據驗證
　　在前面的例子中，驗證的內容都還是比較簡單；實際的工作中，很多時候，我們可以通過大量的IF語句來達到驗證數據內容的目的。除了這一類可進行枚舉驗證的情況，還有一類經常出現的情況是，需要驗證和處理大量的文本內容，有時候需要查找字符串，有時候要按條件替換，并且這些待處理的問題還是有一定的規律可循的，但是無法通過枚舉的方式挨個驗證，這個時候就需要正則表達式來幫忙。
1.正則表達式(Regular Expression)基礎
　　正則表達式是通用的文本搜索和處理方案，它的知識不是VBA獨有的，基本上每種語言都內置了正則表達式的功能。正則表達式的基礎知識不是這里的重點，需要的朋友可以Google一下，或者參看下面的一些入門教程：
http://deerchao.net/tutorials/regex/regex.htm
http://www.regexlab.com/zh/regref.htm
http://www.williamlong.info/archives/433.html

?

2.VBA中的正則表達式應用
　　在VBA中使用正則表達式，可以通過下列途徑實現：
創建正則表達式對象：
前期綁定：在VBA代碼編輯器中的"Tools"菜單中，選中"References..."，然后引用Microsoft VBScript Regular Expressions 5.5類庫，然后直接定義對象：Dim reg As New RegExp。
后期綁定：使用CreateObject方法定義對象：CreateObject("VBSCRIPT.REGEXP")。
前一種方式的優點是可以有編輯器的Intellisense支持。

RegExp對象的屬性：
Global - 設置或返回一個 Boolean 值，該值指明在整個搜索字符串時模式是全部匹配還是只匹配第一個。如果搜索應用于整個字符串，Global 屬性的值應該為 True，否則其值為 False。默認的設置為True。
Multiline - 返回正則表達式是否具有標志m, 缺省值為False。如果指定的搜索字符串分布在多行，這個屬性是要設置為True的。
IgnoreCase - 設置或返回一個Boolean值，指明模式搜索是否區分大小寫。如果搜索是區分大小寫的，則 IgnoreCase 屬性應該為False；否則應該設為True。缺省值為True。
Pattern - 設置或返回被搜索的正則表達式模式。 被搜索的正則字符串表達式。它包含各種正則表達式字符。

RegExp對象的方法：
Execute - 對指定的字符串執行正則表達式搜索。需要傳入要在其上執行正則表達式的文本字符串。正則表達式搜索的設計模式是通過 RegExp對象的Pattern來設置的。Execute方法返回一個Matches集合，其中包含了在string中找到的每一個匹配的Match對象。如果未找到匹配，Execute將返回空的Matches集合。
Replace - 替換在正則表達式查找中找到的文本。
Test - 對指定的字符串執行一個正則表達式搜索，并返回一個 Boolean 值指示是否找到匹配的模式。RegExp.Global屬性對Test方法沒有影響。如果找到了匹配的模式，Test方法返回True；否則返回False。

MatchCollection對象與Match對象
匹配到的所有對象放在MatchCollection集合中，這個集合對象只有兩個只讀屬性：
Count：匹配到的對象的數目
Item：集合的又一通用方法，需要傳入Index值獲取指定的元素。

一般，可以使用For Each語句枚舉集合中的對象。集合中對象的類型是Match。
Match對象有以下幾個只讀的屬性：
FirstIndex - 匹配字符串在整個字符串中的位置，值從0開始。
Length - 匹配字符串的長度。
Value - 匹配的字符串。
SubMatches - 集合，匹配字符串中每個分組的值。作為集合類型，有Count和Item兩個屬性。

?

正則表達式很強大，是處理文本的首選，不管你信不信，反正我是信了。說了很多，最后以一個小例子結尾吧：

Sub?Test()
????Dim?reg?As?New?RegExp
????With?reg
????????.Global?=?True
????????.IgnoreCase?=?True
????????.Pattern?=?"\d+"
????End?With
????
???Dim?mc?As?MatchCollection
???Dim?m?As?Match
???Set?mc?=?reg.Execute("123aaaaa987uiiui999")
???For?Each?m?In?mc
????MsgBox?m.Value
???Next
End?Sub

?

轉載于:https://www.cnblogs.com/dxy1982/archive/2011/09/09/2159246.html

總結

以上是生活随笔為你收集整理的Excel VBA 学习总结 - 数据验证与正则表达式的全部內容，希望文章能夠幫你解決所遇到的問題。

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