excel-vba

0热度

1回答

我尝试将工作簿中多个工作表中的所有单元格的格式设置为一般格式，以便我的图表将更新并显示正确的数据。这适用于单个活动页面，但我无法正确循环，因为它也非常慢。 Sub SettingFormatToGeneral() Dim works As Worksheet For Each works In ActiveWorkbook.Worksheets Range("A:Q").Se

0热度

1回答

Excel公式来定义路径

你好，我想用Excel公式定义一个目标（例如）为每个路径，就像我在下面的图片。如果Excel在B列，它是关于文件夹中找到：SourceFolder，它将从D1复制单元格，并添加文件，否则，如果它找到该文件夹：目标，这将复制单元格D2 我不知道如何用excel来定义它。你能帮我解决这个问题吗？这个的目的是保存在最后。所以我可以做一个宏从源头去目的地。

0热度

2回答

比较两个主要工作簿由两列和许多参数

我正在编写一个代码来比较两个不同工作簿中的两行，这两个工作簿可以位于列中的不同位置。第一列通常在一个部分中分组（多个相同的值）。这就是为什么在此代码中，我按第一列进行搜索，然后选择其他标识符列并一次偏移一个，而两个工作簿图纸都相互匹配我试图激活通过.Find找到的单元格在这个代码中的功能，但显然你不能这样做。 “范围类的主动方法失败” 我相信我在这段代码的正确轨道上，但我确信仍然有问题，我试图用

0热度

2回答

AddDataField从“报告过滤器”中删除字段

为什么数据透视表的AddDataField（）方法从“报告过滤器”中删除字段？我使用GUI创建了一个新的数据透视表并记录了一个宏。一切进展顺利，除了宏本身不工作。如何添加一个字段到“报表过滤器”和VBA值（我只能用GUI来完成）？这是我录制的宏。您可以在A1激活的空白纸上测试运行。最后一条命令将字段从“报告过滤器”中删除，即使在录制宏和使用GUI时一切正常。这真的击败了我。 Option Exp

1热度

1回答

可以使用CONCATENATE公式代替＆符号吗？

状况我已经产生了一系列52日的序列号： - 分别细胞B3到BB3 42831到43195（由7递增每个日期序列号）。以下代码将日期序列号转换为格式为“dd-mmm-yy”的日期。下面是其中显示了一年的每星期52个发票日期从06月17到05-APR-18的下一行上下代码： - Dim intAdd7 As Integer intAdd7 = 0 Dim i As Integer Dim l

-4热度

2回答

Excel_VBA-IF condition = 1，GO LOOP

我需要VBA代码的帮助。我的问题是最好的。简而言之：检查条件，如果条件= TRUE反复围棋循环x次和循环后去再次检查条件。非常感谢您的帮助！ :)

0热度

1回答

以正确的文件路径和正确的文件名打印到PDF

我写了一个小的宏，它需要每日Excel报告并将其打印到特定的打印机（打印到PDF）。当我运行宏时，我仍然错过了最后的步骤。按原样运行它，我仍然需要点击弹出的“保存”按钮，并且必须导航到正确的文件路径。有没有办法让它自动为我保存按钮，并将文件保存到正确的文件夹中（如下面的代码所示）？ Sub printToPDF() 'declare variable for my file path Dim

0热度

1回答

一列中的VBA总和范围直到另一列中的非空行为止

我有一个包含事务列表和每个事务的可变数量行的工作表。我正在使用下面的代码按交易总和线路金额。列A是事务报头（事务之间的空白单元格）列H是交易行量 E栏是我想要总交易因此，如果列A <>“”然后开始添加列H，直到列A再次为<>“”。该代码除了最后一个事务处理完美。如果它的行数超过两行，则只会累加第一行和最后一行的数量。我无法弄清楚为什么。任何想法？ Here's a screenshot

0热度

2回答

行488后复制并重复代码中断

由于某些原因在单元格488后功能停止正确复制。 488一直到最后（大约第1,000行），它从同一单元格拉到底部。任何方式使此代码更健壮，以便它总是会从同一行中的单元拉出？如果我需要澄清，请让我知道，我会很乐意详细说明，但必要的。 Sub Compare() Dim lastRow As Long With Sheets("MP Parameters") las

0热度

1回答

麻烦与基本的宏 - 移除和排序列

试图删除列，对简单的出口，我得到一个错误： Run-time error '9': Subscript out of range 每次我在第二最近创建的工作簿中运行的基本的宏时间。 Sub ONCE() ' ' ONCE Macro ' export and prep an ONC list ' ' Keyboard Shortcut: Ctrl+e ' Range("A: