excel-vba相关内容

错误时转到[标签]在VBA中不起作用

在我的一本Excel工作簿中,我创建了一个包含以下几行的宏: On Error GoTo saltaw Open fileout For Output As #iFileNumber 但是,当fileout包含一些无效的字符(例如,"\")时,宏停止,并且出现错误窗口“运行时错误'76':找不到路径",就像on error goto行未出现一样存在.如果将on error goto替换为 ..
发布时间:2020-07-02 01:46:46 其他开发

Excel VBA工作簿未添加到对象集合

我正在尝试创建一个工作簿集合,这将使我能够更轻松地跟踪所有已打开的工作簿.因为工作簿每次都将以不同的方式命名,并且因为我需要在不假定Excel没有打开其他工作簿的情况下进行此项工作,所以我无法使用索引.因此,我决定使用集合.但是,当我放入第二本工作簿时,我总是收到错误消息,我不确定发生了什么.我已经在两个模块中设置了代码(我不确定这是否会有问题),但是我只是提供了相关代码以便于阅读. Sub ..
发布时间:2020-07-02 00:57:26 其他开发

VBA Autofilter Excel 2013吗?

我一直在使用像这样的行: Cells.AutoFilter 11, "0" 暂时将第11列自动过滤为"0". 我最近更新到Microsoft Office 2013,现在此行出现AutoFilter method of Range class failed运行时错误.这是与Office 2013的兼容性问题还是其他一些问题? 编辑:我应该澄清一下,我已经运行的程序不会出现错误 ..
发布时间:2020-07-02 00:53:25 其他开发

Excel宏在两台计算机上的行为不同

我对Excel文件有问题.去年,我对宏进行了编程,以选择绿色作为工作簿中选项卡颜色的所有工作表.直到昨天,所有计算机上的一切都正常运行.实际需要修改该文件的计算机开始采取不同的行动,并且仅选择第一个工作表.我再次卸载并安装了excel,但没有任何改变.我们正在Windows 7 Pro x64和Office 2013家庭及企业版上运行. 这是我的代码: Private Sub Work ..
发布时间:2020-07-02 00:52:18 其他开发

VBA Office2010 Shapes.PasteSpecial失败

将VBA代码从Office2003迁移到Office2010时遇到问题.我想将单元格(Excel)的文本复制到Powerpoint. Office2003生成了一个新的文本框,其文本样式与Excel中相同.现在,我的代码在Office2010中失败,并且出现以下消息: 运行时错误-2147188160(80048240) Shapes.PasteSpecial:无效的请求.剪贴板为空或包含了 ..
发布时间:2020-07-02 00:50:45 其他开发

AppActivate在Excel 2007中有效,但在2010年中无效

我有一个在Excel 2007中运行的excel宏,它打开了一个大型机应用程序,因此我可以自动从电子表格中导入数据. 这一直很好,但是在Excel 2010中不起作用. 我尝试使用shell命令来使用ID,但是另一个应用程序是大型机应用程序,而不是基于Windows的应用程序. 但是 AppActivate“标题"(打开大型机应用程序)在excel 2007中运行良好. ..
发布时间:2020-07-02 00:50:40 其他开发

VBA嵌套IF语句

当特定单元格中具有特定值时,我想显示一个消息框.我已经使用以下代码完成了此操作; If Range("P8") = "Y" Then MsgBox "Message here" End If 这位于Worksheet_Change子项中,因此每当另一个单元格值更改时,都会显示消息框.我试图通过添加一个布尔变量来解决这个问题,该变量在第一次显示消息框时设置为true; ..
发布时间:2020-07-01 05:26:35 其他开发

模拟VBA正则表达式的总体正向后看

