Excel vba以编程方式将代码添加到表单模块
如何将编程生成的工作簿与下面类似的事件代码： Private Sub Worksheet_Change（ByVal Target As Range） Dim nextTarget As Range 设置nextTarget = Range（Selection.Address）存储用户选择的下一个范围 Target.Columns.Select 'autofit需要列选择
..
Office
从Range.Interior.Color（或任何其他颜色属性）返回RGB值
我试图逐渐将单元格的背景颜色更改为黑色，我发现Range.Interior.Color方法返回一个Long，看起来是任意的。看看MSDN上的文档，几乎没有什么这个数字代表。有没有办法从这个很长的时间返回RGB值。我有效地需要与RGB（红色，绿色和蓝色）功能相反。 解决方案 strong> 没有内置的功能。你必须写你自己的功能。 长答案 从Interior.Color属性返
..
使用INDEX MATCH找到绝对最接近的值
我长期以来一直在寻求一种在Excel中使用INDEX MATCH的方法来返回数组中绝对最接近的数字，而无需重新组织我的数据（因为MATCH要求 lookup_array 按照降序排列，值大于 lookup_value ，但升序以找到小于 lookup_value 的最接近的值）。 我在这篇文章。 XOR LX的解决方案： = INDEX（B4：B10，MATCH（TRUE，INDEX（
..
什么是<>意思？
$ b $我已经在SQL和VB中看到过，我现在可以逆向工程化一个Excel speadsheet， b = IF（D23 - 0，“Insufficent”，0） 我将其转换为ActionScript： var result：String = [condition]？ 0：“不足” 但我不确定什么是D23？ 0意味着，它只是“不相等”？
..
VBA，从数组中删除重复
有人可以给我一些关于如何解决以下问题的指针： 假设我在Excel 2010中有一个数据块，100行3列。 列C包含一些重复项，说起始为1,1,1 2,3,4,5，...，97,98 使用VBA，我想根据C列删除duplcate行，以便我留下1,2,3，.....，97 ，98，即只有98行和3列。 我知道有一个按钮，我可以点击Excel 2010做这个，但我想在VBA （因
..
Countif有多个OR标准
我需要计算列中包含特定值的单元格数。我正在使用以下代码： iVal = Application.WorksheetFunction.COUNTIF（Range（“A：A”），“SAL”） 但是，现在我需要计算多少个单元格包含 SAL ，或 PRE 解决方案 最快的方法就是做2个COUNTIF： p> iVal = Application.WorksheetFun
..
在Excel中以编程方式隐藏活动工作簿
我正在一个基于工作簿的VBA项目上工作。该代码打开一个新的工作簿，并调用外部API，该API可以将多个数据下载并插入到这个新工作簿的多个工作表中。我禁用屏幕更新（ Application.Screenupdating = False ），所以最初屏幕保持专注于原始工作簿，而API在后台在其他工作簿上下载数据。但是，一旦API插入数据，屏幕就会切换到新的工作簿。如何防止这种情况发生？谢谢！ 解
..
Excel vba将粗体字体的特定文本设置为单元格？
解决方案 使用角色 范围（“A1”）。字符（8，5）.Font.Bold = True
..
VBA href Crawl浏览器的源代码
我对我的问题做了更新，因为我更清楚地知道我正在努力解决的技术问题。 A。如果我们从数据机构的网站上搜索结果网址，我们将获得这个 https://www.sec.gov / cgi-bin / browse-edgar？action = getcompany& CIK = 0000010795& type = 10-K& dateb =& owner = exclude& count
..
如何从vba中的字符串中提取数字组
我有一个以下形状的字符串： RRP 90 AVE DE GAULLE 92800 PUTEAUX 0109781431-0149012126 数字可能被其他字符分隔，而不是连字符（例如空格）。我知道如何用len（）来区分它们。 我需要每个字符串的数字单独存储（例如在数组中），以便我可以区分他们用len（）然后使用它们。 我发现如何将字符从字符串中删除：
..
在Excel VBA项目中匹配相似但不完整的文本字符串
好吧，我一直在试图找到一个解决方案，我似乎似乎不能。我甚至不能正确地解决问题。这是一个想法。 我有两行多行（一个为800，另一个为300,000）。每行包含一个名称列，然后包含几个列，其中包含有关此名称的信息。每张纸都有不同种类的信息。 我想根据这两个名称列将这两张表合并到一张主表中，因此合并功能是完美的。现在的问题是名称不完全匹配。 例如Sheet1包含 “公司BV “，
..
excel：如何将.bas文件转换为vbscript / exe或从命令行运行？
如何将.bas文件转换为vbscript / exe或从命令行运行？ 我在Excel中通过MS Visual Basic for Aplications做了脚本，但是我只能在Excel下运行这个脚本。我如何使这个脚本为.vbs或.exe？ 解决方案 我认为最简单的选择是保存 .bas 文件与 .vbs 扩展名，并将您的代码修改为VBScript;然后在Windows Script Hos
..
使用Powershell将Excel工作表从一个工作簿复制到另一个工作簿
我想将工作表从一个工作簿复制（或移动）到Powershell的另一个工作簿。 我以前做过，不能记住如何。我想我使用了CopyTo（）函数。 只是为了开始。 $ missing = [System.Type] :: missing $ excel = New-Object -Com Excel.Application $ wb1 = $ excel.Workbooks
..
Excel VBA-通过一个工作簿中的列迭代，将信息粘贴到相应的工作簿中
我有一个工作簿中的当前数据和另一个工作簿中的归档数据。在最近的数据工作簿的“B”列中，我有一个ID变量。我想说： 对于最近数据的B列中的每个ID，通过 迭代所有行在存档的工作簿的A列。如果有 匹配，则将“近期数据工作簿”的各个列条目复制到“存档工作簿” 中。 我写了工作代码，但问题是，在归档数据工作簿中有1,048,575行，所以For循环对于每个匹配运行得非常慢。有没有更好的方
..
共享/分发Excel宏的最佳方式是什么？
我在Excel中编写了宏，并将其分发给用户。一旦打开，我希望宏将自己添加为工具栏，然后在Excel打开时始终可见。所以宏可以方便地从所有的工作簿中使用。 解决方案 呵呵，最简单的方法是创建一个 -in 与您的代码一并提供给用户。 请参阅 ozgrid上的此链接，了解如何构建插件。
..
运行时错误'1004'：对象“_全局”的方法“范围”失败
我有一个excel的问题，一个表单生成一个引用否。但是当我尝试生成参考号。它有一条错误消息： 运行时错误'1004'：对象'_Global'的方法'范围'失败 当我点击Debug按钮，它显示如下代码： 它突出显示代码第4行的错误 Sub clearTemplate（） '清除模板内容 范围（inputTemplateHeader）= NO_ENTRY 范围（inputT
..
VBA复制单元格的值和格式
如何修改以下代码，以便不仅复制该值而且还可以复制字体样式。大胆或不大胆。感谢 Private Sub CommandButton1_Click（） Dim i As Integer Dim a As Integer a = 15 对于i = 11 To 32 如果工作表（1）.Cells（i，3）
..
停止VBA从调用目标函数两次评估
VBA的Evaluate（）函数只执行一次，我遇到麻烦;它似乎总是运行两次。例如，考虑下面的微不足道的例子。如果我们运行RunEval（）子例程，它将调用EvalTest（）函数两次。这可以通过在即时窗口中打印的两个不同的随机数来看出。如果我们使用Evaluate而不是一个函数调用另一个子程序，行为将是一样的。有人可以解释一下我可以如何评估执行目标函数一次而不是两次？谢谢。 Sub Run
..
VBA Excel获取文件路径（以文件夹结尾）
从上一个问题我知道如何让用户点击“浏览器”按钮并浏览到他们可能想要打开的特定文件。 代码 Private Sub CommandButton2_Click（） Dim vaFiles As Variant vaFiles = Application.GetOpenFilename（） ActiveSheet.Range（“B9”）= vaFiles End Sub
..
更改单元格中某些字符的颜色
我在单元格A1中有句话“我想要其中的50个”。我想使任何数字字符红色文本（只是数字字符）。我该怎么做？这是我所拥有的框架... Sub RedText（） Dim i As Integer 对于i = 1到Len（单元格（1，1）.Value） 如果IsNumeric（Mid（Cells（1，1）.Value，i，1））= True Then '使字符红色文本 结束如果 下一
..