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()