在VBA中,有很多关于回溯的问题.问题是,尽管有正面和负面的前瞻,但VBA 不支持 完全看不见. 人们提出的大多数问题试图解决一个非常具体的问题,即从文本中提取字符串,而Stack Overflow社区已经成为解决方案 以下函数接受三个参数来满足此问题:要匹配的字符串,不可捕获前缀的regex模式和regex模式后续捕获组中的一个. Function LookBehindRegex( ..
发布时间:2020-07-01 05:10:57 其他开发

在Excel工作表多页表单上检测按钮按下事件(不是VBA多页)

我正在努力弄清楚如何在直接位于Excel工作表上的MultiPage表单上检测按钮按下事件.换句话说,该表单不是使用VBA生成的,而是直接构建在工作表上的. 我希望语法类似于: Private Sub MultiPage1_Frame1_CommandButton1_Click() Do Stuff End Sub 但是,这不起作用,因为我认为我还需要在MultiPage中 ..
发布时间:2020-07-01 02:40:01 其他开发

VB右键单击在多页中复制/粘贴

让我以我是自学成才的事实作为我的问题的开头,所以请提供尽可能多的细节,如果我需要您以不同的方式或多次解释,请与我一起接受. 我使用Microsoft Visual Basic 7.0为我的团队创建了一种表示法/电子邮件生成工具.我收到的唯一抱怨是,它们中的许多都不习惯于热键,因此它们依赖于使用鼠标,但是右键单击却不起作用.我能够找到在使用右键单击时会创建用于复制和粘贴的弹出窗口的代码,并且该 ..
发布时间:2020-07-01 02:39:48 其他开发

如何通过VBA代码将公式的结果直接写入excel范围

对于每个listobject列,我都有一系列功能.该文件很重且崩溃,因此我只想将每个公式的结果保留为静态值.我可以为范围分配公式,并要求excel将范围转换为值.但是我想知道是否有一种方法可以要求VBA只写范围内的静态值而不是公式本身. 这是我到目前为止的内容: Sub calculate2() Dim i As Long, t As Long t = Timer With Shee ..
发布时间:2020-06-29 20:46:31 其他开发

Excel将数据从列表对象A(tableA)的几列复制到列表对象B(tableB)的一列中

我有一个工作簿,其中包含几张工作表,每张工作表都包含一个列表对象(一个表) 我的目的是从不同的列表对象中获取数据并将其粘贴到另一个列表对象中.或者更准确地说,是在另一个表中一个接一个地复制几个表的几列. 到目前为止,我正在尝试: 'defining the names of the list objects Dim OriginTable As ListObject Set Or ..
发布时间:2020-06-29 20:41:05 其他开发

Excel ListObject表-从ListObject表中删除过滤/隐藏的行

我正在努力寻找一种方法,以从ListObject表中删除过滤/隐藏的行. 过滤不是通过代码执行的,而是由用户使用表头过滤器执行的.我想在不列出ListObject表并执行小计操作之前删除筛选/隐藏的行.如果我在取消列出表之前不删除已过滤/隐藏的行,则这些行会重新出现. 当前代码: Sub SubTotalParClassification(ReportSheetTitle) Di ..
发布时间:2020-06-29 20:40:35 其他开发

当工作表具有过滤器时,为什么ActiveSheet.FilterMode返回False?

我正在使用以下代码来尝试检测应用于表中列的过滤器,然后清除该过滤器: If ActiveSheet.FilterMode Then ActiveSheet.ShowAllData 根据Microsoft文档: 如果工作表包含包含隐藏行的过滤列表,则此属性为true. 情况似乎并非如此,因为ActiveSheet.Filtermode仅在选择了要应用过滤器的表格内的单元格时才返 ..
发布时间:2020-06-29 20:40:23 其他开发

Excel VBA ListRows.Add失败

我可能缺少一些简单的东西,但是ListRows.Add给我带来了悲伤.功能如下: Sub addEmployee(employeeName As String, tableToAddTo As ListObject) Dim newRow As ListRow Set newRow = tableToAddTo.ListRows.Add() newRow.Range.Ce ..
发布时间:2020-06-29 20:39:46 其他开发

错误获取PowerPoint Shape的.OLEFormat.Object属性(来自Excel-VBA的LateBinding)

我有一个Excel VBA工具,它作为嵌入式OLE对象驻留在PowerPoint Presentaion中. 流程工作流: 用户打开PowerPoint. 然后在其中打开Excel嵌入式对象. 运行其中的代码将更新Excel文件中的数据,然后将其导出到打开它的PowerPoint的第一张幻灯片中. 问题在用户打开其中两个PowerPoint演示文稿时开始.如果您打开一个Pre ..
发布时间:2020-06-29 19:34:02 其他开发

更新数据验证列表范围

我正在尝试创建一个vba代码,该代码会将我的数据验证列表范围更新为另一张纸上的最后一行. 我的下拉列表位于我的“主页"选项卡上,该列表的列表范围来自“映射选项卡"上的P列.该列表每天都会更改,因此希望添加公式以查找最终行,而不是输入单元格行值.这是我编写的代码,但公式出现错误. Sub getDropdownList() Dim finalrow1 As Integer ..
发布时间:2020-06-26 13:48:15 其他开发