@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
都沒有任何錯誤。再次感謝你!
RE your mod flag:首先,收到答案並不一定表明您的問題對我們的格式而言是明確的或可接受的。回答者可能剛剛猜對。這個問題對我來說是有問題的,即使是現在的格式,至少有兩個原因:(1)它不包括使我們「現在擁有」的(mcve),(2)它幾乎肯定是「太寬泛「,因爲一個好的答案將不得不向你解釋VBA編程的基礎知識,這實際上比我們預期的Stack Overflow的答案要多。 –
至於爲什麼你的編輯後的問題被置於「擱置」沒有導致重新開放......它實際上[把問題放在重新打開的隊列中](https://stackoverflow.com/review/reopen/16920148),社區成員審查您的編輯並確定他們不足以激發重新開放問題。作爲主持人,我不願意推翻值得信賴的社區成員,尤其是考慮到我的保留意見,這個問題太廣泛了。通常情況下,你可以縮小一點,但得到答案後很難。這就是爲什麼我們儘早關閉。 –
不夠公平,我承認這是一個非常基本的問題,並且在內容上表達了一些措辭...... –