问题标签 [vba7]

For questions regarding programming in ECMAScript (JavaScript/JS) and its various dialects/implementations (excluding ActionScript). Note JavaScript is NOT the same as Java! Please include all relevant tags on your question; e.g., [node.js], [jquery], [json], [reactjs], [angular], [ember.js], [vue.js], [typescript], [svelte], etc.

0 投票
1 回答
47 浏览

excel - 为什么我的 VBA 仅在某些部分停止工作?

最近 VBA 已停止工作。B通常,当您在column 中输入数据时,它会自动将今天的日期填充到 column 中C,并且R当您在 column 中输入数据时,它还会将今天的日期填充到 column 中K

我最近搞砸了保护床单,最后放弃了,我觉得这与它有关。

这很奇怪,因为 VBA 的其他区域仍然有效。

如何解决这个问题,以便 VBA 仍然自动填充它需要的列?

0 投票
1 回答
47 浏览

vba7 - 如何使 PowerPoint 图表自动更新?

我有一个演示文稿,我想在演示文稿模式下连续循环并自动更新演示文稿中的图表。我发现您可以使用链接来执行此操作,但是一旦您关闭 .ppt 或 .xls 链接就不再自动更新。

为了解决这个问题,我从互联网上分析了一个我认为可行的宏。我只是在创建触发事件时遇到问题。我发现这个网站为我指明了正确的方向(我认为),我只是不知道如何处理它。“http://youpresent.co.uk/powerpoint-application-events-in-vba/” 该网站有一个我下载的 .pptm,其中包含以下大部分代码。任何帮助将不胜感激。

有人对此有解决方案吗?我对任何建议都持开放态度。

我目前的模块是:

我有一个类模块clsAppEvents

0 投票
0 回答
24 浏览

excel - 无法在 Onedrive 位置添加和保存新工作簿

我的 vba 代码有问题,感觉很奇怪。我正在尝试在使用 Mkdir 函数创建的特定文件夹中添加一个新工作簿。我允许用户创建文件夹并在其中一个文件夹中创建这个新工作簿。当我将文件夹保存在本地桌面时,该代码有效。但是,当我将文件夹保存在保存在本地目录中的 OneDrive 位置(不通过浏览器访问)时,它会引发运行时错误 - “对象 '_Workbook' 的方法 'SaveAs' 失败”。当我到达 NwBook.SaveAs FileName:=NewFldrPath2 & InputFrmFormat, FileFormat:=xlOpenXMLWorkbook 时会发生这种情况。更奇怪的是,当进入调试器模式并尝试逐行执行时,代码工作正常。

0 投票
1 回答
31 浏览

excel - 如果相应单元格包含“过期”一词,如何向特定收件人发送电子邮件?

我有一个电子邮件地址列表,但我只需要向相应单元格中“过期”的个人发送电子邮件。单击按钮时,它会打开多个 Outlook 窗口。

这是我到目前为止所拥有的:

0 投票
1 回答
145 浏览

vba - 将页码添加到目录 Visio [VBA]

我在下面提供了我的代码。现在,我的代码中有一个错误。我希望页码按顺序为每页列出 1、2、3、4、5,但它却像 5、5、5、5、5 一样列出。

可能是因为我添加的代码:

这是完整的代码:

0 投票
1 回答
34 浏览

sql - 如何在 MS Access VBA 中过滤 3 个文本框,然后根据它们运行报告

我有 3 个组合框:

  1. 公司 - cboCOMP - tblCOMPANY
  2. 类别 - cboCAT - tblCATEGORY
  3. 舰队编号 - cboFLT - tblFLEET_NO

然后通过 cboCOMP 使用 tblFLEET_SETUP 的行源对这些(1&2)进行排序(标准)选择了一个值。

基本上我希望组合框(1,2 和 3)在下拉列表中显示它们各自的完整选项列表,即使 cboCOMP 没有选择值但我希望组合框根据每个单独的组合框进行过滤因此。这可能,我将如何做到这一点?

