我有一個UserForm有兩個選項預算或實際。如果我選擇實際代碼工程並調用子例程實際但是如果我選擇預算收到錯誤無效使用屬性在線呼叫預算。 Option Explicit
Private Sub Budget_Click()
Call Budget
End Sub
Private Sub OptionButtonActual_Click()
Call Actual
E
我試圖創建一個函數,它根據用戶所需的文本框數量以編程方式將文本框添加到空白的用戶窗體中。 目前我有一個這樣做的功能,但我無法保存文本框的值。我曾嘗試引用文本框的幾種方法但他們都不工作(儘管在一個單獨的代碼工作之前同樣的方法,但並沒有以編程方式添加問題的文本框) Function addtxtbox(number_of_textboxes As Integer)
Dim option_names
我用文本框創建了一個用戶表單(userform6)。我需要給出最後5行的名字。 這是我正在使用的代碼。該代碼也選擇最後五行,但出現錯誤。 Dim n As Long
n = 5
Cells(Rows.Count, "A").End(xlUp).Offset(1 - n). _
Resize(n).EntireRow.Select
Selection.Name = UserForm6.T
我目前正在爲我的工作分析模板,並且在編寫我的用戶窗體代碼時遇到困難。我寫了與這些複選框相關的所有宏,但無法通過單擊單獨分析命令框來激活它們。這些宏被稱爲:graph_dur,graph_ram,dur_calc,ram_calc。 截至目前,我有一個UserForm,允許用戶檢查他們想要的分析,然後點擊「分析」命令按鈕後運行計算。 see UserForm layout in link當單擊「分析
請幫助我,下面的程序給出了錯誤的對象不支持此屬性或方法 我試圖將數據從一個工作簿複製並粘貼到另一個工作簿中,但我嘗試了所有我的知識並沒有結果。 Private Sub cmbsendmail_Click()
'Application.Visible = False
'ThisWorkbook.Save
'Dim copyd As String
Dim mydata As String