来自具有多个工作表的多个工作簿的和行行单元格值，并将其逐列粘贴
这是问题的第二部分： 使用多个工作表的多个工作簿求和单元格值 - 宏 总结我的要求： 我有50个工作簿。每个都有3个工作表（共6个，其他3个是不相关的）。只有第一行有值（例如在sheet1,2和3中，从单元格A1到N1的10个值）。我想从每个工作簿中分别从每个工作表中总和第一行值，并将其粘贴到表1中的宏工作簿中，单列。 （所以我会得到一个30个值的最后一列）。 我尝试继续上一个问题
..
Office
VBA：运行Excel时自动执行MS Word中的任务
我正试图在Excel文件中运行这个VBA。此代码的第一部分允许我选择一个文件并将其打开。我现在想让代码搜索文件并格式化我要求的单词。我以前在Word中写了这段代码，现在我只是把它变成了excel。有没有一行如“withwdapp”，告诉excel vba执行Word中的下一步步骤？ Sub Find_Key_Words （） '从Excel中打开一个现有的Word文档 Dim Fil
..
Excel VBA - 使用已调用的子字符串
我很新的，所以提前道歉 我在Excel中的一半用户形式，我正在尝试从我的代码使用调用 - 我有12个按钮都做同样的事情，唯一的区别是每个按钮子都依赖于按钮标题。我的问题是，我无法找出一种方法来使用我已经在Buttons Sub中声明的String，然后在被调用的Sub中使用它。我知道你可以做到这一点，但是我的谷歌技能让我失望了：（ 请问有人能告诉我如何做到这一点吗？ / p> 这
..
Excel VBA在单元格旁边创建一个按钮
对于我的问题，我想在单元格旁边创建一个不为NULL或“”的按钮。按钮的标题必须遵循旁边的单元格中的值。 例如： 我在范围（“D3”）中输入'EMPLOYEE' 我希望宏创建一个名为“ Range（“C3”）中的“EMPLOYEE” 但是，我希望宏是动态的，所以每次输入值“D”中，左侧的单元格 C3 将会出现一个按钮。 因此，我已经弄清楚，我需要手动编写 CommandButt
..
运行时错误'1004：对象“内部”的方法“颜色”失败
我遇到“运行时错误”1004：当我包含代码时，对象“内部”失败的方法“颜色”错误 Worksheet.Protect UserInterfaceOnly：= True 在我的代码中。 我的目标是保护我的工作表中的某些单元格，同时允许用户修改数据输入必不可少的其他单元格。我比较新的VBA编码。任何有经验的程序员可能会提供的洞察力将非常非常感激。 我使用
..
比较具有相同数量的单元格的两个行范围
Sub compareRange（） 如果工作表（“Sheet1”）。范围（“A14：C14”）=工作表（“Sheet1”）。范围（“A15：C15 “）然后 MsgBox”两个范围是一样的“ 结束如果 'MsgBox”两个范围是一样的“ End Sub 给予A14：C14（1,2,3）和A15：C15（1,2,3）具有相同的值，我得到类型不匹配错误。 我想如何比较这样的
..
Excel宏可以选择和剪切多行到一个新的工作表
我每周运行一个报告，并希望将特定日期范围的行切成一个新的工作表（即所有行在一个月的16个月到下个月的15日之间）。 我想剪切07/16和08/15之间的所有行，并通过名为“Aug”的新工作表 并切割08/16之间的所有行和09/15，并通过他们在一个名为“九月”的新工作集 示例数据 列A - 列B - 列C 发布日期 - 名称 - 供应商 07 / 25/10 -
..
在工作表中的列和行中选择UsedRange
我的excel文件中有两张表， DTMGIS 和 DTMEdit DTMEdit 工作表为空 我正在尝试从 DTMGIS ，然后仅将值粘贴到工作表 DTMEdit 我不知道如何仅选择 UsedRange 并将其粘贴到 DMTEdfit Dim ws As Worksheet Dim LastRow As Long，LastCoulmn As Long，Header As Lo
..
VBA中的数组下标可以解释一下吗？
请找到附有我写的一个小测试程序的屏幕截图，以说明我遇到的困惑。输入中的文本是为了解释我正在收到的错误。 MsgBox被创建为使程序保持在休息模式，以便我可以看到什么值。 这里是代码。 （我已经抛弃了早期的版本，但值应该仍然相同） Sub test（） Dim Test1 ） Dim Test2（） '值从硬件编码的宏中启动这个宏 'Cells（7,4）= 1 'C
..
“使用中的文件”消息停止运行Visual Basic Excel脚本
所以我有一个VBScript我通过我的任务调度程序。测试它并运行它每天，大约50％的时间我看到这个错误，在我上班的早晨： 然后如果我点击“通知”程序，然后完成执行。但是这并不能帮助我，因为它违背了程序自动运行的目的。我的假设为什么只发生在50％的时间是，在我命中通知程序正常执行并关闭所有内容后，运行它的第二天没有正确关闭 APG.xlsx 所以运行它的第二天会产生相同的错误信息。 程序
..
Excel VBA：将单元格从多个工作表复制到单个工作表
我对VBA很新，并且正在尝试在工作中自动化一个进程，我需要从6个数组中提取选定的单元格，并将它们合并到另一个工作表中。代码我有工作，但有点“笨重” - 我正在使用excel复制和粘贴功能，但似乎找不到一个很好的解决方案远离复制和粘贴功能。而当我尝试添加一个粘贴特殊功能，我得到一个1004错误。对于要优化的建议，请给我一个建议！ 对于要复制的每个工作表，单元格在第一列中用“1”，“0”标记或留
..
从使用VBA for Excel的大范围单元格中删除“额外”空格（多于1个）的最快方法
我一直在寻找周围，并没有找到一个很好的答案，关于如何从包含文本字符串的大范围的单元格中删除多余的空格的问题。让我们说5000多个单元格。 我尝试过的一些方法包括： 对于每个c在范围 c.Value =修剪（c.Value） 下一个c 和 对于每个c在范围内 c = WorksheetFunction.Trim（c） 下一步c 和 对
..
通过VBA在Excel中查找不一致的公式
Excel检测公式是否与表中计算列不一致，并显示为一个绿色三角形（表示“该单元格与列公式不一致”）。如何通过VBA找到它们。我发现这个代码应该是诀窍（从 http：// www。 ozgrid.com/forum/showthread.php?t=145306 ），但这只适用于使用范围是正常范围而不是表格： Dim oneCell As Range 对于ActiveSheet.Use
..
加快代码删除工作表上的隐藏行
下面我有一些我写的代码。它是非常有效的，没有错误。但是，这非常非常慢。子包含一个给定的表格，并在其上检查隐藏的行。如果所有行都被隐藏，它将删除该工作表。如果没有，那么它将删除所有隐藏的行。 这是在另一个子文件中运行的，其中所有的东西，如屏幕更新和事件都被禁用。 我已经研究了加快代码的常见方法（这里：如何提高VBA宏代码的速度？，这里： http://www.databison.com/
..
自动过滤后删除空白行
我的Excel表格中有以下代码： Sub DeleteRows '过滤CMReport以删除（空白）行。 使用ActiveSheet .AutoFilterMode = False .Range（“A1：G1”）。AutoFilter .Range（“A1：G1”）。AutoFilter字段：= 1，条件1 ：=“=” .Range（“A1：G1”）。Offset（1，0
..
Excel：相对单元增量计数器按钮
但是，我不想增加一个绝对引用的单元格，而是要在Excel中添加一个按钮相对于按钮位置增加单元格的值。 这是迄今为止使用的代码类型，但是找到事件对象的关键问题位置证明很难... Sub increment_value（） this.Offset（0，-2）.Value = this.Offset（0，-2）.Value + 1 End Sub 是我想要做的（仅仅
..
宏/ VBA从www.Eppraisal.com获取值
我需要使用Excel宏从www.Eppraisa.com获取一些值。 但是我不知道PropID的价值是什么。这就是为什么宏适用于URL1但不适用于URL2，因为我认为URL2具有错误的propID Const URL1 As String = “ http：// www.eppraisal.com/home-values/property_lookup_eppraisal?a=112
..
报价标记VBA
我正在创建一个将公式输入单元格的函数。但是我继续收到语法错误。我知道这是引号。我想知道如何在函数中包含公式的引号，而不会引起语法错误。 任何帮助都将感激不尽。 Sub codedump（） 范围（“A1”）Value = =转储（GoogleAnalytics（“ga：78770227”，“ga：visits”，“2014-05-28”，“2014-06-26”，“”，“”，
..
导入多个文本文件时的标签页Excel VBA
我一直在尝试将多个大文本文件导入同一工作簿中的多个电子表格。感谢在这个网站上的其他帖子，我已经拼凑了一些似乎做这个工作的VBA代码。唯一的问题是，由于数据在文本文件中未标记，因此很难将它们分开进行分析。因此，我想在导入过程中将每个电子表格与相应的文本文件进行标签。我使用的代码如下。 谢谢！ Sub ImportManyTXTs（） Dim strFile As String D
..
VBA Excel：将范围值分配到新的范围
我无法将值从一个工作簿范围分配到当前工作簿中的范围。当我使用范围（“A1：C1”）分配我的范围时，此代码工作正常，但是当我的范围使用范围（单元格（1,1），单元格（1,3））定义时，函数失败： Sub CopyRange（） Dim inputExcel作为Excel.Application，BookA As Workbook Path_A = ThisWorkbook.Path&
..