vba

    0熱度

    2回答

    我無法弄清楚爲什麼這個表述不起作用。 Rng = Worksheets(sheetName).ListObjects(table).Range.Select 我有一個片材「sheetX」與調用在全局工作區「的ThisWorkbook」子進程「export_json」的按鈕。我希望「Thisworkbook」中的子進程在「A2」的「sheetX」中引用一個表格範圍,但它會給出「應用程序定義或對象

    0熱度

    2回答

    我有一張表格中的公司名稱列表,並且我需要通過此數據表格中的此列表將公司名稱和數據複製到工作表表。我建立了一個代碼,它爲每個公司提供了15次代碼,我會非常高興能找到我一個特定的循環,它將搜索特定工作表並複製我需要的數據。 這裏是15碼到每片2的樣品: Sheets("Comapny1").Activate Range("H2").End(xlDown).Select Range(Selectio

    -5熱度

    1回答

    我沒有使用宏/ vba的經驗。 正如你可以看到所有A列有PINK TEAM標籤,但不同類別(網球,游泳,排球)。在我的電子表格中,有很多粉色團隊標籤一直向下,但有不同的類別(網球,游泳等)。我希望能夠添加名稱,例如添加Remy到粉紅隊網球,並且所有帶PINK球隊/網球的單元都應該能夠自動在列C上添加REMY。 我該怎麼做?

    0熱度

    2回答

    我需要你幫忙解決我在Excel 2016中遇到的這個問題(英文)。 我havea大量的數據,結構是這樣的: code_red value_1 code_green value_2 code_green value_3 code_green value_4 code_green value_5 code_blue value_6 我需要使用的功能,可以讓我得到: code_red va

    -1熱度

    2回答

    我有一些問題得到這個代碼來設置工作表我可以想象它,因爲我不dim它,但我已經嘗試與dim as workbook不起作用。 我試着走一步一步,「thf」有正確的字符串在裏面。 Sub CreateSheet() Set tsheet = ThisWorkbook.Sheets("For Save") Dim th As String Dim thf As String

    0熱度

    2回答

    你好,我在LotusScript中有如下的二維數組。 Counter = 0 While Not (ProcessingViewDoc Is Nothing) Redim Preserve AllRecrods(Counter,0) AllRecrods(Counter,0) = ProcessingViewDoc.Test1(0) Redim Preserve A

    0熱度

    1回答

    我需要您的幫助:-) 我需要檢查HTML代碼中是否存在具有「提交」ID的標記。 我這樣做: If Not oie.Document.getelementbyid("submit") Is Nothing Then MsgBox oie.Document.getelementbyid("submit") Else: MsgBox "not found" End If 但是這樣的檢查將正常工

    1熱度

    2回答

    此代碼是用Excel2010 VBA內部組件和查詢,PostgreSQL表 我在VBA下面的代碼創建,我想在我的SQL查詢中使用一個變量,但我不能讓使用IN子句接受VBA變量的SQL查詢 此代碼創建我想要使用的變量並且正常工作。這使我可以選擇特定的細胞,我需要查詢SelectedID = 6,7,8,6452 我現在想要將它添加到使用IN子句我的查詢,但它的 Dim StaffID As Rang

    -1熱度

    2回答

    有人可以告訴我這是什麼做行: ActiveSheet.Range("AH1").FormulaArray = "=iferror(MATCH(1,(plan!T3:T20000=AF1)* (plan!W3:W20000=MONTH(E1)),0),0)+2" 計劃表在我的Excel文件的名稱。提前致謝。

    0熱度

    1回答

    我正在嘗試在VBA程序中配置SQL UPDATE查詢。 基本上,我從一個關閉的工作簿中的表中更新當前工作簿中的一個表。這個偉大的工程使用下面的查詢只,如果源工作簿是一個.xls文件: Sub UPDATEQUERY(SourcePath As String, SourceSheet As String, TargetSheet As String, _ Columns As String, Fi