autofilter

    1熱度

    2回答

    問題: 我的代碼總是返回,而不是13 代碼一行: Excel.Application xlApp = null; Excel.Workbook xlWorkBook = null; Excel.Worksheet xlWorkSheet = null; Excel.Range xlrange = null; string sCurrentDir = Directory.GetCurren

    0熱度

    1回答

    我需要在Excel工作表上的列上控制簡單的自動過濾器。 經過研究,似乎沒有特定的事件發生時,這樣的過濾器發生了變化。所以這裏想到的唯一事件是.Calculate事件,但我不確定在這裏可靠。 作爲一種替代方法,是否有一種方法可以計算特定濾鏡中已選擇了多少項? 在我的情況下,我只需要捕獲如果超過1項已被選中在過濾器(但不是全部)。 既然看起來我不能阻止或限制這個,我會至少喜歡顯示一條警告信息。 有人可

    0熱度

    1回答

    我在這個項目上工作,我有一張彙總表和一張數據表,我想每週將一份單獨的報告的原始數據放入數據表中,並通過我需要的內容進行篩選並複製到彙總表。 代碼的開始只是每次清除新運行的單元格。我遇到的問題是一個自動篩選條件,它是彙總表中的單元格值。它是一個下拉框,當更改時,將不同的數據複製到彙總表。這是我的代碼。預先感謝您的任何建議! Sub Macro3() Sheets("Summary").Se

    1熱度

    1回答

    我有一個excel文件,其中包含一行過濾器。 我我的Excel文件轉換爲HTML表這樣的: $excel = glob(''.$path'.{xlsx,xls,xlsm,xlsm.ink}', GLOB_BRACE); $filterSubset = new \PHPExcel_Reader_DefaultReadFilter('A','N'); $objReader = \

    0熱度

    1回答

    我想使用VBA將轉儲表篩選2列,並從同一工作簿中不同工作表中的值獲取條件。 使用的代碼是: Sub FilterOnCellValue() With Sheets("Dump") .Range("A1:Z10000").AutoFilter Field:=9, Criteria1:=Sheets("ControlPlanning").Range("C1").Value, Field:

    0熱度

    1回答

    對於僅包含數字的一些數據,我想過濾保留數據< -1或> 1。 我已經看到了很多關於排除特定值的主題,但它不匹配,因爲我的值可能是無限的。 我試過這段代碼: length = Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row ThisWorkbook.Sheets("Sheet1").Ran

    1熱度

    2回答

    我一直在尋找一個解決方案,並找不到任何網上的東西,完全解釋發生了什麼事情。我看了一些其他的帖子,但他們似乎都有所欠缺。 當我運行這段代碼時,它完美地工作(因爲它被記錄下來)。 ActiveSheet.Range("$A$1:$AL$1002").AutoFilter Field:=17, Criteria1:=Array(_ "73578", "78759", "78765"), Ope

    1熱度

    1回答

    我想根據另一個選項卡上的多個單元格的值來過濾列表,但我無法讓它正常工作。 這是我得到: ActiveSheet.Range("$A$2:$Y$129").AutoFilter Field:=13, Criteria1:=Range("Formulas!A8:A10").Value 的問題是,它的工作原理與1個單元,但不作爲多我曾嘗試與範圍A8做:A10。現在的代碼只在最後定義的單元格上過濾

    -3熱度

    2回答

    我在電子表格中有一些數據可以通過列A進行過濾。只有每種類型行的第一行具有所需的格式。 Data 過濾後,我需要的格式從第一行復制到它(唯一可見的細胞)粘貼到範圍的其餘部分。 運行宏應後的最終結果是: Data after macro 我堅持,我無法找到符合該網什麼。任何人都可以幫忙嗎? 我已成功地複製值和格式,但不是唯一的格式: Sub Repair() Dim i As Integer Di

    -1熱度

    1回答

    我目前正在使用一些宏,我對這段重新錄製的VBA代碼感到困惑。此問題只出現在此工作簿中,並不會在其他工作簿中出現。問題是與這條線: sh1.Range("$A$21:$ZZ$10000").AutoFilter Field:=64, Criteria1:="<>" .AutoFilter Field:=64實際上不過濾第64列。宏運行時,它會影響第65列。 Sub FilterGate()