vba
在 Excel 中，如何使用完全限定的数字坐标（工作表、列、行）访问单元格？
我有 Excel 工作簿中某个单元格的索引：工作表、列、行（是的，我知道 Excel 喜欢基于 1 的索引。） 鉴于这些，我应该编写什么公式来获取该单元格的值？ ...
vba
vba
在 Excel VBA 中使用“工作表名称”而不是“选项卡名称”
(如何在 Excel VBA 中使用工作表名称而不是选项卡名称)？ 如何将选项卡的名称（“电气”）替换为实际的工作表名称（工作表 11）？每当我这样做时，它都不起作用，下面是有效的代码，只需使用工作表名称即可： Private Sub Worksheet_Change(ByVal Target As Excel.Range) With Target If .Address(False, False) = "D107" Then If IsEmpty(.Value) Then Application.EnableEvents = False .Formul...
vba
用变量代替 VBA 方法
我还是 VBA 新手，但我开始对事情有了更好的掌握。虽然我犯了一个愚蠢的错误，声明了一个与方法相同的变量。我声明了变量：Dim cellS As Range 但随后它替换了我的代码中该方法的所有实例Cells.，并返回了错误。因此，我将变量名称更改为，Scell并用新名称替换了代码中该方法的所有实例。但该方法仍然继续更改为，cellS而不是保持原样Cells.。 我甚至尝试删除代码中的该变量及其所有实例。没有变化。然后，我删除了代码中文本“单元格”的所有实例，但它仍然用 替换该方法cellS。 我不确定它仍然从哪里提取代码。我尝试将代码放入新模块，但没有任何...
vba
使用修改日期进行更新，而不是今天的日期
我对 VBA 代码完全是新手，但从我的谷歌搜索来看，我需要 VBA 来实现我所寻找的功能。我有一张工作表，其中有一个“注释”单元格，还有一个单独的单元格，其中包含此注释单元格上次更新的日期。我需要“更新日期”单元格（位于 D 列）自动更新注释单元格（H 列）更新的日期。我的 google-jitsu 只为我找到了今天的功能，但它不起作用，因为客户 X 的更新日期可能是今天，但客户 Y 可能是上周。 即，每当 H2 更新时 D2 也更新，每当 h3 更新时 d3 也更新，等等） 提前感谢大家！ ...
vba
查找最接近的匹配项（条件查找）
我正在尝试在 Excel (MacOS) 中进行条件查找。假设我有下面显示的表格，我想搜索 (type=alpha, length=165)。在表格中，没有完全匹配，因此我尝试对满足以下条件的行进行近似搜索： 条目的类型必须匹配。在本例中，条目必须具有 alpha 类型。 条目的长度必须在实际长度的 20 个单位之内。在本例中，实际长度为 165，因此条目的长度必须在 145 到 185 之间。 如果有多个条目满足条件，则返回长度最接近的条目。在本例中，第 1 行和第 2 行都符合条件，但第 2 行的长度最接近 165，因此选择第 2 行。 如果找到这样...
vba
从日期时间中删除日期（VBA Excel）
我需要从具有日期时间值的多行中删除日期。或者将时间提取到另一个单元格。 例如： A1 = 3/11/2022 10:20:00 A1 after macro = 10:20:00 or A1 = 3/11/2022 10:20:00 A2 = 10:20:00 如果我更改数字格式，单元格将显示时间 (10:20:00)，但单元格值仍为 3/11/2022 10:20:00。我需要批量上传的时间，因此需要删除日期。以下代码对我有用。但仅适用于一个单元格。例如，如果我将范围改为“A1:A5”，我会收到错误。 Sub ChangeDateToTime() Wit...
vba
连续相同条件的最大值或最小值匹配 Excel 或 VBA
连续匹配条件的最大值或最小值 各位朋友， 我正在寻求帮助解决 Excel 中的以下障碍。 我正在寻找一种解决方案，如果条件匹配连续单元格则找到最大值/最小值，请参阅上图。 我可以手动完成，但数据行数有数千行，希望找到一种方法通过 Excel 或 VBA 中的公式来完成它。 谢谢大家的帮助。 ...
vba
删除 .XLS 文件中的宏引用
我一直在研究如何使用 PowerShell 和 COM 对象删除 Excel 宏，并取得了成功，但是，我注意到对于 .XLS 文件，即使 VBA 模块本身已经消失，也有一个对我删除的宏名称的引用。如果我将 .XLS 文件另存为 .XLSX，它也会删除该宏，但当我将其保存回 .XLS 时，我仍然会找到一个引用（位于未存档的 VBA_VBA_PROJECT 文件中）。 有人知道如何删除引用吗？我没有发现与指向此引用的各种工作簿相关对象有太多交互。 例如，如果我从 .xlsb 文件中删除 VBA 模块，则不会保留任何引用。 短暂性脑缺血。 ...
vba
如何在 Excel 中突出显示以数字值结尾的单元格
我在一家图书馆工作，我接到一份报告，要求我根据某件物品的出版日期创建过期库存报告/书架清单。不幸的是，由于连续出版物的性质，出版日期是连续出版物的原始出版日期，而该特定副本的日期则放在索书号的末尾。这是编目工作，无法更改。示例： 我有 VBA 代码，它获取 IT 运行的数据库报告，按出版日期进行筛选，然后获取以某个杜威编号开头的索书号，并将它们放在自己的工作表中。在上面的图片示例中，这些项目的杜威编号介于 910 和 919 之间（地理、地图集和旅行），出版日期超过 5 年。由于我刚刚给出的连续出版物示例，一些较新的出版物最终在本报告中显示为较旧/过时。上...
vba
当使用“If 语句”时，代码返回类型不匹配
我有代码 Set wsDest = Workbooks.Open("G:\Manager Folder\Test\Leave Tracker Master.xlsx").Worksheets("Tracker") Set myrange1 = wsDest.Range("A:A") 'to be changed to select current range en = wsCopy.Range("c4").Value st = myrange1.Find(en) st1 = w...
vba
VBA 代码检查日期范围内每个日期是否存在条目
我需要 VBA 代码来检查日期范围内每个工作日的值是否存在条目 如果要搜索的值在 C4 中，而日期范围在工作簿 A 的 B7 和 B9 中，则它应该检查工作簿 B 中“跟踪器”工作表中的范围 A:E（其中要搜索的值在 A 列中，而各个日期在 E 列中），如果日期范围内的任何星期几值存在于范围 A:E 中，则它应该返回一个消息框。 即，如果 C4 中的值为 X 且 B7 和 B9 中的日期范围为 3/1/2022 和 3/10/2022，则它应该在工作簿 B 中范围 A:E 的 A 列中查找所有“X”个条目，并检查 E 列中是否存在每个工作日的相应条目，如果找...
vba
用于根据条件检查日期范围的宏
我需要 VBA 代码来对照另一张表中的表格检查日期范围内的每个工作日日期，如果任何一天的对应值 >9%，它应该返回一个消息框 即，在“休假申请模板”中，代码应检查 B7 和 B9 中给出的范围内的每个工作日，对照“休假追踪主表”中的“主”工作表，如果“总计”列中任何一个日期的对应值 >9%，则应返回一个消息框 我已经为其编写了以下代码，但是在运行代码时出现类型不匹配错误（代码 Vlookup 行中的错误） Dim wsDest As Worksheet Dim wsCheck As Worksheet Dim EmailApp As Outl...
vba
使用 VBA 在 Word 页眉中添加页码和文本时遇到问题
没有什么比一个需要一整晚才能解决的简单 VBA 问题更令人羞愧的了。我想在多页文档的页眉中添加页码。我已设置了正面/背面页面，并且主页上没有页眉。我想要像这样的东西 正面 | 标题卷| 背面 | 副标题版本 | 我试过多个版本的代码。这是我找到的最接近的版本。仍然不起作用。这是针对正面页面的。 ''' With ActiveDocument.Sections(1) _ .Headers(wdHeaderFooterPrimary).PageNumbers .NumberStyle = wdPageNumberStyleA...
vba
在 VBA 中，函数在期望整数时返回 #VALUE 错误
我想要一个函数，它可以循环遍历已关闭的工作簿，其中包含来自另一个工作簿的单元格的一些参数。目的是计算一个月内某些地点的人数。我#VALUE在工作表中传递参数时出错。 Option Explicit Public Function count(collega As Range, luogo As Range, mese As Range) As Integer Dim nomeMese As String Dim nomeLuogo As String Dim nomeCollega As String Dim rangeLuogo As String D...