userform

    0熱度

    1回答

    我想使用userform/comboboxes過濾載體表。我收到「Sheets(」Carrier「)行上的錯誤。range.AutoFilter field:= 16,Criteria1:= ComboBoxA.value」。 「錯誤的參數數量或無效的財產分配」 我jhave刪除了以前的問題,因爲我在半夜添加了不良信息。 公用Sub CommandButton1_Click() Dim strCr

    0熱度

    1回答

    我想在用戶在以前的用戶窗體上選擇工作站後用部件號列表填充我的用戶窗體組合框。 我的想法是遍歷列,確定當字符串工作站相匹配,然後增加該小區在列的權利(這將會是產品編號) 我的代碼看起來是這樣的到目前爲止: If station = "MILL" Then With ComboBox1 .AddItem "350SC109e.1" .AddItem "350 SC166"

    0熱度

    1回答

    我已經創建了具有不同月份的多個工作表的用戶表單。我只能讓表格才能正確運行「Sheet7(July)」。我如何使工作簿中的所有工作表都可以工作?以下是我的表單代碼。謝謝 Private Sub CommandButton1_Click() 'Range("A").Value = tbdaterec 'Range("B").Value = tbdateres 'Range("C").Value

    0熱度

    2回答

    我認爲這並不複雜,但是作爲VBA新手,在Google和Google玩了幾天之後,我一直無法找到答案不同的代碼。 我有一個宏: 打開一個文件中的任何文件夾路徑被命名爲 搜索特定的文本文件中查找特定部分的開始,即A100 發現本節的結尾,即A110(根據文件長度可變) 將此範圍內的單元格複製並粘貼到另一個特定範圍,即O1:O10 使用複選框填充用戶窗體在這個新的可變長度範圍 每個小區我現在需要用戶點擊

    0熱度

    1回答

    Public Function LoadImage() As Object For Each pics In sheetImages.Shapes If (CStr(pics.Name) = CStr(currpartImage)) Then Me.ImagePreview.Picture =PictureFromShape(sheetImages.Shapes(

    -1熱度

    1回答

    有人可以幫助我嗎? 我有一個用戶窗體有一些數字字段。問題是我的Total框不會計算它們,因爲它將文本識別爲一個數字。所以例如,如果我要說HE.Value(10)+ ME.Value(10)例如應該= 20然而Total是來到1010.如果我*它,而是我收到一個錯誤調試,因爲它將該值識別爲文本格式。 我從來沒有在用戶窗體中出現過這個問題。有人能夠協助嗎? 感謝,

    0熱度

    1回答

    我用2個文本框,3個按鈕和一個帶有兩列的列表框創建了一個用戶窗體。如果我點擊列表框中的一個條目,所選的列表條目將被轉移到兩個不同的文本框。 請參見下面的代碼: Private Sub NewSourceListBox_Click() Dim i As Integer 'Show the selected data in the corresponding text boxes For i

    0熱度

    1回答

    我已經在新工作簿中創建了一個新項目Userform,並從另一個項目中複製了下面的代碼, 我將代碼複製到這個新的工作簿項目中,但即使在修改了文本框名稱後,我仍然收到運行時錯誤。 該代碼的用途是自動生成文本框中的工作訂單編號txt_Work_Order_No前綴爲「SWC」,然後按年份,月份和數字格式。最終輸出應該像這樣SWC201706-00001(每次打開表單時遞增)。 Private Sub U

    0熱度

    1回答

    我在userform中遇到問題。我有一個號碼comboboxes,它從各自的命名範圍中抽取它的rowsource。 如果我進入用戶表單並單擊提交而沒有選擇該組合框,我沒有任何問題,並且都經歷了出色的表現。如果命名的範圍被選中但留空,那麼當我點擊提交時,我收到錯誤「無效的屬性值」。我已經知道這與「Match Required」= True相關。然而我的問題。有沒有辦法阻止這個錯誤顯示和提交表單,如果

    -1熱度

    1回答

    我在excel中使用用戶窗體創建了一個歡迎筆記,每當我打開工作簿時,該窗體每次顯示6秒。我在該用戶表單上插入了一個超鏈接。但是,超鏈接不起作用。 我用下面的代碼在標籤.. Private Sub Label2_Click() Link = "https://www.healthindiatpa.com/" On Error GoTo NoCanDo Active