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回答

    我創建了一個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回答

    我是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回答

    我用下面的函數來收集最頻繁的構件在陣列列: 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知識擴展到大多數類型的高級公式。我不太瞭解如何使用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服務器,並讓它們在Excel工作簿的不同部分上工作。它不理想,但它是如何。我想盡可能自動化這個過程。 理想情況下,我會在啓動時創建一個打開Excel工作簿的AMI。然後,該工作簿將自動運行一個腳本,該腳本從保管箱文件夾中獲取已命名的Excel工作簿,打開該工作簿並運行其自動腳本。這樣我所要做的就是編寫第二個Excel工作簿的腳本,給它一個「魔術」名稱,將它上傳到保

    -1熱度

    3回答

    我是絕對新的Excel和宏VBA我有以下問題。 我寫了這個代碼打印從3TH行開始到第5行的ķ列單元格的內容: Dim outQuantityRange As Range Set outQuantityRange = Range("K3:K5") For Each currentOutQuantity In outQuantityRange.Cells MsgBox (curren

    -1熱度

    2回答

    我有下面的公式,我想將其轉換爲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