vba

    0熱度

    1回答

    I am trying to create a tool that will get All objects from a webpage including its valid xpaths. For example: In a Login Page where the following objects are usually seen: username textbox pas

    1熱度

    1回答

    我有表在Microsoft Access應用程序 ,並以這樣的形式我有2個組合框,一個顯示顯示查詢的名稱日期和一個 另外,我有,我想動態顯示錶,基於什麼用戶在組合框中選擇我想要實現 舉例子窗體: Private Sub Form_Load() Select Case comboBoxQueries.value Case comboBoxQueries.value = query1 My

    0熱度

    2回答

    所以我是VBA的新手,並試圖在工作項目中發現某些東西,這會讓我瘋狂。 我有一個宏來清理我的數據並把它放到一個表中,然後我正在處理一個宏來獲取該表並將其轉換爲數據透視表/圖表。第一個宏在電子表格「DailyData」上創建Table1。作爲參考,那就是: Sub Format_Table() Dim target As Worksheet Set target = ThisWorkbook.Wo

    -1熱度

    1回答

    我不知道這是否有意義,但可以在沒有工作簿或Excel.Application對象的情況下創建/編輯Excel工作表對象?

    1熱度

    2回答

    我想寫一個簡單的Excel VBA函數從給定的單元格中取一個數字並分配一個等級,然後在當前活動單元格中寫入該值。 Public Function Grade(rng As Range) Dim number As Double number = rng.Value If number >= 75 Then ActiveCell.Value = "A"

    0熱度

    2回答

    我有以下VBA代碼複製現有工作表數據到新的工作表,它的正常工作,但它不會複製工作表中的圖片文件(eg.jpg),我怎麼能複製圖片文件好?謝謝。 Set source2 = Worksheets("today").Range("A5:l68") Sheets.Add After:=Sheets(Sheets.Count) Set dest2 = ActiveWorkbook

    1熱度

    2回答

    我需要檢查列(X:X)中的單元格是否重複,並且如果另一列中的單元格(AB:AB)爲0,並且如果條件匹配,則以顏色突出顯示相應的行。這是我有什麼,但它不工作.. Dim cell1 As Variant, myrngg1 As Range, clr1 As Long Set myrngg1 = Range("X1:X" & Cells(Rows.count, "X").End(xlUp).Row)

    0熱度

    2回答

    嘗試使用此vlookup時出現此錯誤1004。我使用一個窗口來選擇一個文件,然後在vlookup中使用該文件。我在另一個宏中使用它,我使用了基本相同的代碼。但由於某種原因,這一個不工作。任何人都可以看到任何明顯的問題?我無法弄清楚我做錯了什麼。 我上第一VLOOKUP公式錯誤後右側的「使​​用WS」 Dim iRet As Integer Dim strPrompt As String Dim

    1熱度

    1回答

    排序功能的內存分配我最近完成了一些代碼,通過我在Excel中的所有圖紙循環,然後對其進行排序基於特定的列和 的代碼如下所示該列中的值: Sub sortingByLooping() Dim rngName As Range Dim sht As Worksheet Dim LastRow As Long Application.ScreenUpdating

    1熱度

    1回答

    我試過並通過vba論壇進行搜索以找出如何糾正我的代碼(下面)來搜索特定目錄及其子目錄中的文件列出並填充文件名列表,文件名長度爲20個字符,只是pdf擴展名。 我想還沒有在A列中沒有擴展名在年底和全文件路徑和名稱在列B 還試圖創建的列表,然後又上升的所有文件進行排序,但沒有成功,列出文件:( 任何幫助,感謝 Sub ListPDF() Range("A:L").ClearContents Ra