问题标签 [vba7]

我正在做一个小项目，它可以让我直接从网站中提取一些搜索，而无需实际打开网页。

为了结束它，我需要我的 VBA 代码自动打开一个下拉列表，其中包含一些基于我之前设置的先前警报/搜索的元素。

有没有办法，当使用 getelement.id("[xx]") 来引用一个单元格（例如 B2），以便 [xx] 自动选择单元格 B2 中的值？（即，如果我的单元格 B2 包含“Screen1”，则代码将执行 getelement.id("Screen1")）

非常感谢

条件 1：单元格 A1 不应为空

条件 2：单元格 A1 的内部颜色是特定颜色。在这种情况下，它特别是“浅绿色”

如果满足这两个条件，则输出应为 1。如果不满足一个或两个条件，则输出应为 0。

最终结果应该是什么样子

现在到目前为止，我已经想出了这个 IF 公式： =if(or(getColor(A1)<>1234, isblank(A1)),0,1)

1234 用于表示给定颜色的 RGB 代码。在这种情况下，我不知道 Excel 中浅绿色的 RGB 代码是什么，所以为了我的问题，我只输入了 1234。

现在我知道这个公式的第二部分以 isblank 开头（并继续向前）很好。但是这个公式的前半部分导致公式破裂。原来 getColor 并不是一个真正的 Excel 公式。

有人可以帮我设置满足条件的条件：如果 A1 的填充颜色是浅绿色，那么...

我这里有个问题，我一直在尝试使用 VBA 在一个范围内均匀分布一个已知数字。问题是我需要找到范围内的数字尽可能相等的方式，你可以帮帮我吗？或给出想法？

数据集如下

已知数字由红色的“TV Comodin”行给出，这是我的尝试：

基本上，我的代码找到“TV Comodin”行以获得循环将在其列的每一行中添加 1 乘 1 的次数，

抱歉，我对 VBA 有点陌生，顺便谢谢你。

嗨，我正在使用 Excel VBA，它会得到我现在勾选的复选框的单元格地址。我可以使用以下代码获取单元格地址。

此代码返回所有复选框的单元格地址，但我只想要我勾选的复选框的一个单元格地址。我怎样才能做到这一点。
目前我正在尝试活动来实现这一目标，但到目前为止还没有成功。

我无法点击代码中提到的坐标，如下所示。光标只是悬停在坐标上而不是单击。

我怎样才能收到点击通知？

我正在尝试在从表中接收 5 系列数据的图表上自动插入一条水平线。每一天，我都会在该表中添加另一行值。我想在从这 5 个系列获得的图表中插入一条水平线，该水平线从其中一个系列的最后一个值更新（其 y 坐标），表示过去 30 天的飞水消耗量。我想在 Excel 工作簿中使用 VBA。我可以寻求帮助吗？谢谢你。

该图将是这样的：

过去几次，我用 excel 和宏编写了 txt 文件。我没有达到10000行或更多。永远不要把话说绝了...

我的 .csv 文件有超过 87000 行，例如"15k50,CityABC,56ab,CountryofCity,ID,Street"。我使用 Split() 函数来分隔值。宏格式化并将值作为单行写入 txt 文件。

txt 文件关闭了大约 9800 行...但是为什么呢？我尝试使用 Slepp() 来确保打印算法没有过载或其他原因。

计数器 10000 在那里是因为我想让你更容易理解。如果超过 10000，则问题已“解决”。

信息txt-文件格式：

• ASCII
• Unix (LF)

捷径，经过多次评论

• 使用Minimal, Reproducible Example使代码过度工作（删除睡眠，简化变量名称，尝试从头开始编写代码）
• 更改SplitString()为Split()，因为调用函数很愚蠢...
• 在将第 9000 行打印到 txt 文件后，代码行会弹出以下错误“运行时错误 5：无效的过程调用或参数”fso.WriteLine ("# " & strArr(0) & " # " & strArr(1) & ...

任何想法？

非常感谢提前我有一个 .txt 文件，其中包含需要提取并放入 Excel 中相应列的数据。我对 VBA 编码非常陌生，并且尝试了很多，但是在完成这项工作时遇到了困难......下面显示了我到目前为止的代码，但是在运行时，它的工作方式有所不同。实际上数据需要放在各自的字段中作为excel中的样本。在 Excel 文件中，我已经将数据保存为如何获取并填充到相应的标题列中。

类型;帐号：银行参考；受益人名称；日期；收益帐号； Bene IFSC; BENE BANK NAME;参考; Bene Mail ID IMPS; 45605104698; 45605104698; 60062000057200; ABCDEF; ABCDEF; 12122016; 0000000001.00; 0000000001.00; 10304060176; STREK0002022018; STERK0002018; STERK0002018; STERTBANK; STEAST BANK;印度 ;5110845 ;abce@gmail.com ;

我用于提取上述数据并将其放入各自列中的代码如下：-

需要插入数据的示例excel文件如下：-

我在编写用于比较多张工作表（同一个 Excel 文件）中的多列的宏时遇到问题。我写的很少，但他们花了很长时间，以至于 excel 崩溃了。

假设我在同一个文件中有 4 张纸。Sheet1 有两列（B 和 C）和 7000 行。Sheet2 空工作表新条目。Sheet3 旧条目的空白表，但有一些更新的值/信息。Sheet4 是一个有 2 列（A 和 B）和 22000 行的数据库。

我需要将 Sheet1 中的 A 列与 Sheet4 中的 B 列进行比较。如果 A 列 sheet1 中有全新的条目，则将该条目从 A 列 sheet1（及其相应值从 B 列 sheet1）复制到 Sheet2 中的新行（A 列和 B 列）。如果 A 列 Sheet1 中的条目已经在 A 列 sheet4 中，则比较它们各自的 B 列值。如果 Sheet 1 中的 A 列 + B 列组合在 Sheet4 中，则忽略它。如果 A 列 Sheet1 中的值位于 A 列 Sheet4 中，但它们各自的 B 列值不匹配，则将 Sheet1 中的 A 列 + B 列复制到 Sheet3 中的新行（A 列和 B 列）。

我希望它足够清楚。由于行数（Sheet1 中的 7000 与 Sheet4 中的 20000 相比），我无法编写一个在一分钟内处理所有内容的宏。

有什么帮助吗？

编辑1：我使用了@FaneDuru 建议的代码（谢谢！）。但我遇到一个错误：“运行时错误'457'：此键已与此集合的元素相关联”是因为我在同一列中有许多重复值吗？

编辑 2：似乎 VBA 无法识别“if not dict3.exists”代码。当我用小写字母键入“.exists”并跳转到另一行时，应该将其更正为大写“.Exists”，对吗？它没有这样做。

编辑3：我做了更多测试。我正在休息并运行代码。当我在这一行“If WorksheetFunction.CountIf(rngA4, arr1(i, 1)) > 0 Then”上放置中断时，不会发生错误。当我将中断放在“For j = UBound(arr4) To 1 Step -1”下面的一行时，错误正在发生。

错误是：“运行时错误'457'：此键已与此集合的元素相关联”

我在 sql 中有 tis 代码，它可以工作，但是我可以在 vba 中使用哪个函数来存档相同的结果。

RIGHT('00' + MONTH(lt.LveFromDate),2) --2021-03 --2021-03 --YEAR(lt.LveFromDate)