一旦我选择了我想要过滤的值,我将单击运行报告,但每次我执行唯一的组合框时,都会在运行报告时给我一个错误,那就是我为 cboFLT 选择了一个值。如果我将 cboFLT 留空,但在其他 2 个组合框中输入一个值,则报告运行良好。这是我为此使用的 vba 代码……</p>

错误代码是“

运行时错误 '3705':查询表达式 'COMPANY = 'JB' 和 CATEGORY = 'SOAP' 和 FLEET NO = 'Q 16'' 中的语法错误(缺少运算符)。

当我单击调试时,代码中的错误行是:
DoCmd.OpenReport "rptQuick_Fuel_Report", acViewPreview, , filter

0 投票
1 回答
47 浏览

vba - 两张表过滤数据结果仅选择性列复制粘贴到另一张表数据粘贴时不应替换

你能帮我解决这个小问题吗:让我解释一下我有一个包含多张工作表的工作簿

过滤苹果表列A结果一一复制几列粘贴到相应列中的相应给定表

并且同样需要为橙色结果一一复制几列粘贴到相应列中的相应给定工作表:这里它正在替换从Apple工作表复制的数据

您能否在粘贴时帮助我数据应该考虑该列的最后一行,我尝试了所有可能的方法仍然数据被替换

0 投票
3 回答
123 浏览

excel - 使用 VBA 和 Excel 将项目数据从一张表复制到另一张表

我在工作表 1(A 列)中有一个项目列表。表 1 中的每个项目都有 5 个附加信息单元格(B 到 F)。工作表 2 有一些,甚至大部分与工作表 1 相同的项目,但不是全部。我正在尝试编写一个从表 2 开始的程序,查看 A 列中的每个项目编号,然后检查表 1 是否有相同的编号。当它找到相同的编号时,它将从表 1 复制 B 到 F 单元格信息,并将其放在表 2 中的项目编号旁边(B 到 F)。

我使用 For Loops 尝试从 Sheet 2 单元格 A2 开始。尝试将变量 cSn 设置为 A2,然后循环通过工作表 1,如果找到 cSn,则将数据从工作表 1 复制到工作表 2。

为了查看程序是否正确运行,我添加了一个 MsgBox 来指示它何时找到了一个。

该程序似乎运行,但不会复制数据并留下它。它似乎复制了数据,然后将其擦除,然后将工作表 1 的最后一行的数据粘贴到工作表 2 的每一行。我已经在这个网站和其他网站上搜索了正确的复制/粘贴语法,但找不到它。我正在使用 MS Visual Basic 7.1。请帮忙!这是我到目前为止...

0 投票
2 回答
119 浏览

vba - 将重试循环添加到 VBA 代码的正确方法是什么

在下面的代码中,我们偶尔会遇到碰撞错误。如果它会等待一秒钟并重试,它将通过。

我希望它尝试一次。如果失败,请记录错误并重试。如果失败 3 次,MsgBox 给用户,放弃并返回。我能想到的唯一方法是使用 GOTO 回到 ExeHandler。似乎应该有更好的方法。

0 投票
1 回答
420 浏览

vba - 访问 VBA 和智能卡 - 有什么诀窍?

我正在尝试使用 Windows 10/Access 2016 和 VBA 使用智能卡,并且我遇到了几乎所有可能找到的有关如何实现此目的的示例,包括:

我遇到的问题是SCardEstablishContext正在返回0x0 - SCARD_S_SUCCESS,但是当我将 SCARDCONTEXT 传递给 时SCardIsValidContext,它正在返回0x6 - ERROR_INVALID_HANDLE

这是我正在使用的代码的相关部分(忽略这些只是帮助函数,用于解码其他函数返回的任何状态AuthDictSCardAuthCode

运行 Sub,输出如下:

似乎我的设置不myContext正确,但我不知道它应该是什么样子。

SCardAuthCode此外,如果您想要漂亮的回报,这里是代码: