我有一個非常簡單的表單,加載時應該創建一個新的對象Thing,它是在特定的類模塊中定義的。用友也有幾個按鈕與不同的功能相關聯。 這是用友的代碼相關聯的負載事件: Option Explicit
Private mth As Thing
Private Sub UserForm_Load()
Set mth = New Thing
mth.Name = InputBox("
我有一個問題要問我的用戶表單。我隱藏了我的工作簿,只是用戶窗體將可見。它在我的電腦中完美工作,因爲我的電腦已啓用宏。但是在禁用宏的計算機中,用戶仍然可以在啓用宏安全警告之前編輯我的工作簿。 Private Sub Workbook_Open()
Application. Visible=False
UserForm1.Show
End Sub
這是我用來隱藏工作簿的代碼。任何人都可以告訴
我有一個用戶窗體,用我的設置表中的產品名稱填充了組合框,並且我試圖在用戶從組合框中選擇產品時顯示帶有產品描述的標籤。 這很有效,除非用戶選擇沒有產品說明的產品,因此vlookup將返回空白並導致用戶表單發生錯誤。 我試了幾次If Error - if is empty - Description is 0 - Description is empty statements,but none doe
我有一個用戶窗體,10個ImageBox裏面有10個圖像。我知道,我能確定已經被點擊了哪些圖片是這樣的: Private Sub Image1_Click()
MsgBox "Image 1 clicked!"
End Sub
但因爲有10張,我必須重複做10次以上的代碼? Private Sub Image1_Click()
MsgBox "Image 1 clicke
我創建了一個用戶窗體,它應該像進度工具欄一樣工作,並以百分比形式顯示我的實際進度。 我想在for循環中顯示我的工具欄。但是,只有當我點擊用戶窗體時,for循環纔會繼續。我做錯了什麼? For k = 1 To 300
pctcompl = k * 100/300
UserForm1.Text.Caption = pctcompl & "% Completed"
U
Private Sub ROLparameter_Click()
Line1: RolLow = InputBox("Please enter the lower bound percentage for ROL calculation between 0 and 100 (initially " & RolLow * 100 & "%):")
If Not 0 <= RolLow <= 1