VBA计数非空元素的数组
我的尝试： Dim Arr（1到15）As Double '填充Arr '的一些元素... Dim nonEmptyElements As Integer，i As Integer nonEmptyElements = 0：i = 0 对于i = LBound（Arr）到UBound（Arr） 如果不是Arr（i）=“”然后 nonEmptyElements = non
..
Office
如何从两个不同的工作表中匹配相同的名称后获取一个％值
我想知道有人能帮我解决以下问题吗？以前有人帮助我获得了同一工作表上的 dctest / In 值的％。但是现在，我需要做同样的事情，但是在另一种工作表上。 说Sheet1 这是复制Sheet1（1 ）在采取％ Sub marco1（） '开始制作Sheet1到％ '~~> ;添加/删除要忽略的文本 Excludetext =“In，test1，test2，test3，
..
Excel Visual Basic调用函数作为独立程序
我会直截了当地我试图在Visual Basic中定义一个函数，它可以简单地被调用，而不必像现在那样在方程的另一边有一些东西。本质上，我想要能够定义一个可以传递一系列变量的例程，并基于这些变量执行一个例程。 我目前有以下函数定义： 函数ImportData（WebAddress As String，OutputCell As Range） 使用ActiveSheet.QueryTab
..
找到下一个可见行
在具有自动过滤范围的工作表中，下面的代码返回一个#VALUE错误： 函数FindNextVisible（S As Range）As Range Dim L As Range Dim R As范围 Dim counter As Integer counter = 1 Set L = Range（S，S.End（xlDown））。Cells.SpecialCells（xlCel
..
创建宏以搜索工作表以查找字符串列表并突出显示该行
有人可以帮助我创建一个宏，它将搜索Excel工作表列出30个字符串（例如， SV-32488r1 ， SV- 33485r1 ），并在找到时突出显示行 我正在使用Office 2010。 我不是Excel或VBA，不知道从哪里开始。 我发现的搜索只允许我搜索一个字符串。 非常感谢你。 解决方案 Public Sub HighlightListedValues（） Di
..
自动Excel首字母缩略词查找和定义添加
我经常在工作中和公司内部创建文件，我们几乎拥有自己的语言，因为我们使用的首字母缩略词和缩略语的数量。因此，在我可以发布文档之前，我已经厌倦了手动创建首字母缩略词和缩写表，并且快速的谷歌搜索遇到了一个有效地为我做的宏。 （修改后的代码如下所示） 我修改了这个宏，以便将表粘贴到原始文档中光标的位置（这可能不是msot有效的方式，但是我可以想到的最简单，我不是VBA专家）。 从那时起，我意识
..
Excel VBA - 扫描范围并删除空行
我有一个电子表格根据数据透视表的数据（通过ODBC导入）填充行。我正在使用VLOOKUP，例如： = VLOOKUP（A8; Data！B1：I298; 2; FALSE） 结果类似于 Name1 Name2 Address1 Address2 Postalcode 国家 可能会发生一些枢轴列为空，导致 Name1
..
无法将Userform.KeyPreview设置为true
我已经在Excel中构建了一个表单。它由3个命令按钮和一个包含复选框的框组成。复选框根据Excel表格中的表格动态填充在 userform_initialize （用户自定义的简单方式）。框架的原因是可以有很多复选框，我希望用户能够滚动浏览。 我的目标是创建键盘快捷键为形式。我陷入困境是因为我不知道哪些复选框将会存在，所以我无法强制写入 KeyDown 处理程序。我意识到，如果我可以在表单级
..
VBA Selenium FindElementByXPath找不到元素
我已经写了一个VBA，它使用硒铬网络驱动程序打开一个网络链接，以刮擦数据，我遇到了几个问题，我需要你们的建议。 代码示例和结果1： 错误激活 Sub test_supplements_store（） Dim driver As New ChromeDriver Dim post As Object i = 1 driver.Get“https://www.the
..
浏览可以分配宏的所有对象
据我所知，在Excel中，我们可以将宏分配给多种对象： shape ，表单控件， ActiveX控件 ... 我想编写一个VBA代码来执行以下操作，给定Excel文件： 查看有资格分配给宏的所有现有对象 对于找到的每个对象，如果分配了一个宏，请打印其名称和宏名称（或理想的身份）。 我想这是穷尽的，有人可以帮忙吗？ 解决方案 扩展@mehow的答案，位于 ActiveSh
..
使用VBA在Word中设置嵌套字段
我正在从模板构建一个大文件。每个模板在页脚中都有一个关键字 #OVERALLPAGENUMBER＃，我以编程方式用一个字段替换（使用Excel VBA）。 如果我需要的是该文档的页码，则满足以下条件： Dim storyRange As Object'Word.Range 对于每个storyRange在oDoc.StoryRanges Do With storyRange.
..
在基于过滤器删除时请求动态范围解决方案
我目前正在做一个宏来自动执行我每天在Excel中所做的一些工作。然而，由于这是我第一次遇到Visual Basic和Excel中的宏，所以我一直在努力实现基于过滤器结果的动态范围选择。 基本上，想法是在标头上应用过滤器后，我删除一系列行。由于行范围的变化，我需要代码根据过滤器结果动态选择范围。要给出一个实际的例子，这是一个我应用的过滤器： 列（“J：J”）。EntireColumn。
..
VBA代码仅在调试模式下工作，并在正常模式下运行时挂起
这个问题让我疯狂。我有以下代码： 'unprotect sheet If.Range（“Start”）。Row + 1当我
..
将vbCrLf应用于文本框的内容
我在Excel vba项目中有一个用户窗体。在设计时它是空的。 在初始化事件表单中，我有以下代码： Private Sub UserForm_Initialize（） txtSQL.value = _ “SELECT MyName =”“ColY”“”& vbCrLf& _ “FROM SomeTable”& vbCrLf& _ “GROUP BY顾客”& vbCrLf&
..
使用Excel / VBA生成标题和一组给定的句子
只是要注意，我以前从未使用过这样高级的Excel（实际上，我从来没有使用过任何功能，但是我正在Excel上搜索教程和VBA，而我我在这里询问，以防万一有人知道使用哪些，以及如何有效地使用它们。） 我给Excel 5标题列A （也是句子）和 10个句子中，在列B 中生成 3段每个使用 1个标题和每个3个句子。 我该如何去实现？我知道Excel有一个RAND（）函数，但这似乎只适用于数字.
..
记录的宏在图表对象上不起作用
我记录了以下宏： Sheets（“Rejets Techniques TGC”）。选择 ActiveSheet.ChartObjects （“Graphique 1”）。激活 ActiveChart.Axes（xlCategory）。选择 ActiveChart.SeriesCollection（1）.Values =“='Données'！$ EU $ 68：$ IJ $ 68”
..
如果没有附件文件存在路径邮件不应该发送
如果路径邮件中没有附件文件不应该发送。 如果没有附件，是否有可能发送邮件？ / p> Dim OutApp As Object Dim OutMail As Object Dim strbody As String Set OutApp = CreateObject（“Outlook.Application”） 设置OutMail = OutApp.CreateItem（
..
替代Excel 2010中的图片集
以下是 xls 文件中的一些代码。在Excel 2010它不工作。我在对象资源管理器中找不到图片的集合 私人Sub Worksheet_Calculate（） Dim oPic As Picture 'make them invisible For Each oPic In Me.Pictures 如果Left（oPic.Name，2）=“ jq“然后 oPic.Visibl
..
Excel VBA - 如何选择与先前单元格中的值对应的范围？
我有一个非常大的数据集，其中包括NAS的飞机的起始和停止时间。我想创建一个宏，以便在excel中对这些数据进行可视化表示，如下所示： （注意：此图片使用假数据） 正如你所看到的，我手头完成了前7行，但是多个数据文件多达2500行，每一行使得过程繁琐。我试图创建一个宏，但是我很困惑如何搜索并选择适当的范围来突出显示。 这是我到目前为止： Sub autofill（）
..
VBA代码将选定的列从符合条件的行复制到另一个工作表
我刚刚开始使用Excel的VBA代码，所以如果这看起来是基本的，那么道歉。我想要执行以下操作... 检查名为“索引”的工作表的列J（J5到J500）是否存在值“Y”。这是我的情况。 然后，我只想将满足条件的任何行的列C只复制到到现有工作表和不同位置的单元格，即如果索引值C3到I3被复制我想将它们粘贴到我进入的活动工作表的A5到G5，说Sheet2。 如果索引表中有更改，我希望自动复制
..