我有一个在定义的时间范围内从 SQL 获取的数据列表： 在该图像中，我还已经制作了名为Start time和的下拉列表End time。 问题是：我如何制作一个宏，其输出是从下拉列表中复制整行Start time及其范围？End time 我也已经尝试使用聊天 GPT，但结果是空白的，没有错误消息，我尝试了各种配置，但没有运气，顺便说一句，我对宏 VBA 还不熟悉。 以下是来自 chatGPT 的代码（我已经对其进行了修改）： Sub CopyRowsBasedOnDropdowns() Dim SourceSheet As Worksheet Dim T...
我制作了一个.odp包含两张幻灯片的文件。 在幻灯片 1，有一个圆圈，单击时会移动到幻灯片 2。此圆圈使用简单的交互，不使用宏。 在幻灯片 2，有一个方块，按下时会隐藏幻灯片 1 上的圆圈，然后移动到幻灯片 1，这样当我们回到幻灯片 1 时，圆圈就消失了。它也使用交互，但它在鼠标单击时运行宏。交互 GUI 指示宏的名称是vnd.sun.star.script:Standard.Module1.Hide?language=Basic&location=document。 Sub Hide REM Define objects Dim oDoc As ...
因此，我正在通过工作中的大量 Excel 项目学习 VBA。我正在尝试看看我是否可以让我编写的宏在特定时间自动执行。我读过关于如何编写脚本来打开工作表并运行宏的文章。这不是我的问题，尽管我还没有尝试过，但更多的是关于如何在我想要的日子运行它。 我的宏基于其他数据源，因此我需要在同事截止日期后的第二天运行此宏。截止日期是每月的最后一个星期三和倒数第二个星期三。我需要在后一天（星期四）运行我的宏，但如何引用那一天有点棘手。 以下是我试图避免的一些潜在陷阱的示例。 A.) 每月的最后一个星期三也是每月的最后一天。这意味着我的宏需要在每月 1 日运行。 B.) 这个...
我已将宏作为命令添加到特定工作簿。但新工作簿将显示这些命令，如果我单击它，它只会打开上一个工作簿。我宁愿它们不出现在新工作簿的命令栏中。这可能吗？ ...
我正在 Microsoft 365 的 Excel 中使用 Power Query。我使用 VBA 而不是图形界面来执行 Power Query 操作。 假设我有一个现有的工作簿，该工作簿包含两个表Source_t和Sink_t（分别在名为Source_w和的工作表中Sink_w），并且我有一个名为的查询Sink_q，该查询从中获取数据Source_t，对其进行一些转换，然后将结果加载到中Sink_t。 请考虑以下 VBA 代码： Sub BindQueryToWorksheet() DeleteWorksheetIfExists "Sink_w" ...
我正在尝试将工作表复制到另一个工作簿。它有一个与表格相连的切片器。我想移动表格和切片器。我收到一条错误消息，提示“您无法移动或复制包含表格的工作表”。我该怎么办？ ...
我想移动一组包含表格和切片器的工作表。我尝试使用 vba。它移动所有工作表，但切片器消失。我在多个选项卡中有多个切片器。用 vba 代码帮我 ...
当该活动处于锁定屏幕下时，我在尝试自动化 SAP GUI 窗口以通过 Access 中的 VBA 并行提取数据时遇到了麻烦。 具体来说，有时上下文菜单会在错误的窗口顶部打开，导致 VBA 挂起等待响应。在未锁定的可见屏幕上，用于更改 Z 顺序的代码会起作用并更正 Z 顺序，从而使 VBA 继续运行。 但是在锁定屏幕下时，我无法更正 Z 顺序以将父窗口直接放在子上下文菜单下方，以允许 VBA 响应，因为无论我尝试了什么代码，实际的 Z 顺序都不会改变，即使调用本身似乎返回一个有效值。 我尝试过使用 Win32 API 进行多种调用变体和调用组合来尝试改变 Z ...
我有这两个 VBA 代码，为了获得结果，我必须输入以下 Excel 公式来完成此操作：=CCPA(A1)&(MAJUSCULE(A1&MAJUSCULE(RIP(A1))))。 我想将两者合并到一个名为“Account”的函数中，因此只需输入 =Account(A1)，它就会给我从公式中获得的结果：=CCPA(A1)&(MAJUSCULE(A1&MAJUSCULE(RIP(A1))))。 代码如下： Function CCPA(X) Select Case Len(X) Case 0 c1 = "00799999000000...
我的 excel 工作表上有一些条件格式条件，这些条件会用不同的颜色填充单元格。我试图计算 excel 中由我的条件格式着色的单元格数量，以便我可以检查它们的比例，但出于某种原因，无论如何它都会一直返回 0。这是我的 VBA 函数： Function CountCellsByColor(data_range As Range, cell_color As Range) Dim cell As Range Dim cnt As Integer cnt = 0 For Each cell In data_range If cell_color.Int...
我收到一系列电子邮件（分开，不在同一对话中）以请求批准。第一封电子邮件的主题为“需要采取的行动：[XYZ] 批准请求”。如果另一个用户在我之前批准，我会收到第二封电子邮件，主题为“[XYZ] 的批准已获得用户批准”。我想将第一封电子邮件保留在收件箱中，直到收到第二封电子邮件。如果我收到第二封电子邮件，我希望制定一条规则，将具有匹配 [XYZ] 编号的两封电子邮件移至另一个文件夹。这可能吗？ ...
我想复制表格中单元格的格式表格1到第二个表格中具有匹配文本的单元格表2。 例如：NOT(H) 在表 1 中显示为绿色，我希望它在表 2 的单元格 C2 中显示为绿色。有没有可以做到这一点的 VBA？ ...
我是一名新用户，正在寻求有关 Excel 公式/宏代码的帮助。 为了演示我的场景，假设我有一个下拉列表，其值为“早餐、午餐和晚餐”。如果用户从下拉列表中选择早餐，则下面会出现一个独特的早餐菜单，其项目和价格为列。如果用户选择午餐或晚餐，下拉单元格下方会出现不同的菜单。 我希望公式简单一点：IF(A1=“Breakfast”,PASTE(BreakfastMenu) ) 预先感谢您的帮助！ ...
我正在 VBA 中创建 xlSurfaceTopView 类型的图表。我希望图表具有水平和垂直网格线，但以下 With 语句的最后两行只导致出现两条网格线。有没有办法显示所有网格线？ With myChart.Chart .SetSourceData rng .ChartType = xlSurfaceTopView .ChartTitle.Text = "Contour Map" .HasLegend = True .Legend.Position = xlLegend...