Visual Basic for Applications（VBA）是一种用于编写宏的事件驱动的面向对象编程语言，用于整个Office套件以及其他应用程序。 VBA不等同于VB.NET或VBS;如果您在Visual Studio中工作，请使用[vb.net]。如果您的问题专门针对编程任何MS Office应用程序，请使用相应的标记：[excel]，[ms-access]，[ms-word]，[outlook]或[microsoft-project]。
选项比较数据库 私有子表单_AfterUpdate() 我刷新 结束子 私有子 MedicalCondition_AfterUpdate() 如果 Me.MedicalCondition = True 那么 ' 如果选择“是”，则启用
我有一个Excel表格，其中单元格A1-C20==INT(RAND()*10)。这是我的数据范围。单元格 E1=1、E2=2、E3=3 等。这些是我试图找到的值。我设置单元格 F1==MATCH(E1,A:C,0), F2==MATCH...
我正在使用 vba 来评估 2 列，并填充文本或根据 2 个日期之间的比较来更改颜色。看起来这应该很容易。 我对VBA不是很精通，所以我很挣扎......
无法在 VBA 中使用 Getdetailsof 获取 Microsoft Word 文档属性
显示程序名称属性的 Windows 资源管理器图像 我想获取一堆 Microsoft Word 文件的名为“程序名称”的属性。此属性在 Windows 资源管理器中可见。我
请允许我先说一下我没有接受过VBA 培训。我所有的 VBA 知识都来自搜索像这样的论坛。对于任何明显的疏忽，我深表歉意。 我有一个大...
创建 Outlook 电子邮件，并将不同工作表中的 Excel 命名范围和 3 个图表作为图像添加到电子邮件正文
我正在尝试修改@PeterT 的一些代码，它将图表作为图像添加到 Outlook 电子邮件中。他的代码非常适合将图表添加到电子邮件中，并且速度非常快（谢谢@PeterT！） 我是...
我正在尝试将计时器添加到powerpoint演示文稿中。一旦计时器耗尽，它应该移动到下一张幻灯片。 目前我的代码如下所示： 子倒计时() 昏暗时间作为日期 时间 = #1...
有一段时间，我和我的同事一直在使用各种方法创建模板来轻松制作志愿者职位空缺表格。 理想情况下，该项目的负责人应该只......
使用 Excel Visual Basic for Applications 创建 QR 码
我被要求对客户的 Excel 文件进行故障排除，因为二维码不起作用。 它是一个 .xlsm（启用宏）文件，可从数据库中提取数据并将其放入电子表格中。上...
以下回复： 文本 我想要一个 VBA 代码来将以希伯来字符编写的短字符串转换为 ChrW() 格式。 整个希伯来字母表的字符串，包括一个空格...
我可以通过 OLAP 数据透视表访问我们的数据库。我经常想根据多个客户号码（不连续）进行过滤。然而，客户名单太长了，以至于试图寻找......
我再次向各位编码天才寻求帮助。结局如此接近，我可以尝到它的味道。请注意，我对 VBA 编码非常陌生，在此之前，我从未编写过任何代码...
Worksheet.Protect AllowDeletingRows 不允许删除行
在我的工作簿中，我使用以下代码保护 Workbook_Open 上的所有工作表： ws.Protect 密码：=“密码”，UserInterFaceOnly：=True，_ 允许格式化列：=True，允许格式化行：=T...
有人可以帮我写一个vba代码吗？ 我必须从工作表 1 中复制一系列单元格并将它们粘贴到工作表 2 中，跳过第 5 行。 特别是复制范围为 A1:M45（45 行）。范围是固定的...
我提前抱歉，我只是不知道如何很好地表达我的问题。 我使用存储在 Excel 中的调查树木的信息。我使用 VBA 宏导入数据取得了一些成功......
为什么 VBA 编译器要求 For Each 迭代器的类型为 Variant？ 例如，这段代码会抛出错误： 公共子迭代测试（） Dim arr(1 到 4) 作为字符串 将 str 调暗为字符串 arr(1) = &
子ApplyFormulas() 昏暗的工作表 调暗最后一行只要 Dim newCol 只要 设置 ws = ThisWorkbook.Sheets("Sheet1") lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row 不...
我是一名网络开发人员，所以我对代码并不陌生，但我从不使用VBA。我编写了一个宏，我认为它会自动将任何 .xslx 保存为 pdf（除了 .xslx 之外）在同一目录中。这是...
我使用此代码多年，从 Outlook 导出选定的电子邮件。 选项显式 公共子 SaveMessageAsMsg() 出错时继续下一步 将 oMail 变暗为 Outlook.MailItem 将 objItem 调暗为
另一种替代 do-until 循环的方法，使代码执行速度更快
我需要有关如何使我的代码执行得更快的帮助。我有大量数据，我的“Do Until 循环”导致执行速度缓慢。我想知道是否有办法让我的代码运行得更快。我只是...