我創建了一個VBA用戶窗體基本上是一個榮耀的輸入框 就像一個輸入框，可以採用這樣 Dim returnVal As String
returnVal = InputBox("Write some string")
我想我的窗體像運行這 Dim returnVal As customClass
Set returnVal = MyUserForm([some arguments])
ie
我一直在一些代碼一起在這個網站上的人的幫助。我遇到了一些問題 - 我使用Call UpdateBookmark函數將以前輸入的信息替換爲word文檔，並且在我的現有代碼中遇到了問題。 Private Sub cmdOk_Click()
Dim useAforB As Boolean
useAforB = CheckBox1.Value
Application.S
我有2個文本框捕獲從各自的日期選擇器中選擇的日期。我希望在這些日期之間得到天差異。當我運行我的表單時，我一直無法獲取工作表函數類錯誤的networkdays屬性。 我的代碼： Dim Holidays As Range
Set Holidays = Worksheets("Holidays").Range("A:A")
If IsEmpty(TextBox1.Value) = True The
因此，我收到了一個我正在處理的文檔，並且認爲我已經獲得了所有代碼的工作......但是在經過一些測試後，我遇到了一個錯誤。當我沒有選擇主設施選項時，我收到一個運行時錯誤13不匹配錯誤，我不確定爲什麼。代碼如下： Private Sub cbR1AccessSite_Change()
If cbR1AccessSite.Value = "" Then
Exit Sub
我有下面的子根據三個條件找到一個單元格。 Private Sub FindEstimate_Click()
Dim i As Long
i = 5
Do
If Cells(i, 1) = TextBox1 And Cells(i, 6) = ListBox1 And Cells(i, 9) = ListBox2 Then
Cells(i, 1).Select
我在下面的代碼行中得到了對象所需的運行時錯誤，我檢查了它們的正確表名，但仍然顯示相同的錯誤Sheet1.Range（「A1」）。Value = Date & 「」 &時間 Private Sub CommandButton1_Click()
Dim username As String
Dim password As String
username = TextBox1.Text
pas