Excel VBA - 将单元格中的日期与当前日期进行比较
(Excel 2010 VBA)我有一个单元格 (A1)，其中包含 mmm-yy 格式的日期(“自定义"类别).例如，如果我输入 1/6/13，则单元格显示 June-13.没关系.在我的 VB 宏中，我需要检查该日期是否为当前月份以及年份是否为当前年份.我不在乎这一天. 解决方案 感谢 Dave 和 MiVoth 我做到了: 将 xdate 调暗为日期xdate = Worksheet
..
vba相关内容
VBA Excel 比较两个列表的匹配项，在单独的工作表上输出结果
..
在 VBA 中比较字符串
我有基本的编程背景，多年来一直自给自足，但这个问题我似乎无法解决.我在 VBA 中有一个程序，我需要比较两个字符串.我尝试使用以下方法来比较下面的字符串，但无济于事: //假设 Cells(1, 1).Value = "Cat"将 A 调暗为字符串，B 调暗为字符串A="猫"B=单元格(1, 1).值如果 A=B 那么...如果 A 喜欢 B 那么...如果 StrCmp(A=B, 1)=0 那
..
使用数组比较两张纸
由于我拥有的数据量，我的代码非常慢(每张纸 10 分钟以上).我相信可能有一种方法可以使用数组来加速它，但我不确定如何去做.我将尝试详细解释情况. 我有两个工作表，其中包含发票#s、零件#s 和销售价格(以及其他信息)，我试图比较它们以找出差异.我使用发票# 和两张表上的零件# 的串联为每行数据创建了一个唯一编号.我还按该数字手动对两张纸进行了排序.我想找出哪些独特的#s 在 sheet1
..
比较两张excel表
如何比较两个excel表并确定缺少哪一列? (我想比较工作表 A 和工作表 B 中的国家列表，然后标出缺少哪个国家) 注意:它们的顺序是随机的. 解决方案 您可以在 Excel 工作表中使用 VLOOKUP 函数来帮助在不同的工作表中查找“缺失"的数据.例如，以下两个工作表: Sheet1------甲乙丙1个氨基酸2BB3 毫升4天 . Sheet2------甲乙丙1
..
VBA/VB6 集合到底是什么?
对于整数键，索引的速度是O(N)，所以它看起来像一个列表.但显然(wqw 在 Unable to proper loop through keys AND values in a VB6 For Each loop中的评论)字符串键的访问时间是 O(log(N))... 也许它是建立在单链表之上的树(索引列表元素)? 我努力获取有关此的文档，但我只能找到如何使用 Collection，而不是
..
Excel-VBA - VBA 中是否有类似 Javas Set 容器的东西?
在 VBA 中有没有类似 Java 的 Set 容器的东西?我找不到任何东西，而且 Google 似乎没有帮助，因为 set 是 VBA 中的保留作品. 任何想法都会很棒.现在我唯一的选择是字典或数组. 谢谢. 解决方案 VBA 有一个内置的“Collection"对象，许多人认为 MS Scripting Runtime 中的“Dictionary"对象足够标准，它本质上是其
..
两个范围之间的差异
我可以找到很多关于“Union"和“Intersect"VBA 方法的问题和示例，但我找不到关于“Set Difference"方法的任何内容?这是否存在(除了使用 union 和 intersect 的组合)? 我正在尝试找到一种简单的方法来获取所有 range1，不包括与 range2 重叠的任何 range1，而不知道任一范围的大小或形状. 任何帮助将不胜感激. 编辑.
..
Excel SortFields 添加然后排序
你能帮我理解这个片段吗: 首先好像是用 加了一个排序规则 MainSheet.Sort.SortFields.Clear对于 lI = 1 到 vSortKeys(0, 1)MainSheet.Sort.SortFields.Add Key:=Range(vSortKeys(lI, 1) & 2),SortOn:=xlSortOnValues, Order:=vSortKeys(lI,
..
运行时错误“1004":对象“_Global"的方法“范围"失败；简单的复制和粘贴
我只是试图做一个简单的剪切和粘贴来将 F:G 中的范围移动到 D 中的一个未占用的单元格，但我不断收到该错误消息.我的代码在模块中，我不知道我做错了什么！对 VBA 完全陌生.高亮部分:Range("F" & RowNum & ":G" & RowNum).Select Sub MoveCells(RowNum as Integer)范围(“F" & RowNum & “:G" & RowNum
..
VBA复制&动态范围粘贴
我是 VBA 新手，但我被困在某个地方.我必须将 A 列的最后一行复制到 H 列并将其粘贴到 I 列的最后一行.列的最后一行将始终更改. 例如;我的数据在 A2:H2 中，I5 是最后一个有数据的单元格. 我的代码应该是复制 A2:H2 并粘贴到 A3:H5.第二次运行宏(在我将新数据添加到各个列之后)它应该复制 A6:H6 并将其粘贴到 I 列的最后一行. 我写了两个不能满足我需求
..
通过vba excel按数字升序对包含字符串的范围进行排序
我有一个包含以下字符串的范围: step_1、step_10、step_3、step_2 使用以下代码 input_sh.Activate使用 ActiveSheet.Range("H2:H20").Select.Sort.SortFields.Clear.Sort.SortFields.Add Key:=Range("H2"), _SortOn:=xlSortOnValues, O
..
将变量连接成字符串以设置为 VBA 中的范围
..
两个范围数组的交集
我目前有两个数组，每个数组都包含范围.您将如何获得这两个数组的交集.换句话说，我想得到一个范围数组，它只包含两个原始数组中包含的范围.我尝试了 .Intersect ，但据我所知，这不适用于数组. array1: (Range("A1"),Range("B1"),Range("C1"))数组2:(范围(“A1")，范围(“A2")，范围(“A3")) 结果:(范围(“A1"))
..
尝试在单独的工作表中复制粘贴单元格时出现 VBA 运行时错误 1004
我目前在我的 VBA Excel 2007 代码中遇到以下错误:运行时错误“1004":对象“_Worksheet"的方法“范围"失败.在标题中出现了这个错误的很多问题之后，我还没有完全找到类似的情况或解决我的问题的方法.也就是说，没有将我的变量声明为公共的，我不想这样做，因为我在不同的子例程中多次使用相同的变量. 在线引发错误: AccDnn.Range(Cells(2, 71), Ce
..
运行时错误 1004 '无法获取数据透视表类的 PivotFields 属性'
我正在尝试使用代码来选择数据透视表中一个子标题下的所有行.我收到运行时错误 1004: 无法获取数据透视表类的 PivotFields 属性 从此代码: 子 ttest()将 pt 变暗为数据透视表设置 pt = Sheets("Report").PivotTables("PivotTable1")pt.PivotFields(“行标签").PivotItems(“CL").Dat
..
更新了 vba 代码，但它仍然给我一个下标超出范围的错误
这段代码仍然给我一个下标错误 子 importData2()ChDir "C:\Users\Desktop\Java"暗淡文件编号(0到10)只要文件编号(0)= 052文件编号(1)= 060文件编号(2)= 064文件编号(3)= 068文件编号(4)= 070文件编号(5)= 072文件编号(6)= 074文件编号(7)= 076文件编号(8)= 178文件编号(9)= 180文件编号(1
..
将 IF 条件应用于范围 Excel VBA
我已经写了这段代码，但它似乎不起作用，为什么? Dim oRo 作为字符串将 nRo 调暗为字符串Lastro = ActiveSheet.Cells(Rows.Count, 2).End(xlUp).RowoRo = "J2:O" &拉斯特罗nRo = "Q2:V" &拉斯特罗Range("C2:G" & Lastro).Select范围(“C2:G"和Lastro).Range("C2:G"
..
在 VBA 中使用范围数组 - Excel
VBA 是否支持使用范围变量数组? dim rangeArray() as range昏暗计数为整数将 i 调暗为整数计数 = 3redim rangeArray(1 计数)对于 i = 1 计数msgbox rangeArray(i).cells(1,1).value下一个 我无法让它在这种类型的应用程序中工作.我想以特定顺序存储一系列范围作为“主副本".然后我可以对这个数组进行添加、删除、
..
此 Excel VBA 脚本中的下标超出范围错误
我想将 CSV 文件中的数据复制到 Excel 工作表中.有 11 个 .csv 文件.到目前为止，我有这个(它是以前帖子的修改版本): 子 importData()暗淡文件编号(0到10)只要文件编号(0)= 052文件编号(1)= 060文件编号(2)= 064文件编号(3)= 068文件编号(4)= 070文件编号(5)= 072文件编号(6)= 074文件编号(7)= 076文件编号(8
..