Excel VBA 基礎(05.2) - 用戶表單&異常處理

msdn.microsoft.com

以及官方文檔

用戶窗體對象?

msdn.microsoft.com

本期示例 5.2.1 , 合併報表調整分錄

問題描述，集團合併報表當中由於各子公司位於不同國家，所採用的ERP系統也各不相同。前期數據處理完畢後需要進行報表合併。

Overview 工作表存放匯總信息。 列標G1-G9為子公司的匯總數據。 列標Col1-Col6當中，為合併抵銷分錄所在列。

合併過程中可能涉及到上千個不同的科目，為了便於管理合併抵銷分錄，我們需要將所錄入的分錄存儲在單獨工作表當中並且通過公式與匯總表關聯起來。

存放分錄的工作表名為 Bookings, 結構如下，其中第一列為分錄說明，第二列為對應列標

最終效果動態圖如下。

要求

• 雙擊某科目所指定列所對應的單元格觸發事件，顯示用戶表單。
• 用戶表單下拉列表數據依據工作表內容自動生成，並具有自動填充功能，如上圖輸入 Trail 自動篩選具有 Trail的科目
• 按鈕Equalizer的功能是使借貸平衡。
• 數字欄如果以 等號開頭時要求實現簡單的運算功能 如 =49+51 則得出100。
• 依據輸入數據，自動生成分錄，並通過公司與前表關聯。

此項目源於實踐中報表合併程序的一部分。本示例採用了早期的版本，無Option Explicit，請見諒。

之前一直有朋友跟我反映，項目代碼量大，難於消化。

這使我想起了去年備戰司法考試的看到的一個考生問題：八月份臨考前容易懈怠，怎麼才能熬下去？ 回答：如果熬不下去，那麼明年再來吧。

學習的每個階段都會遇到瓶頸，絕大多數人都因畏難止步於某個階段，是否跨出這一大步，取決你自己。

各個項目都有其內在邏輯，在理解其實現原理之後務必抽出時間要自己動手敲一遍。真正編程的感覺遠遠不是看教程本身能夠體會到的。每一條語句都有它的道理，只有經歷過從大腦到屏幕的過程才代表真正掌握了程序設計的知識。

其次，現實中的項目本身的複雜程度，決定了我們代碼的規模。解決困難的問題，享受思考的樂趣也不正是我們學習VBA編程的初衷么？

本期代碼說完。分析業務邏輯，

雙擊顯示錶單，對應工作表事件 Worksheet_BeforeDoubleClick，通過此事件獲取觸發雙擊事件的單元格，由此獲取行列信息，即所對應科目代碼，以及合併列的名稱。

所用到各個組件的屬性與方法請自行查看文檔，由於用戶表單相對而言不常用，故只需會查閱文檔即可。用戶表單中的下拉列表從Overview工作表中讀取數據，並相應修改下拉列表的Items對象。自動填充功能對應 下拉列表 的 Change 事件，即 當用戶鍵入數據時自動更新下拉列表的Items對象。

輸入數值的文本欄，以等號開頭時進行計算。此功能在此詳細講解。

文本欄的結果以字元串形式傳遞，如果此時用戶輸入 abc 類似的非數字型字元在我們通過cdbl進行數值轉換時系統會 報錯。

如，在立即窗口中輸入並運行如下命令， 即可查看到 異常信息

? cdbl("12as")

由於異常的出現會阻斷程序的正常運行，我們有如下異常解決方式

在模塊/程序作用域指定

On Error Resume Next 忽略異常 繼續執行下一句

或是

On Error GoTo ... 遇到異常 轉跳到...

程序編寫調試的時候不推薦 加上On Error Resume Next，因為此時不再顯示異常提示，也無法針對性處理異常。此方法只適用於特定場景。

重點來看看 On Error GoTo

結合上述例子, 來分析程序運行

Private Function pareseValue(ByVal s As String) As Double On Error GoTo dblparesehdl s = Trim(s) If Left(s, 1) = "=" Then s = Right(s, Len(s) - 1) pareseValue = Application.Evaluate(Replace(Replace(s, " ", ""), ",", ".")) Else pareseValue = CDbl(Replace(Replace(s, " ", ""), ".", ",")) End If pareseValue = Round(pareseValue, 2) dblparesehdl: If Err.Number <> 0 Then pareseValue = 0 End IfEnd Function

當 用戶 輸入 "12as" 時，由於無前置 等號，進入第二選擇分支，此時cdbl因無法轉換報錯。

函數作用域當中，我們聲明 On Error GoTo dblparesehdl。發生錯誤時，自動轉到dblparesehdl 所標記的行， 【異常處理標記行的標記名稱通常採用 handler/handle/hdl】，並且執行該行及該行以下代碼。

Err.Number <> 0

如果錯誤代碼不等於0，則表示程序運行出現異常。此時我們將無意義的輸入指定為0。

我們在編寫程序的過程中也可以通過 Err.Raise 來拋出異常，或是 通過 Debug.Assert 判斷是否滿足指定條件，來中斷程序執行。兩種模式都在之前的文章中出現過。

示例文件後附。