excel-vba

    1熱度

    1回答

    我想刪除整個行,如果列A中的任何單元格爲空。 此外,此代碼應在同一工作簿中的兩個特定工作表上運行(即「ATM SLA可用性報告」&「事故報告」)。 以下是我的代碼。當我運行它時,它給了我運行時錯誤9。 Sub test() Worksheets("ATM SLA Availability Report").Range("A:A").SpecialCells(xlCellTypeBlank

    0熱度

    1回答

    我有一個按年,季和月分段的數據透視表。但是,如果我嘗試 以擴大2015年的一個季度,則會顯示所有其他年份的相應季度 。我怎樣才能只擴展一個季度 一年? - https://superuser.com/questions/1049881/expanding-specific-sections-of-a-pivot-table-in-excel 這個問題沒有得到答案,但是這不是一個編程論壇。我有一個類

    0熱度

    2回答

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

    0熱度

    1回答

    所以我有一張表格來跟蹤員工的工作效率。每行代表一天,每個人有四列。 目前我在每週結束時都有一行爲四列中的每一列拉出「平均總數」。我注意到,如果這個人因病休假而外出計算,它會計算錯誤,因爲零或0%計算在平均值內。所以我試圖修改公式,以使用Find &替換計算基於其他平均總計的百分比。 我的問題是,我可以使用通配符'查找'=AVERAGE(D***:D***),但我不知道如何替換我的新公式中的行號,而

    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回答

    我有一個宏代碼,但它運行在特定的列上,範圍僅爲500。我希望它應該動態選擇標題欄'PRODUCTS'存在。如果可能的話,我們可以增加「產品」欄中所有數據的限制500。 Sub Pats() myCheck = MsgBox("Do you have Patent Numbers in Column - B ?", vbYesNo) If myCheck = vbNo Then Exi

    0熱度

    1回答

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