excel-vba

    1熱度

    2回答

    我試圖1)居中並在訂單列表中爲第22行和第2行加上下劃線,直到空白行。 2)粗體和中心增值稅和合計在電子表格中。 3)生成訂單列表後,在其他工作表中清除列G28。但是,它不是強調或集中或粗體。你能幫我看看嗎?以下是我的代碼如下。非常感謝 Option Explicit Sub copy_info() Dim i As Long, j As Long, lastRow As Long Dim

    0熱度

    1回答

    有一點問題,需要您幫助更新我的VBA代碼。 我有兩列,第一列顯示%第二和第二列是一個數字。單元需要根據用戶輸入重新計算,這就是爲什麼我在工作表變更(下面的代碼)上使用了一個事件。我設法做的是在第一列中更改%時修改第二列。 現在我想知道我怎麼可能(如果可能給出的情況下),修改它,以便如果用戶更改第一列中的%重新計算第二(我有)或如果用戶改變第二列,它會在第一次重新計算%,而不會一遍又一遍地重新觸發它

    2熱度

    1回答

    我需要一個正則表達式模式,比方說,我希望模式是任何2個或更多的字母字符在一個組中使用(例如:「ab」/「abb」/「abbb」/),在一個字符串中連續3次或更多次(例如:「ababab」/「abbabbabb」/「abbbabbbabbb」),我有這個函數,在我想適應的字符串中連續使用3次或更多次。 Function TripleChars(S As String) As Boolean Dim

    0熱度

    2回答

    Excel的VBA 我想刪除基於COND 所有行看到if語句 但代碼不會刪除有ws.Cells(i, 6).Value = 0 所有行 Sub Clean() For Each ws In Worksheets ' find Last Row LastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row ' loop over

    4熱度

    2回答

    我想了解在VBA中聲明錯誤類型的變量時可能發生的錯誤類型。 這是我使用的代碼: Sub testTypes() Dim test1 As Integer test1 = 0.5 Debug.Print test1 End Sub 我試圖用故意雙號類型看VBA將如何圓他們(向上或向下),使他們的整數,鑑於數結束於0.5 我得到了令人費解的結果: 5.567 --> 6 5.5 -

    0熱度

    1回答

    我有一個工作簿,其中有幾個查詢到外部數據庫。對於他們來說,我讓Excel保存UserId和Password(目前不是一個很大的安全問題)。 很多時候我需要針對不同的數據庫模式運行相同的一組查詢,也就是說,通過使用不同的UserId/Password(s)登錄。 是否有一種方法(即使使用VBA)爲所有查詢同時設置相同的UserId/Password,而無需修改每個查詢的屬性? 在此先感謝

    0熱度

    1回答

    我有四個工作表,我在單元格F2中編寫了一個公式,它觸發了所有其他的填充。我已經有觸發器的私人小組來調用我的程序工作。有沒有辦法讓這個子更有效率? Option Explicit Sub FillDownFormula_test2() ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ' Filldown a form

    1熱度

    1回答

    我試圖讓使用SQL語句從數據庫訪問數據,如具有可變 變量是一個字符串「mrcTrx」 轉到在評論中*******得到直接點。 我知道它不是什麼大不了的,但我找不到答案謝謝! 的代碼的其餘部分是好的曲子,如果我一個把用於爲例「05」的代碼值的作品完美 Sub GetMun() Dim cn As Object Dim rs As Object Dim in

    0熱度

    2回答

    所以我是VBA的新手,並試圖在工作項目中發現某些東西,這會讓我瘋狂。 我有一個宏來清理我的數據並把它放到一個表中,然後我正在處理一個宏來獲取該表並將其轉換爲數據透視表/圖表。第一個宏在電子表格「DailyData」上創建Table1。作爲參考,那就是: Sub Format_Table() Dim target As Worksheet Set target = ThisWorkbook.Wo

    0熱度

    1回答

    愚蠢的問題:此代碼編譯不正確,我無法找到任何其他「沒有For」問題的解決方案。我有一種感覺,我只是錯過了一些愚蠢的東西。下面是相關的代碼: For Each Cell In CHWAssigned If Cell = "" Then If Cell.Row Mod 3 = 0 Then Cell.Value = "DM" ElseIf Cell.Ro