vba 第8页 - IT屋-程序员软件开发技术分享社区

用VBA在Excel中删除工作表和透视表

我正在尝试在VBA中集成权力轴心和轴心图表的创建，并且已经解决了很大一部分问题。但是，我遇到了一个似乎无法克服的问题创建新工作表，在其中创建透视并将其导出为PDF。完成此操作后，我使用以下命令删除数据透视表和工作表： Sub DeleteAllPivotTables() PURPOSE: Delete all other sheets and pivots Dim s ..

发布时间：2022-03-03 23:19:56 vba excel pivot-table powerpivot 其他开发

是否将字节数组转换为字符串？

我有整数数组，每个整数数组都是一个ASCII码，表示字符串的一个字节。我可以从数组生成字符串，如下所示： Sub BytesToString() Dim myArr(): myArr = Array(84, 104, 105, 115, 32, _ 105, 115, 32, 97, 32, 116, 101, 115, 116, 33) Dim ..

发布时间：2022-03-02 20:19:36 arrays excel vba byte ascii 其他开发

用VBA控制远程虚拟机上的Excel实例

我在一个非常大的国际集团工作。为了获取组通用的数据，我需要使用Citrix Receiver连接到远程虚拟机(VM)。此VM的编程方式是，当某人(即非管理员)连接到它时，它会启动一个临时Excel。请注意，非管理员用户只能访问VM上的此Excel实例。在此Excel实例中，有一个我用来查询每天需要获取的组提供的数据的外接程序。我手动执行此操作，并希望自动执行此操作。我已经设法编 ..

发布时间：2022-02-28 21:41:48 excel vba virtual-machine remote-server citrix 其他开发

在InStr中使用数组

我正在寻找一个VBA代码，用于确定列的单元格中是否包含(不完全匹配)字符串数组。我有一个假电子邮件列表存储在A1：A3242的工作表“Helper”中，在工作表JP中我有我想要检查的电子邮件列表(I：I)。如果在第二列中找到第一个列表中的电子邮件，我需要将该行涂成黄色。 Dim list As Variant, FF As Long, qq As Long list = Sheet ..

发布时间：2022-02-27 21:10:58 vba excel match 其他开发

在Office 365中清除剪贴板

我使用的是64位Windows 10下的Office 365。我正在试着清理剪贴板。宏录制器生成空子项。以下尝试主要来自How to Clear Office Clipboard with VBA： Option Explicit Public Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Lo ..

发布时间：2022-02-27 19:17:39 vba ms-word office365 clipboard 其他开发

Excel/VBA：将变量值/文本合并为公式

我正在尝试在宏中执行此操作：单元格应填充=CONCATENATE("[Text]",Variable,"[Text2]") 变量是大小写不同的数字，即字符串。假设： text=Hello，变量填充了1，Text2=社区那么它应该在单元格中显示 =CONCATENATE("Hello";"1";"Community") 应理解为：Hello1Community ..

发布时间：2022-02-26 16:08:08 excel concatenation vba 其他开发

用户定义的串联

我正在尝试扩展我的年度计划文档，以便提供更多信息。但是，目前我被困住了。我当前的工作表布局如下：我需要创建第二个工作表，该工作表将客户名称与其中包含“yes”值的每个列标题连接在一起，作为其单独的行。示例1在新工作表中将变为： Example 1 - Annuals Example 1 - Xero Fee 我尝试了复制并粘贴宏，它基于对包含文本的行进行计数的数量列。 ..

发布时间：2022-02-26 16:00:48 vba excel concatenation unpivot 其他开发

运行时错误5692&q；是什么意思？

在某些情况下，range.Find.Execute会引发错误“Runtime Error 5692”，包括有时范围为空，有时使用格式错误的正则表达式执行正则表达式搜索。此错误意味着什么？有记录错误的地方吗？从我无知的立场来看，这是不可预测的。推荐答案我做了一些研究，但是-和您一样-我没有找到任何文档。 It appears此错误有时可能是由于未清除查找/替换文本而导致的。 ..

发布时间：2022-02-26 11:18:51 vba runtime-error 其他开发

如何在EXCEL中复制区域，然后使用宏在Word中调整大小并粘贴

Sub CopyToWord() Dim objWord As New Word.Application 'copying the range that I want to paste in Word With ThisWorkbook.Worksheets("grid_copy") .Range("b1:AA42").CopyPicture xlSc ..

发布时间：2022-02-25 19:53:01 excel vba ms-word resize export-to-word 其他开发

Excel VBA导出到文本文件。需要删除空行

我有一个工作簿，我使用以下脚本将其导出为文本文件。它工作得很好，但是当我打开文本文件时，末尾总是有一个空行，这会导致我在生成此文本文件后运行的另一个脚本出现问题。有关如何从导出中删除空行的任何帮助。编码： Sub Rectangle1_Click() Application.DisplayAlerts = False ' Save file name and path i ..

发布时间：2022-02-25 19:07:26 excel vba export line 其他开发

在VBA中查找函数

我通过编写开始了一个简单的演示 Sub search() Range("B1:B7").Find("abc").Activate End Sub 我希望Excel会自动选择一个包含值“abc”的单元格，但是，我收到了一条错误消息，说“对象变量或未设置挡路变量”(Object Variable Or With Sequoia Variable Not Set)。请问我错过了什么吗？ ..

发布时间：2022-02-24 16:45:08 vba excel find 其他开发

VBA-从开头查找字符串

我需要查找字符串“c=”，而我要查找的单元格的值为“c=0.32”。问题是，在相同的区域中，我有一个值为“blablac=54”的单元格，它在前面， Dim x as Integer x = Find("c =", MatchCase:=True).row 函数，返回该值而不是“c=0.32”值。如何告诉Find函数查找单元格值开头的字符串，以便获得正确的值？推荐答案 ..

发布时间：2022-02-24 16:43:27 excel vba find 其他开发

使用VBA在电子邮件中嵌入图像

以下代码嵌入照片，但未显示，原因是文件可能已被移动、重命名或删除(&Q；)。验证链接是否指向正确的文件和位置。"；我知道文件路径正确。 Sub mail() Dim Sig As String Set myOlApp = CreateObject("Outlook.Application") LR400 = Columns(1).Find("*", Search ..

发布时间：2022-02-22 10:00:54 html excel vba outlook 前端开发

Excal VBA-Format(&Quot；7A&Quot；，&Quot；00&Quot；)将&Quot；00&Quot；输出&Quot；00；，而Format(&Quot；7B&Quot；，&Quot；00&Quot；)结果输出为&Quot；7A&Quot；所需的输出。它们为什么不同呢？

我尝试列出每个Excel行从7F到00的十六进制值。我是通过执行以下代码实现的： Sub ListDownHex() Dim StartValue, i As Integer Dim nRow As Long Dim sh As Worksheet Set sh = ActiveSheet StartValue = 127 'memory location of 8051 RAM nRow ..

发布时间：2022-02-21 16:13:07 excel vba excel-formula 其他开发

vba相关内容