userform

    1熱度

    3回答

    我有一個用戶窗體,關閉時需要運行清理步驟。我希望X按鈕被禁用和/或不可見,但我仍然需要能夠卸載表單。我使用下面的代碼,但它也會阻止Unload Me。 'Disables closing via x button Sub UserForm_QueryClose(Cancel As Integer, ClsoeMode As Integer) If CloseMode = vbFormC

    3熱度

    1回答

    我有一個朋友在Excel中使用VBA項目。這個項目有很多表單彈出,並在電子表格被使用時執行各種功能。其中一些有複雜的Form_Initialize方法依賴於其他已經存在的東西(當項目按預期使用時,這不是問題)。 我們試圖在應用程序內的每個表單上打印出每個控件的名稱。我們的問題是VBA.UserForms集合只包含已經實例化的表單,我們不能在沒有執行它們的Form_Initialize方法的情況下實

    0熱度

    1回答

    我有兩個用戶窗體(Frm1,Frm2),每個窗體上都有一個圖像盒(Img1,Img2)和一個按鈕(Btn1,Btn2),然後我有兩個jpegs(jpg1,jpg2 ),請下載我的樣本,一個PowerPoint宏here 步驟: 運行 「主」 和Frm1中顯示出來(vbmodal) 點擊BTN1切換JPG1和JGP2文件上IMG1 單擊Img1以顯示Frm2 vbmodal,並且Img2應顯示與Im

    0熱度

    1回答

    我有一個Excel中的數據驅動工具,它有5個多頁面用戶表單。每個表單都包含多個數據字段(所有表單中都有250多個數據字段)。 13個控制組成每個領域。所以它們很大。 系統允許用戶通過單擊「顯示註釋」按鈕打開每個字段的註釋表單。它是連接起來使用基於類的事件,使用下面的代碼: Private Sub mShowGroup_Click() Dim fm As formCommentDispla

    1熱度

    3回答

    我想從具有4個複選框選項的用戶窗體中傳遞的值並將它們寫入單個並置單元格。 當我選擇我的窗體像這樣: 我想將其保存到這樣一個單元格: 我試着用以下完成這一代碼(見下文),但它不適用於逗號等,如果只有第二,第三或第四項沒有第一項選擇。我確信有更好的方法,但我無法弄清楚或在網上找到答案。 Private Sub cmdSave_Click() Dim colors As String

    0熱度

    2回答

    我有一個用戶窗體將從字段中提交數據到列A,B和C,但我需要它向下移動並在用戶每次提交時填充下一個空行。 這是我到目前爲止,我不知道我會投入使它所以它會從A2去/ B2/C2至A3/B3/C3等 Private Sub Submit_Click() Dim LastRow As Object Set LastRow = Sheet1.Range("a65536").End(xl

    0熱度

    1回答

    我自學vba,目前我正在爲我公司構建一個基於表單的庫存控制系統,該系統將材料轉換成定製尺寸。由於業務的定製性質取決於客戶,所使用的基材的尺寸等,在使用基材之後,可能存在無數不同的切割或成品。因此,很難知道該產品是否已經存在於數據庫(FinPriceList)中,而沒有實際滾動並查找它。因此,我正在尋找一種方法來檢查產品是否存在於FinPriceList表中(分別爲列A,B,C & D),使用vba

    0熱度

    1回答

    我試圖在EXCEL/VBA中創建一個用戶窗體,一旦選擇了commandbutton「forecast」,將允許您選擇一系列數據並將數據範圍複製到特定工作表,具體取決於tabstrip索引。 這是我迄今爲止的標籤欄的變化: Private Sub tbsMethod_Change() Dim tabIndex As Integer tabIndex = tbsMethod.SelectedIte

    0熱度

    1回答

    如何將來自ThisWorkbook的類對象傳遞給用戶窗體? 我收到下面的錯誤指出: 在的ThisWorkbook: Dim MainObject As MyClass Set MainObject = New MyClass Public Sub ShowMyForm() Dim frmMyForm as MyForm Set frmMyForm = New MyForm

    0熱度

    1回答

    我想知道如果有一個VBA代碼,我可以使用,如果列R中的日期是今天的日期,提醒框可以彈出並說「你有電話打」或沿着這些線?可能有許多日期相同,但只需打開工作表時打開的框以使員工查看其回叫列表。 我現在擁有的一切: 關於C在checkhere 如果c.Value =日期,那麼 MSGBOX 「你有一些回調,使」 退出對於 結束如果 下一個C Dim NewControl As CommandBarCon