vba

2热度

1回答

我有一个主子，使得使用一个Client类：与100 000Clients创建一个数组并循环阵列之上100次，每次设置不同的随机数到每个Client。 Sub start() Application.ScreenUpdating = False Dim j As Long Dim clientsColl() As Client ReDim clientsC

0热度

1回答

错误53：文件未找到，而是所有的DLL都存在于路径中

我创建了一个DLL（使用C++），它依赖于sqlite3.dll（用于数据库访问& sqlcipher），我试图使用VBA来访问它。在VBA我使用以下声明： Declare Function GetData_VBA Lib "xyz.dll" (ByVal path As String, ByVal id As String, ByRef inputArr() As String, ByRef o

-2热度

1回答

在Excel中按颜色计算唯一单元格值VBA

我是VBA的新手。 Endstate - 在一个范围内搜索并计数用户指定的填充颜色计数合并单元格（我知道，合并遗址所有内容）的唯一单元格值为一个整体单元格。我已经编译了下面的代码，但它不能正常工作，任何帮助将不胜感激！ Function CountUniqueColorBlocks(SearchRange As Range, ColorRange As Range) As Long Dim c

0热度

1回答

在新标签页中打开多个链接的宏

我希望我的宏在单独的IE选项卡中打开存储在电子表格中的每个链接。我是成功的，打开第一个链接，但在循环的第二次迭代某种原因，我得到：自动化和error.The接口是未知错误。我怀疑宏在第一次迭代后失去IE对象引用，但我不知道为什么。范围设置OK。下面是代码： Sub OpenCodingForms() Dim wb1 As Workbook Dim ws1 As Worksheet

0热度

1回答

VBA在一个维字符串数组敛最小重复memeber（S）

我用下面的函数来收集最频繁的构件在阵列列： Function MosFreqinsimplearr(ByRef arrin As Variant, colindx As Integer) As Variant Dim i As Integer Set dic = CreateObject("scripting.dictionary") On Error Resume Next xMax

0热度

1回答

与多个匹配的Excel映射

我的excel知识扩展到大多数类型的高级公式。我不太了解如何使用VBA或宏。我有一个问题，我正在努力解决使用公式。我有两列看起来像这样的一个表： x1 y1 x1 y2 x1 y3 x1 y4 x2 y2 x2 y3 x2 y4 x3 y1 x4 y2 我试图将它们映射到AA表是这样的： y1 y2 y3 y4 x1 1 1 1 1 x2 0 1 1 1 x3 1 0 0

0热度

3回答

启动后可以将EC2实例设置为打开文件吗？

我的工作流程通常包括启动一组EC2服务器，并让它们在Excel工作簿的不同部分上工作。它不理想，但它是如何。我想尽可能自动化这个过程。理想情况下，我会在启动时创建一个打开Excel工作簿的AMI。然后，该工作簿将自动运行一个脚本，该脚本从保管箱文件夹中获取已命名的Excel工作簿，打开该工作簿并运行其自动脚本。这样我所要做的就是编写第二个Excel工作簿的脚本，给它一个“魔术”名称，将它上传到保

-1热度

3回答

如何使用VBA从特定的Excel单元格迭代到此列中具有值的最新行？

我是绝对新的Excel和宏VBA我有以下问题。我写了这个代码打印从3TH行开始到第5行的ķ列单元格的内容： Dim outQuantityRange As Range Set outQuantityRange = Range("K3:K5") For Each currentOutQuantity In outQuantityRange.Cells MsgBox (curren

-1热度

2回答

替换VBA中的多个字符实例

我有下面的公式，我想将其转换为VBA中的函数。 =IFERROR(LEFT(B1,(FIND(",",SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(B1,"(",","),"-",","),"/",","))-1)),SUBSTITUTE(B1,".", "")) 我已经尝试了一些东西，但只是不能让它正常工作。 Test Function CharacterSwap(tex

0热度

1回答

使用通配符创建搜索

我希望能够使用通配符搜索两个搜索字段。例如：我有一个搜索字段，可以搜索水果。我希望能够放入“应用程序”或“通道”，并将结果提供给我。我看过的大部分代码只有在你知道要搜索什么的时候才有效，但是我的字符串总是会改变的。这是下面的代码搜索水果，但匹配它。 sheet.Select finalrow = Cells(Rows.Count, 1).End(xlUp).Row For i = 1