按字母排序和单元格颜色排序
我正在尝试按字母顺序排列多个列表，并按“单元格颜色”排序，但在一定范围内（因此不需要太长时间）。基本上，VBA假设选择列B行3-88，按字母排序，然后按颜色排序。然后移动到下一列C3：C88等，直到列NY。 当我尝试它，我得到运行时错误1004：对象“_Global”的方法“范围”失败。 这是我的VBA： Sub SortAlphaColor（） '从AZ '中排序列表中的行
..
Office
使用vba从网络中检索数据
刚开始使用html，在vba中相当有能力，但是在连接两个文件时遇到一些问题。 我已经通过注册到网站并尝试获取结果。 代码到目前为止 Dim HTMLDoc As HTMLDocument Dim MyBrowser As InternetExplorer Sub GetVehicleDetails （） Dim MyHTML_Element As IHTMLEleme
..
Excel VBA之间的日期之间
我需要创建一个函数来计算两个日期之间的帐号的发生。第一个日期是基于函数输入，第二个是提前3个月（日期可能不包含在数据集中）。范围内的日期值格式为“dd / mm / yyyy h：mm”。由于数据集的大小约为15万行，我希望在代码中执行此操作，而不是粘贴或评估指定单元格中的COUNTIF公式。 工作表函数仅当AccountNo变量被引用时才起作用，但是当添加条件“> =”或“
..
有没有办法通过使用VBA的301重定向获取返回的URL？
我有一个很长的公司的产品编号，后来的代码中，这些号码必须转换为HTML，然后链接到产品的相应页面。到页面的链接有许多301重定向，从一些凌乱/旧/错误/等到新的SEO友好的URL。 例如，如下所示： site.com/12345 将被重定向到此页面： site.com/product-name-12345 我没有列表来比较产品名称，因为它们被创建并且每天被破坏，并且该
..
Excel 2007 VBA缩放（不使用选择？）
好吧，所以我从来没有在VBA中做任何事情，因为我需要激活一个工作表或选择一个单元格。但是，现在，我正在试图找出一些工作表中的缩放到100％，而我看到的所有代码（谷歌的结果，包括本网站的答案）似乎首先选择了一个工作表： ActiveWindow.Zoom = 100 但是，我确实在OzGrid上找到了一些代码，这似乎意味着它可以在没有首先选择工作表的情况下进行：
..
创建从Excel FlowChart到MS Word标题的超链接
我正在MS Excel 2007中构建一个流程图。它是一个工作流程。我想能够引用一个单词文档，该文档详细说明了流程图中的每个步骤。 在流程图的每个部分，我想创建一个超级链接/按钮，用户可以点击并打开该单词的特定部分（标题）文件。我试图创建一个形状（矩形）并设置一个到文档的超链接。这很好，但它只是开头的文件。我想要矩形按钮在特定的标题上打开。我不知道你是否可以超链接。如果没有，我想我需要创建一
..
VBA自动化Outlook Mail Bug：将两个字符串放在HTMLBody中
运行以下代码后，我将看到第一部分显示在我的新电子邮件弹出窗口中，但不是第二部分。但是，如果我只是点击发送和接收，我将看到正确显示2部分。 为什么？在发送之前，为什么我看不到新电子邮件弹出窗口中的第二部分？ 谢谢!! 代码 Dim OutApp As Object Dim OutMail As Object With Application .EnableE
..
数据输入后锁定单元格
我有一个由多个用户编辑的电子表格。为防止篡改先前的数据，一旦输入数据并保存文件，单元格就被锁定。我的代码中有几个小错误： 即使用户手动保存，然后退出应用程序，仍然提示再次保存。 应用程序运行后，单元格应该在保存后被锁定，而不仅仅是在退出时。以前我在before_save事件中有这个代码，但是即使save_as事件被取消，单元格也被锁定，所以我删除了现在的代码。 （编辑：我刚刚意识
..
Excel 2003 VBA：将工作表移动到由变量引用的新工作簿中
我有一个函数用于运行数据透视表的 ShowPages（）命令，然后将每个表单保存到单独的文件。 我希望我能做到这一点： Sub Split（） ThisWorkbook .Sheets（“Data”）。数据透视表（“Data”）。ShowPages PageField：=“Codename” Dim newWb As Workbook For This s In This
..
VBA - 打开excel，找到并替换，删除行，另存为csv
我正在VBA中编写一个程序，以便我可以远程操作SAS（统计编程软件）中的一个excel文件。我想让程序完成以下工作： 打开指定的excel文件 查找和替换标题行中没有任何内容的空白（例如，“测试名称”成为“TestName”） 如果行中的第一个单元格（即A2）为空白，则删除第二行 将文件另存为csv 我不知道VBA，知道一些其他的编程语言，并试图将它拼凑在一起。我偷了一些代码，使
..
在excel中，只想求一些值（不像SUMIF那么简单）？
所以我有两个名为程序的列，另一个列有成本值。这三个程序是ABC，A，B和C.我想总结所有包含A的程序的成本。所有包含B的程序。包含C的所有程序都清楚地包含在所有的总和中。问题在于，为了获得这些程序，该电子表格有一个过滤器，它混淆了sumif up。有人可以帮忙吗？这是我的意思的一个例子： 程序费用 A 5.00 B 4.00 ABC 9.00 A 2.00 所
..
拆分不一致分隔符的字符串
CITY_STATE_ZIP ----- --------------------------------------------- 门罗，IN 46711 南本德，IN 46615 亚历山大，IN 46001 我希望将三个单词'CITY_STATE_ZIP'分割成不同的列。 CITY STATE ZIP ----- ----- ---------- -
..
任务计划程序不运行Excel VBA代码以PDF格式发送电子邮件附件
这是我使用的软件/系统： Microsoft Office 2010; 任务计划程序; Windows Server 2008 R2标准 我正在Excel文件中运行一些VBA代码，执行以下操作： / p> 1。通过SQL / ODBC连接从数据库检索数据 2。将数据上传到工作簿中的原始数据表中，并使用现在的功能 3对单元格中的工作簿进行时间戳记。刷新并格式
..
将工作表存储在数组中并对其进行处理
以下代码允许我删除不符合我的条件的行，现在问题是需要大约52分钟，因为我的行超过了1,68,000，这将持续增加每周。 现在我正在使用过滤器来减少基于我的cnf和条件的数据，因为日期范围不能被过滤掉。但这不是一个选择。我必须根据我的日期比较范围删除行。似乎数组是我最后的手段，但我不知道如何将我的工作表存储在一个数组中并且在它们上工作。有人可以指导我吗？ [CODE] '删除不符合条件的
..
在VBA中用2D阵列填充3D阵列
我有一组数据，其中每个项目都有一个对应于它的二维数组的信息。我想创建一个3D数组，其中第一个维度是项目名称，第二个和第三个维度由对应于该项目的信息占据。 I可以将每个项目的数据读入2D数组，但是我无法弄清楚如何将2D数组读入3D数组。 我知道大小在我开始阅读和写作之前，我可以创建一个固定大小的数组。 我想通过循环只通过名称的项目，而不是遍历每个2D数组的每个单元格。 很容易
..
VBA“ThisWorkbook.Close”不关闭这个工作簿！
我正在编写一个应用于打开“fileB.xls”的excel中的VBA宏，然后在打开后立即关闭。因为我们将谈论3个excel文件，我将调用第一个fileA。 用户格式的文件A的按钮代码如下所示： / p> Private Sub CommandButton2_Click（） 'FileA中的Button代码' Workbooks.Open文件名：=“文件路径/ fileB.xls“
..
为什么我的条件格式被VBA添加时被偏移？
如果表达式 =（$ G5“”）然后设置内部绿色，使用$ A $ 5：$ H $ 25。 尝试这个，按预期工作正常，然后尝试调整为VBA代码具有以下代码，该代码正在工作，但没有如预期的那样： 使用ActiveSheet.UsedRange.Offset（1） .FormatConditions.Delete '将使用的行范围设置为绿色内部颜色，如果“Erledigt Datum”
..
MultiSelect上的Excel VBA GetOpenFileName错误：= True
我得到错误类型不匹配，请帮助我新的vba宏不知道我在做什么。我只想让代码能够在搜索上选择多个文件 Sub Main（） 在错误GoTo错误： '打开文件以搜索 myFile = Application.GetOpenFilename（MultiSelect：= True） bFirstLineExtract = True bFirstLineLog = True C
..
用于替换格式但保留单元格值的VBA：部分解决了
我正在尝试将VBA放在一起以搜索特定的单元格格式，然后更改该单元格格式。我从这个帖子中获得灵感（ Excel VBA值保持字符串格式后重新设置），并希望从此发布更多信息（ Excel VBA - 添加一个自定义数字格式），但不太可能。 我想要替换的单元格格式是格式化的一般在以下6个品种中：
..
VBA - 工作表列表（超链接）
我有一个Excel-Workbook。在本工作簿中，通过VBA创建一个新的工作表。 这个工作簿越多的混乱就是它，因为我必须滚动很长时间才能到达任何工作表在中间。 我想创建一个概览表 列表的名称列于AND 表格的名称必须是超链接。 我的代码根本不起作用 - BTW，我必须使用Excel 2003 这是我有的： Sub GetHyperlinks（） Dim
..