Excel VBA多個複選框激活部分代碼

Question

我正在處理的VBA代碼當前一次更新一個Worksheet上的六個不同的數據表 - 它刪除密碼保護，計算第一個數據表，硬編碼值並移動到下一個，然後再鎖定一切，並說謝謝。

其目的是讓一個宏能夠「分離」處理單個數據表的代碼的六個部分，使得它只更新已由用戶選擇的那些數據表，同時保留單個代碼（不是每個選項的單獨子），並且通過單個CommandButton激活整個過程。

爲了達到這個目的，除了編寫實際的代碼之外，我創建了一個UserForm，並插入了六個CheckBox和一個CommandButton，但是如何進一步處理它。如何根據選中的框激活/禁用部分代碼？

Answer 1

所以在VBA中有事件監聽器。這可以在工具欄下面編輯器的上半部分看到。下拉到左邊是對象。下降到正確的事件。

快速方法是查看用戶窗體並雙擊該對象。這將根據該操作爲該對象創建一個Private Sub。所以下面的代碼是一個帶有三個選項按鈕的用戶窗體。與你相同的邏輯只需插入你需要的代碼。

Private Sub OptionButton1_Click() 
MsgBox "1" 
End Sub 

Private Sub OptionButton2_Click() 
MsgBox "2" 
End Sub 

Private Sub OptionButton3_Click() 
MsgBox "3" 
End Sub 

此外，如果選項按鈕是通過檢查其.Value屬性選擇，您可以檢查。檢查後運行一些代碼。

Private Sub CommandButton1_Click() 
If UserForm1.OptionButton1.Value = True Then 
    'Execute Code 
ElseIf UserForm1.OptionButton2.Value = True Then 
    'Execute Code 
Else 
    'Execute Code 
End If 
End Sub 

代碼在模塊1

Private Sub select_column_a() 
    Range("A:A").Select 
End Sub 

呼叫內的另一個子

Private Sub CommandButton1_Click() 
    Module1.select_column_a 
End Sub 

Answer 2

@fscr再次感謝你 - 就像一個魅力，與一些補充，這就是爲什麼我張貼這裏是爲了像我這樣的其他初學者的利益。

在一個命令我插入表子很簡單：

Private Sub CommandButton1_Click() 
UserForm1.Show 
End Sub 

這說明所有的複選框我UserForm1和一個命令按鈕說：「去」

GO按鈕（也CommandButton1的 - 有沒有衝突）有這裏面：

Private Sub CommandButton1_Click() 
code 
End Sub 

其中的代碼是我的代碼名稱存儲在模塊1（是的，我沒有...） - 它順利執行它沒有任何九月憤怒的召喚功能。這裏的問題，可能存在向後兼容性問題？我在Excel 2016中工作，並瞭解到，例如ISFORMULA在這裏是新的，並拋出舊機器上的問題。

那麼整個代碼踢在

Sub code() 
UserForm1.Hide 

其次是各種行動，直到它到達我的複選框，上述的建議（以ammendments）：

Application.Cursor = xlWait 
Application.DisplayStatusBar = True 
Application.StatusBar = "Calculating Sensitivities..." 
Application.EnableCancelKey = xlDisabled 

If UserForm1.CheckBox1.Value = True Then 

Range("A6:G15").Select 
Selection.Table ColumnInput:=Range("AD3") 
Application.Calculate 
Range("B7:G15").Select 
Selection.Copy 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
Application.CutCopyMode = False 

ElseIf UserForm1.CheckBox2.Value = True Then 

Range("AD17:AM26").Select 
Selection.Table ColumnInput:=Range("AD2") 
Application.Calculate 
Range("AE18:AM26").Select 
Selection.Copy 
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
    :=False, Transpose:=False 
Application.CutCopyMode = False 

等。

的代碼執行剩餘的選項選中，然後是結束如果和其他代碼（清理，鎖定表等），直到

Application.ScreenUpdating = True 
Application.EnableCancelKey = xlEnabled 
End Sub 

都沒有任何錯誤。再次感謝你！