AutoFilter返回正确的结果，但是当SpecialCells（xlCellTypeVisible）.value，excel只返回一半的记录
这是我的代码 openWs.AutoFilterMode = False 范围（“A1”）。AutoFilter字段： = 1，Criteria1：= _ “> =”& date1，Operator：= xlAnd，Criteria2：=“
..
excel-2013相关内容
使用字符串变量来设置VBA中的对象变量？ （Excel 2013）
我在页面上有一些ActiveX控件/按钮，我想修改按钮的几个参数（在循环函数中）。 我很好，编写循环函数来实现这一点，但是找不到一种使用字符串变量来引用对象的方法。我已经设置了一个对象变量（如下所示）和一个用于更改对象变量引用的字符串变量 - 但找不到一种方法来使其变得正常工作。 这是不工作的代码： Private Sub TrialCode_Click （） Dim B
..
导入多个文本文件以分离现有工作簿中的工作表
我有一个excel文件（2013）（例如 test.xlsm ）。 excel文件包含具有基于文本文件的每月更新的图表和数据透视表的工作表。我需要一个VBA代码，可以从本地驱动器（从服务器导入）中导入多个文本文件，并将它们附加到这个excel文件的末尾（类似于文本文件名称的表格）。每个月，当我导入文本文件时，必须用新文件替换这些数据表。 问题： 我在这个链接中找到了VBA代码！它工作完
..
VBA：将多个值传递给Instr
现在，我有一长串用户通过表单提交的“行业”值。我已经编写了一个宏，它将搜索这些值中的特定术语，并粘贴符合我明显较小的“可接受”行业值列表的值。关键是将用户所提交的所有当前行业价值重新分类到我现有的分类中。这就是我的If-Then语句现在的样子： 如果InStr（1，Cells（i，“A” ）。值，“能量”）> 0或InStr（1，Cells（i，“A”）。Value，“Electricity
..
AddChart2 VBA宏中的数字代表什么？
我已经使用我的Excel 2013来记录一个宏插入一个图表，一个列聚集的图表在我的情况。在视图代码选项中，它显示了一行代码如下： ActiveSheet.Shapes.Addchart2（286，xl3DColumnClustered）请选择 请帮助我，因为我不明白286代表什么。我知道Addchart2的语法是： expression.AddChart2（Sty
..
状态栏进度表未显示消息
我已经进行了一些研究和开发工作，发现此为我想使用的类型。 我遇到的问题是进度条不会在状态栏中移动，也不会移动第一个和最后一个消息，即“工作“和”提取的所有文件“未显示。我在哪里出错？ Private Sub btnFetchFiles_Click（） Dim j As Integer iRow = 20 fPath =“\\c\s\CAF1\Dragon Mento
..
Excel VBA的Rnd（）真的很糟吗？
我需要一个用于2D蒙特卡罗模拟的伪随机数生成器，其不具有使用简单LCG获得的特征超平面。我使用以下代码测试了Excel 2013中的随机数生成器Rnd（）（运行大约需要5秒）： Sub ZoomRNG（） 随机化 对于i = 1到1000 Found = False Do x = Rnd（）'0和0.0之间的2个随机数 y = Rnd（） 如果（（x> 0.5）And（x 如
..
excel vba不正确地将页面导出为pdf
我有一个代码，将工作表格式化到所需的设置和布局（一页宽，高景深）。当我运行代码（长宏的一部分）时，它正确地格式化pagesetup。 如果我手动导出并将其保存为pdf，那么它将使用正确的页面设置，生成一个横向的PDF页面。但是，由于VBA的出口量相同，所以产生的PDF格式是几页长的，并且是纵向的。 我不知道为什么这样做这个。我已经尝试过各种解决方案，例如在导出工作表之前选择工作表，但都
..
查找大于或等于某个值的所有值
假设我有下表。 团队得分 AA 81 BB 67 CC 44 DD 1.5 JJ 279 LL 49 TT 201 GG 158 MM 32 HH 89 我想让所有在另一张桌子上得分超过80的球队。我尝试了Index + Match函数如下，但它只给出了大于80的最小值。 这里是代码： = INDEX（$ A $ 2
..
根据表中的Month标题查找单元格数据
我正在尝试创建一个用于数据验证的小型电子表格。 下面我创建了两个表，表1和表2。 我正在寻找的是一个简单的=索引匹配或类似的检查当前月然后将该值复制到相应的组行验证。 问题是这几个月是一个标题行，我不知道如何检查标题行正确的一个月将其中的单元格中的值输出到输出列表中的每个对应组。 所以把它放在编程术语中，这就是我想要的东西 如果A2 = Table2 [Header]然后
..
Excel中的嵌套IF函数不工作
我有一个很大的excel文档，有很多的vlookup，如果函数等。在我的一些选项卡中，我无法让我的IF功能工作，我检查了我的逻辑10次。我似乎无法弄清楚为什么excel在一定条件下停止，而不是检查其余的巢。以下是数据样本如下： AE AI AL AM AN DateResolved DateCreated响应时间虚拟响应时间桶 1/7/2016 1/1/2016 6 - 0-7
..
如何计算Excel中的行组的五分之一？
我在如何计算Excel中每一行的五分位数？我想为每行导出相同的五分位数据，但是我需要五分位数基于由另一列中的值确定的组。 解决方案 使用以下公式： = MAX（1，ROUNDUP（10 * PERCENTRANK（$ C：$ C，$ C2,4），0）） 将值10更改为您需要的任意数量的组 - 目前正在制作十进制组。将$ C：$ C更改为具有目标值范围的列，并将$ C
..
基于标题值的列的条件格式
我有几列，其中来自第7行的数据根据从第6行中的下拉菜单进行的选择而变化。这些选项中的大多数将导致出现基于文本或数字的值，但是其中两个将需要为格式化为货币。 基本上我想要的是一个条件格式化公式，说：如果任何列中的第六行具有“隐含单位费率”或“年度预算”的值，则将该列中的第7行及以后的格式作为货币格式。 我可以获得这通过创建两个单独的条件格式化公式并将其应用于整个区域来工作，但似乎应该
..
sas导出后excel公式不更新
我正在运行一个SAS程序，在Excel工作簿中更新两个工作表。该工作簿包含第三个工作表，它只是指向SAS导出工作表中单元格的公式。每当我使用新值重新运行程序时，表3中的公式都不会更新其值。 一个例子是这样的：sheet1 a1 = 2，sheet2 a1 = 3，sheet3 a1 = sheet1！$ a $ 1 + sheet2！$ a $ 1（显示5） 我重新运行SAS导出将前两个值
..
在Excel中使用索引和匹配VBA VLookup功能
我有一个excel公式，我经常使用一个 VLookup 。它有一个嵌入的索引/匹配，它给出了“M”列中的最后一个数值。 工作表公式是这样的： = VLOOKUP（INDEX（$ M $ 10：$ M75，MATCH （9.99999999999999E + 307，$ M $ 10：$ M75）），数据，4） code> $ M75 是此公式所在行的单元格。列M中有
..
动态范围再次 - 与文本字符串
我有一系列数据集（稍后用于填充组合框），我已经尝试设置动态范围，仅列出具有有用数据的单元格。总共有160行数据，但是要填充的行数会有很大的变化。 如果它对它有影响（如果动态范围检测“”不为空，例如）用于填充范围内的单元格的公式是 {= IF（ROW（） - ROW（StartPort_NoBlanks）+ 1> ROWS（StartPort_Blanks）-COUNTBLAN
..
删除以某些字符开头的整个单词的公式
我想要一个公式，搜索所有出现的 http 的字符串，并删除整个链接。例如： 这是有史以来最好的故事http://www.usatoday.com确保阅读两次。 http://www.usatoday.com/image.jpg 将成为： 这是最好的故事，确保读取两次。 从我所看到的，应该这样做： = TRIM（LEFT（A1，FIND（“
..
如果所有单元都为零，请删除整个excel列
我是一个非常初学者的excel和VBA（虽然我有一些VB.Net的经验）。 有一个大的excel表与许多列，所有数值 - 如何删除所有只有零值的列？ 谢谢！ 解决方案 尝试一下： Sub ColumnKiller（） Dim wf As WorksheetFunction 设置wf =应用程序.WorksheetFunction Dim N As Long，L
..
搜索列连续值，并将三个不同的值返回给其他单元格
我有一系列的列。一个包含数据点的时间戳，下一个是数据点，之后是数据点的从十进制转换为二进制，其余列是分割为每个位的二进制字符串。每列都有一个标题：“无引擎速度”，“引擎降级”等。 这是我要做的，但没有与VBA / Excel做的技能。我试图把所有的信息，并把它放在一个读者更友好的东西。 所以，例如： 会得到我的： 描述来自列标题和时间范围开始/结束将来自第一列。根据描述列的
..
添加数字直到达到值
我想在一个单元格（A1）中有一个阈值，并将其作为添加单元格的参考。 假设我有 A1 - 10 A2 - 4 A3 - 2 A4 - 3 A5 - 4 A6 - 6 我想添加基于A1（阈值）的单元格。 由于A1为10，应添加A6：A5的单元格 - 结果：10 如果A1为6，则应返回单元格A6。结果：6 如果A1为16，则应添加来自A6
..