For Each ctrl In Me.Controls
' "Me" 指的是當前的 UserForm 物件,也可以替換成工作表名稱 EX SHEETS("SHEET1")
' 檢查Controls的類型是否為 CheckBox,透過TypeName檢查類別。
If TypeName(ctrl) = "CheckBox" Then
' 將 CheckBox 的值設為 False (取消勾選)
ctrl.Value = False
End If
'ComboBox
If TypeName(ctrl) = "ComboBox" Then
' 將 CheckBox 的值設為 False (取消勾選)
ctrl.Value = ""
End If
Next ctrl
沒有留言:
張貼留言