vba相关内容

VBA睡眠不起作用

我知道我做错了什么。我试图使用休眠函数来延迟我的代码,但我收到“Sub or Function Not Defined”错误。有什么建议吗? 推荐答案 vba没有Sleep函数。 您可以像这样从Kernel32.dll导入它: Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) 请注意,这将冻结 ..
发布时间:2022-05-19 18:24:05 其他开发

将单元格复制到另一个工作表中的新行

我需要从工作表上的表单复制几个单元格,然后将它们粘贴到工作表活动上的新行中。 拆分: 点击按钮时: 将在活动工作表(表单)上选择单元格";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;并进行复制。 将复制的单元格粘贴到另一个工 ..
发布时间:2022-05-08 15:40:19 其他开发

Excel VBA-复制/粘贴范围从一张工作表到所有后续工作表

第一次提问,如果我遗漏了什么,请告诉我。 我在另一篇SO帖子中发现了这段代码。我正在尝试将整个工作表从“DNU”复制到每个后续工作表中。我的问题是,这将粘贴值,但我希望做一个常规的粘贴,以保持格式和公式。我尝试从“值”更改为复制和粘贴,但以错误告终。如有任何帮助,我们将不胜感激。谢谢。 代码如下: ~ Dim wsVar As Worksheet Dim i as Intege ..
发布时间:2022-05-08 15:34:25 其他开发

我正在尝试将一个工作表(Sheet1上的C39)中的值复制并粘贴到另一个工作表(Sheet2上的B6到B18)范围内的下一个空单元格。以下是我正在使用的代码。 Sheets("Sheet1").Range("C39").Copy With Sheets("Sheet2").Range("B6:B18").End(xlUp).Offset(1) .PasteSpecial Paste:=xlP ..
发布时间:2022-05-08 15:22:10 其他开发

Excel VBA将数据从一个工作簿复制到另一个工作簿

我有一个工作簿,其中有四个工作表,每个工作表中都有数据。我需要打开另一个工作簿,并从那里复制到每个原始文件工作表中。 数据设置为表格,因此我需要保留第一个行标题。 这就是我现在使用的(见下文),但我读到有一种更好的方法来做类似的事情。 Workbooks(“File1.xls”).Sheets(“Sheet1”).range(“A1”).Copy Workbooks(“File2 ..
发布时间:2022-05-08 15:02:39 其他开发

函数可选参数日期类型失败

我有一个函数可以查找以下星期一的日期。如果没有传递可选的日期参数,则默认为零。我想我已经添加了解释问题的注释 Function NextMondayFromADateOrToday(Optional StartDate As Date) As Date ' objective: if date param not supplied should set StartDate to today ..
发布时间:2022-05-06 21:08:10 其他开发

如何使用VBA和ChromeDriver优化等待方法

在此主页“http://www.kpia.or.kr/index.php/year_sugub” 如果检查html,会发现从li1到li6有6个id。第一次使用chromeDriver后,我注意到的第一件事是等待方法无效。所以我在点击这个主页的互联网后,寻找了各种方法来优化等待时间。 例如,我应用了以下三种编码。 EX1) 应用程序.立即等待+TimeSerial(0,0,5) ** ..
发布时间:2022-04-20 16:37:08 其他开发

在您的EXCEL/VBA代码中,有没有通用的基准测试代码可以用来限制性能消耗?

有一些很好的posts描述了衡量代码性能的两种主要方法。然而,如果您有一个多模块项目,其中的调用可能会在单个操作中执行数千个子例程调用,则很难确定性能高峰期在哪里。如何做到这一点? VBA 我确实编写了一个通用的基准测试代码,可以添加到任何推荐答案项目中。它的工作方式是将代码添加到每个子/函数/属性的每个入口点和出口点,以总时间和不包括子例程的时间来衡量每个子程序所花费的时间。以下是它 ..
发布时间:2022-04-20 15:11:01 其他开发

根据数字对其他列的行进行颜色设置

我正在尝试修改以下代码。 从1张到8张,也许更少。 表1=A列包含数字,B列包含将A列分组的数字。 A栏B栏 11200 3 11202 3 12500 4 12502 4 列B中的偶数行=蓝色,奇数列B=绿色 我需要应用更多的颜色,所以我需要IS EVEN+1=黄色,ISODD+1=棕色。 Sub Color() Dim CvbRed, cYellow, cGreen, cBlu ..
发布时间:2022-04-18 21:11:42 其他开发

正在上传到Dropbox,但文件很小

我在Excel中有一个VBA函数,该函数创建一个Docent.docx,然后将其上载到Dropbox。它正在成功地在Dropbox中创建文件,但无法打开,因为它只有2个字节大小。为什么此文件中没有内容?我真的不知道文件实际上是如何工作的,这与将内容转换为字节的脚本有关吗? Public Sub dropboxUpload() Dim req As MSXML2.ServerXMLHTTP60 ..
发布时间:2022-04-18 10:38:27 其他开发

Excel中VBA的框架内按钮的Click事件

在Excel中,我将ActiveX框架插入工作表。用鼠标右键点击此框可以选择: 框架对象>编辑 现在我可以将按钮添加到此框架。太好了。 如何将_Click事件添加到此按钮以使其运行宏? 推荐答案 基本上,您需要做的就是创建您自己的类,例如“XButton”。在此“XButton”中,将有一个用于框架内按钮对象的事件处理程序。 这样您就可以处理‘btn’发送的所有 ..
发布时间:2022-04-16 19:17:43 其他开发

如何动态创建表中列数组,实现多列去重

我是VBA新手,这里我解释一下我的情况 1,我想知道如何在VBA中形成索引为1的数组 2、如何给数组去重** 我想要删除工作表中的多个列,动态地,我的意思是如果工作表包含5行,我想给出 (1、2、3、4、5) 如果纸张包含3--(1,2,3) 以下是我的代码: Dim darray() As Integer For i = 1 To LastCol1 R ..
发布时间:2022-04-16 16:49:06 其他开发

查找和删除Excel工作表中的所有组合框

我要使用VBA删除工作表中的所有组合框(表单控件类型不是Active X) 我有 For Each s In ActiveSheet.Shapes s.Delete Next s 问题是它会删除我的所有形状,而我很难找到仅删除组合框(具有不同名称)的逻辑 谢谢您的帮助! 推荐答案 With ActiveSheet.DropDowns Do While .Count > ..
发布时间:2022-04-16 16:46:17 其他开发

如何使用VBA在Excel中移动图像?

我想使用VBA将图像从Excel中的一个位置移动到另一个位置。 我们如何才能做到这一点? 推荐答案 如果您需要更改图像在给定工作表中的位置,您可以使用如下命令: ActiveSheet.Shapes.Range(Array("Picture 1")).Select Selection.ShapeRange.IncrementLeft 100 您可以通过更改的参数来调整运 ..
发布时间:2022-04-16 16:41:44 其他开发

用一个事件处理程序处理多个UserForm控件-VBA Excel

我动态创建了许多按钮(创建计划),并希望它们在Click事件(onClick属性)期间执行相同的操作。 当然,我可以预先在表单上创建最大数量的按钮,并将它们设置为不可见,等等,同时在它们的Click事件上添加“Call SomeEvent”,考虑到可能有一千多个按钮。这将是非常繁琐的。 因此,简化: 我创建了新类btnClass` Public WithEvents Butto ..
发布时间:2022-04-16 12:06:10 其他开发