使用Excel VBA在XLS文件中显示Excel 2007功能区
我有一个excel的仪表板，这样在excel文件关闭之前，我想显示所有的EXCEL功能区，以便下次excel打开时，应用程序/ excel将显示功能区。目前，如果打开excel，它不会显示功能区。 Private Sub Workbook_BeforeClose（cancel As Boolean） On Error Resume Next Application.Sc
..
Office
找到一个空单元格，并在一个巨大的文件中的另一列中写东西
我有巨大的文件（超过500,000行），我需要找到“M”列是否等于“”，如果它等于“”，我需要写下“N”列中的东西 我使用=“”，因为 IsEmpty（）在这些文件中不起作用确定为什么）。 这是我目前的代码：（我删除了什么是不必要的） Sub sbVBA_COMMENTS_ExcelSheets（） 'CONSTANTS SERVICENTRE FILES（PROD FOU
..
在使用图表时避免使用激活和选择（Excel）
我知道在Excel VBA中使用激活和选择不是最佳做法。我已经看到在处理范围时如何避免它们的参考（例如：链接）。在处理 ChartObjects （或一般范围内的任何其他内容）时，如何避免使用？ 例如，使用激活和选择将修改y轴上的最大值的方法看起来像这样（其中工作）： ActiveSheet.ChartObjects（“MyChart”）。激活 ActiveChart.Axes（x
..
Excel VBA - 检查单元格是否包含文本
我想检查一段文本的单元格范围。这个文本总是在我的文档中，除了它的单元格是变量（列总是B）。所以我检查一个范围从1:75是否任何单元格包含一段文本，但似乎不起作用。 Dim FoundRange As Range Set FoundRange = Cells.Find（“5/7 binnen 4h”） 范围（“I”& EmptyCell + 2）.Value = ...（单元格I的值在同
..
切割行与数据并移动到不同的表VBA
我正在尝试将指定的单元格空白的行剪切，然后将其粘贴到同一工作簿中的另一个工作表中。我的编码工作正常可以删除行，但是我尝试剪切和粘贴的所有内容都会给我错误。以下是删除行的工作代码： Sub Remove（） '删除否Denovo& ; /或No Peak Seq Dim n As Long Dim nLastRow As Long Dim nFirstRow As Lo
..
自动过滤器在多列Excel VBA
我需要过滤一个数据表，其中3列可以包含我正在寻找的结果： 因此，如果标准在第1,2或3列中找到那么该行应该被返回。 数据http ：//im69.gulfup.com/gBZHK.png 所以在上面的示例数据中，我说我选择标准为“胖” 我正在寻找自动过滤器返回第1行和第2;如果我选择标准为“有趣”，我需要行2& 6等等.... 下面是我的代码，因为显然它试图找到所有列
..
打印到POS显示单元
我有一个爱普生显示单元（用于销售点），并将其设置为打印机。当我去打印机属性>字体（有一个测试输入框）时，我只能得到它打印所需的东西。 但是从诸如记事本的应用程序打印没有结果。我试图让它与p.o.s.我在Excel中制作的应用程序我发现一个COMM端口通讯脚本 here ，但我不能通过OPEN命令。似乎有一个“正在使用的文件”。我想知道其他人是否有这种事情的经验。 解决方案 假设您的打
..
Excel：如何获取与区域设置无关的打印机名称？
在Excel中有一个 PrintOut 方法打印东西。 它接受打印机名称作为参数，该打印机名称不仅仅是系统打印机名称，而是打印机连接的系统打印机名称和端口的组合。 .PrintOut ActivePrinter：=“MyPrinter”& “on”& “Ne00：” 如果只提供系统名称，Excel将找不到它，不会打印 请注意，中间的“on”片段。实际的英语单词“
..
使用动态范围排序宏和customOrder excel
我正在尝试制作多级排序宏，而行的数量是动态的。我一直在弄乱一些测试数据来尝试让它工作，但是我从Excel中不断获得1004个运行时错误。希望第二双眼睛将有助于找出这一点。 这是测试数据 ABCD 数字状态垃圾垃圾 1打开1 1 2打开2 2 3关闭3 3 3打开3 3 4打开4 4 6打开6 6 8打开8 8 8打开8 8 34打开34 34
..
excel：vba类型不匹配比较日期
我试图从两个日期（不同列）和当前年份之间的年份进行比较。如果年份相同，那么它应该写在第13列的相应行“ATUAL”，如果年份不同，那么它应该什么都不写。 是我迄今为止所尝试的。 Sub CopyColumn2（） Dim i As Long Dim j As Long Dim lastrow As Long Dim ws1 As Worksheet Dim ws
..
在许多工作簿中查找特定关键字以及相应的值，并将它们放在一个工作簿的列中
在以前的发布中，我询问了如何突出显示以某个关键短语开始的单元格范围，并在下一个单元格为空时结束。我想更好地了解如何创建一个在多个Excel文件上执行此循环的循环。任何帮助将不胜感激。作为参考，我所指的代码如下： Dim wk As Worksheet 设置wk = ActiveSheet FirstRowColA = Application.WorksheetFunction.M
..
获取第一列的值和其他列的值的所有组合
A A1 A2 A3 B B1 C C1 C2 C3 C4 ... 如何获得以下代表？ / p> A A1 A A2 A A3 B B1 C C1 C C2 C C3 C C4 ... 解决方案 SuperUser中的此答案
..
Excel getElementById提取span类信息
我需要使用VBA从HTML中提取某些信息。 这是我从中单独提取位置信息的HTML。
位置 达拉斯/沃思堡区 行业
..
_更改移动数据透视图的事件过程
_Change sheet的事件是什么？ 我在_Change事件过程中遇到问题，而此代码真正在其他子程序中工作。 此宏用于移动数据透视图。 Microsoft Excel将关闭并遇到此错误： Microsoft Excel遇到问题，需要关闭。对此造成的不便，我们表示歉意。并将关闭。 Private Sub Worksheet_Change（ByVal Target As R
..
条件检查正值为负数
在如果声明中，我如何将正数与负一个 进行匹配。如果500与-500匹配，剪切和粘贴 我想到的一个解决方案是通过 * - 1 在我做任何事情之前，除了有无论如何我可以重新表述以下如果语句匹配一个阳性单元格和一个负单元格 Dim sh1 As Worksheet，sh2 As Worksheet Dim j As Long，i As Long，lastrow1 As Long ，l
..
使用VBA在excel中复制几个值并将其粘贴到同一行中多次
我对VBA很新，我知道这是一个基本的疑问，但是无法找到解决方案。我试图复制24（A1：A24）值并将其粘贴次数（A25：A8760）。我可以复制一个值并粘贴次数。我不能为多个值。 Sub Macro1（） 范围（“a1”）。选择 Selection.Copy 范围（“a2：a30”）。选择 ActiveSheet.Paste End Sub / pre>
..
Excel 2010 VBA代码删除所有Outlook约会
我正在尝试从Excel VBA（Excel 2010）宏中删除所有约会，但在 olFolder.Items.GetFirst 上获得错误13（类型不匹配）。我不能解释为什么，因为它几个星期前运行完美。 任何人谁可以给我一个这个错误= 这里是VBA代码： Sub DeleteAllAppointments（） Dim olApp As Object Applicat
..
在Excel 2010中，比较来自列的数据和突出显示值（如果使用宏和VBA不同）
我有两列，从2个工作表。在第一个工作表中，列包含分配给任务的工匠的列表。第二个工作表只包含工匠的列表。我需要比较第一个工作表中的工艺品，并突出显示一个单元格，如果其值与第二个工作表中的任何值不匹配。 我们可以找到一个列表在sheet2中说50名工匠，他们可以分配到第一张表中的多个任务（可能有数百个任务），因此列的长度不会相同。 当我们运行Marco时，我们希望任何具有值（一页1）的单元
..
无法从VBA调用SAP BAPI函数
我正在尝试从Excel宏VBA中调用SAP函数。我可以做连接，但每当代码到达调用函数的行时，我会收到错误消息 “运行时错误'61704'： 内部应用程序错误。 我的代码如下： Dim functionCtrl As Object Dim sapConnection As Object Dim theFunc As Object Dim PoNumber 设置fu
..
将单元格地址的位置存储在VBA中的变量中
我在Excel中使用VBA，我正在使用一个函数来找到第一个空行，然后添加一些值，之后我需要将单元格的地址传递给另一个函数，但是使用下面的代码获得一个运行时错误。 firstEmptyRow是返回范围的函数，例如。 $ A $ 280 。 Dim addCell as Range '查找表中的第一个空行 With firstEmptyRow '输入值 .Value = tas
..