userform

    0熱度

    2回答

    我有一個工作簿,其中包含客戶端信息。每個客戶都有一張工作表,每張工作表都標有客戶的唯一ID。我想要啓動一個UserForm,用戶將從cobo box中選擇一個客戶端。然後,來自相應工作表最後一行的數據填充UserForm。 在同一工作簿中的其他代碼中,我使用的是腳本字典,但這些字典都與特定工作表中的特定範圍相關聯。我不知道如何編寫UserForm以在所有工作表中搜索與cobo_ClientID字段

    0熱度

    1回答

    我目前正在制定一個用戶窗體來創建一個公司用戶發送到我的部門的訂單。 目前我陷入了僵局,因爲我正在努力解決以下問題。 我有一個組合框,它有我們業務提供的產品列表。基於選擇,我希望能夠添加要求用戶輸入數據的標籤和文本框。 如果選擇在組合框中,然後 輸入名稱,要求的日期,用戶等位置 而且這需要具體到組合框的選擇。 任何幫助,將不勝感激:) UPDATE 道歉,因爲我沒有該功能我沒加任何這裏是我的代碼有任

    0熱度

    2回答

    我需要向EXCEL VBA中正在處理的用戶表單添加一個Reset按鈕。我有以下代碼可以完成大部分工作,但是,我還沒有弄清楚如何清除refedit控件。這是我到目前爲止有: === 'Reset Button Private Sub CommandButton2_Click() For Each ctrl In Me.Controls Select Case TypeNa

    0熱度

    1回答

    我有一個名爲BAF_User與2個字段(BAFUser,BRID)在Access中的用戶窗體。 我使用下面的代碼來獲取Windows用戶名,然後使用DLookup進行比較,並獲取登錄到Access文件的用戶的全名。 Option Compare Database Public Function GetUserName() As String Dim wshNet As Object Dim

    0熱度

    1回答

    我有3「頂層」的頁面(使用多頁的功能),然後加入4-嵌套頁的每個內的頂層頁的2的單個用戶窗體。見下面的示例圖片。我在編程上引用嵌套頁面時遇到困難。 Screenshot of Nested Multipage Userform 在這個例子中,頁面標題和名字是相同的。因此,帶有Page4標題的頁面也被命名爲Page4。我發現,應該返回頁面索引時,頁面名稱傳遞給它別人的代碼在線: === 功能fMpI

    0熱度

    1回答

    我有一個Excel表單,其數據使用outline方法分組。 我有問題定義從組開始到組結束的範圍。 我有這樣的數據在userform填充listbox。 如果用戶選擇此組中的任何項目刪除我需要刪除整個組。 我想我已經在想它,但是有沒有一種很好的方法來定義這個範圍? 這裏是我開始用下面 `Sub delrows() Dim StartRow As Integer Dim EndRow As Int

    -1熱度

    3回答

    我在Excel 2016中創建了一個使用UDF的UserForm;我希望能夠在沒有打開Excel表的情況下運行UserForm,並允許在工具處於活動狀態的同時打開和操作其他Excel工作簿。我找到了一些解決方案說要使用以下命令: Private Sub MyForm_Initialize() Application.Visible = False UserForm1.Activ

    0熱度

    2回答

    我在VBA中遇到問題,我想根據組合框值獲取文件夾的路徑。 看,我有稱爲「TAG」 Excel工作表,其中在他的第一列我有很多的值,像P36300000,C36300001等(圖像下方) 我已經創建了一個宏循環瀏覽表單欄並根據每個單元格值創建一個文件夾。 的「P」是指它的主項,而「C」意味着它是項目的只是一個組成部分。 即,它創建包含P36300000文件夾:3C6300001,C36300002,

    0熱度

    2回答

    我不知道如何用這種語言編程,所以我不得不依賴Google。從這裏到那邊拿點東西,我懷疑我有兩個目前不適合的謎題。我越來越runtime error 9 subscript out of range因爲這行: ThisWorkbook.Sheets("Sheet4").Range("c2").End(xlDown).Select = myVar 這裏是我的代碼: Dim iRow As Long

    1熱度

    1回答

    如果選中該複選框,則此代碼用於放置單詞「New」,以及✓選中標記(如果未選中)。 If CheckBox2.Value = False Then Cells(3, 3) = ChrW(&H2713) # <-- checkmark ✓ Else: Cells(3, 3) = "New" End If 然而,目前,這只是地方的「新」字,如果複選框被選中,但如果不是選擇它,它不會將一個✓勾選