是否使用VBA从PowerPoint中的文本中查找数字？
我知道这个问题已经被问到了，但这里有一些不同的场景。 所以我想从整个文本区域中搜索整数。如果找到，则检查其十进制数是否大于2(例如，如果Numbers Found=13.656，则四舍五入为13.66)如果没有，则对其进行四舍五入。 因此，如果在一个文本区域中有多个整数，则它应该检查所有这些整数。 当我试图编写用于查找特定字符或数字的代码时。但我不明白如何找到整数(从0到9表示n
..
vba相关内容
在PowerPoint中使用VBA实现两个形状合并为联合
我正在尝试使用联合属性将两个相同的形状合并为一个。在编译代码时，它显示对象‘CommandBar’的方法‘ecutemso’失败。我是VBA新手，如果有人能帮我解决这个问题，那就太好了。 Sub ShapesUnion() Dim sld As Slide Dim shp As Shape For Each sld In ActivePresentation.Sl
..
如何从另一个工作表中获取精确匹配的数据？
我在“数据库”工作表中有数据，如下所示： 我编写了一个简短的代码，用于从“数据库”表中获取与特定条件匹配的数据，并将其粘贴到另一个表“SelectedRecords”中 以下是我的代码 Sub CopyData() Dim db As Worksheet Dim rcd As Worksheet Set db = ThisWorkbook.Sheets("Database")
..
在VBA中创建数据透视表时清空数据透视缓存
我使用https://excelchamps.com/blog/vba-to-create-pivot-table/中的代码在我正在编写的长宏中创建一个透视表。数据透视表最近停止工作；该子表运行时没有错误，但没有数据透视表的迹象。直到最近才完全发挥作用。在尝试进行故障排除时，我发现PCache变量为空，我假设这是所有东西都崩溃的地方。自此操作起作用以来，唯一更改的是我更改了数据透视表的数据区域中两
..
用于存放新文件的VBA监视器文件夹
所以我正在尝试编写一个VBA程序，该程序将监视文件夹中的新文件，然后对它们执行操作。我找到了一些关于使用WMI API的有前景的示例： Receive notification of file creation in VBA without polling http://www.mrexcel.com/forum/excel-questions/211547-monitor-new-f
..
VBA中多个ComboBox控件的单个事件处理程序
我有一个包含72个ActiveX组合框的电子表格。理想情况下，当我更改其中一个组合框的值时，我希望将该组合框的名称(或其他唯一标识符)传递给使用该名称/标识符的子例程RespondToChange。例如，如果组合框名为cbXYZ，我会将该名称传递给子例程。我可以使用一些代码，如 Private Sub cbXYZ_Change() RespondToChange "cbXYZ" End
..
Excel按逻辑评估文本
我正在尝试通过连接操作数和运算符来计算逻辑表达式。在Excel 2016中，有没有类似于VALUE()从文本转换为数字的公式？我正在寻找一种解决方案，这样我就可以动态更改条件，而无需更改实际的Excel公式。我已经搜索并阅读了Excel函数说明，但没有任何解决方案。 'The operands and operator A1: 1 A2: > A3: 0 'Concatenation B4
..
将.docx内容导入到MS Access
我开始写一个docx文档来做我的一个项目。 最近，我意识到，如果数据在数据库中，管理起来会更容易。 因此，我希望自动将数据导入MS Access，以避免手动复制和粘贴数据。 有没有办法做这件事？我只知道通过Access打开Word应用程序的方式。我还知道docx有一个XML结构，所以我想如果我可以打开这个结构，用VBA做一个解析器就会很容易 VBA 有两种基本方法可以从Word文
..
在VBA代码中以编程方式设置断点
我有一段非常大的代码是用VBA编写的(>50,000行--许多模块)。有一个我感兴趣的数组，我想找出这个数组中任何元素的值在哪些条件下发生变化。这些值可以在任何模块中更改。由于代码的大小，逐行运行脚本不是最有效的选择。 我正在寻找更好的方法来解决这个问题。我想到的两种方法是以编程方式设置断点(我不确定是否可以这样做)，或者以编程方式在每次赋值后插入一个if块，以某种方式提醒我值已更改。(非首
..
有没有办法用VBA打开CSV并选择分隔符？
我有一个CSV，其中的数据用分号分隔，我想用VBA在Excel中打开它。 在我的例子中，此VBA代码将由来自不同位置的用户运行，因此我希望编写一个对本地设置不敏感的代码，并在任何地方生成相同的输出。 我已经尝试了几个代码，但都不起作用。看完文档后，我不明白为什么。 Set wb = Workbooks.Open(str_Path, Format:=6, Delimiter:=";")
..
基于Excel和VB的条形码出入账系统
我正在使用Visual Basic在Excel表格中创建一个结账系统。表格将填满一个项目的信息，每个项目都需要我们发送一个工具包。该EXCEL工作表将允许扫描条形码，当发生这种情况时，它会检查放置时间。当再次扫描该条形码时，它会在时间中加上一个。我遇到的问题是，如果第三次扫描条形码，它只会更新停机时间。 如何将其设置为已记录输入和输出时间的位置，从而转到行中的下一个空白单元格并添加条形码+new
..
VBA睡眠不起作用
我知道我做错了什么。我试图使用休眠函数来延迟我的代码，但我收到“Sub or Function Not Defined”错误。有什么建议吗？ 推荐答案 vba没有Sleep函数。 您可以像这样从Kernel32.dll导入它： Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 请注意，这将冻结
..
将单元格复制到另一个工作表中的新行
我需要从工作表上的表单复制几个单元格，然后将它们粘贴到工作表活动上的新行中。 拆分： 点击按钮时： 将在活动工作表(表单)上选择单元格"；B2、B3、B4、B5、B6、A10、A16、A21、A24、E10、E17、E20、E23、E26、I10、I12、I14、I16、M10、M12、M14、M16、M19、M22和Quot；并进行复制。 将复制的单元格粘贴到另一个工
..
Excel VBA-复制/粘贴范围从一张工作表到所有后续工作表
第一次提问，如果我遗漏了什么，请告诉我。 我在另一篇SO帖子中发现了这段代码。我正在尝试将整个工作表从“DNU”复制到每个后续工作表中。我的问题是，这将粘贴值，但我希望做一个常规的粘贴，以保持格式和公式。我尝试从“值”更改为复制和粘贴，但以错误告终。如有任何帮助，我们将不胜感激。谢谢。 代码如下： ~ Dim wsVar As Worksheet Dim i as Intege
..
我正在尝试将一个工作表(Sheet1上的C39)中的值复制并粘贴到另一个工作表(Sheet2上的B6到B18)范围内的下一个空单元格。以下是我正在使用的代码。 Sheets("Sheet1").Range("C39").Copy With Sheets("Sheet2").Range("B6:B18").End(xlUp).Offset(1) .PasteSpecial Paste:=xlP
..
Excel VBA将数据从一个工作簿复制到另一个工作簿
我有一个工作簿，其中有四个工作表，每个工作表中都有数据。我需要打开另一个工作簿，并从那里复制到每个原始文件工作表中。 数据设置为表格，因此我需要保留第一个行标题。 这就是我现在使用的(见下文)，但我读到有一种更好的方法来做类似的事情。 Workbooks(“File1.xls”).Sheets(“Sheet1”).range(“A1”).Copy Workbooks(“File2
..
'；在Word标题(VBA)中粘贴图像时，服务器引发异常
在Excel VBA脚本中，我尝试从Excel复制图片并将其粘贴到Word标题中，代码如下： Set objWord = CreateObject("Word.Application") Set objDoc = objWord.documents.Add Set WRng = objDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range
..
函数可选参数日期类型失败
我有一个函数可以查找以下星期一的日期。如果没有传递可选的日期参数，则默认为零。我想我已经添加了解释问题的注释 Function NextMondayFromADateOrToday(Optional StartDate As Date) As Date ' objective: if date param not supplied should set StartDate to today
..
如何使用VBA和ChromeDriver优化等待方法
在此主页“http://www.kpia.or.kr/index.php/year_sugub” 如果检查html，会发现从li1到li6有6个id。第一次使用chromeDriver后，我注意到的第一件事是等待方法无效。所以我在点击这个主页的互联网后，寻找了各种方法来优化等待时间。 例如，我应用了以下三种编码。 EX1) 应用程序.立即等待+TimeSerial(0，0，5) **
..
在您的EXCEL/VBA代码中，有没有通用的基准测试代码可以用来限制性能消耗？
有一些很好的posts描述了衡量代码性能的两种主要方法。然而，如果您有一个多模块项目，其中的调用可能会在单个操作中执行数千个子例程调用，则很难确定性能高峰期在哪里。如何做到这一点？ VBA 我确实编写了一个通用的基准测试代码，可以添加到任何推荐答案项目中。它的工作方式是将代码添加到每个子/函数/属性的每个入口点和出口点，以总时间和不包括子例程的时间来衡量每个子程序所花费的时间。以下是它
..