vba

    0熱度

    3回答

    所以,我有一個關於選擇一個公式化值的確切單元格的問題。我真的是VBA的新手,我在網上搜索了至少2天的寶貴答案。在這裏讓我給你展示代碼,試圖說明它後來做了什麼; Dim r As Range MinTime = WorksheetFunction.Min(Range("C5:L14")) Set r = ActiveSheet.Cells.Find(MinTime) r.Select

    1熱度

    1回答

    我的代碼的每個部分都工作到目前爲止,我只想編輯一個部分。我有我的宏搜索過濾範圍,看看它是否包含「檢入」和「簽出」。 但是我想添加更多的單詞來檢查。有沒有什麼辦法可以改變這個代碼,或許可以創建一個字符串數組,用於搜索每個單元格? 我想我可以添加很多「if或者」,但那並不好玩。 Sub checkk() Dim cl As Range, rng As Range Dim LastRow As Lo

    0熱度

    1回答

    我有兩個組合框,第一個選擇第二個顯示的組合框。第一個選擇什麼,第二個應該顯示兩列。 我有它運行在第二個組合框中一列與 Private Sub cbo_area_Change() 'Populate Equipment combo box. Dim strRange As String If cbo_area.ListIndex > -1 Then strR

    2熱度

    2回答

    我在使用結構化參考時觸發Worksheet_Change宏時出現問題。我發誓我之前工作過,所以我認爲這是一個語法問題。 當我使用「$ A $ 1」引用目標單元格時,引用它的工作正常。但是,當我使用結構化的參考來更改單元格時,它不起作用。其他結構化引用都正常工作。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.

    1熱度

    1回答

    我正在使用IMacro瀏覽器。它使用Internet Explorer瀏覽器。它看起來像使用緩存數據中的一些參數。 我想清除緩存。爲此,我嘗試清除Internet Explorer瀏覽器的緩存,但它不反映在IMacro瀏覽器上。 IMacro瀏覽器仍然使用緩存數據的參數。 我看了一些參考 1- Can imacros clear ALL history, cache and cookies 2-

    -2熱度

    1回答

    我想切割4個相鄰的單元格,並在下面插入一個新行並將其粘貼到一個新行上。 我的輸入類似於 我有4列地址,電話,計數,金額。我的excel工作表中的某些行包含多個n個條目。我想削減4個單元格的多個並在下面插入一個新行並粘貼。 輸出將類似於 我嘗試使用轉換函數,但無法產生預期結果。 我怎樣才能做到這一點用VBA代碼或Excel函數

    0熱度

    1回答

    試圖查看這個,但我仍然是VBA的新手,仍然很困惑。我無法弄清楚如何從一個子變量中獲取變量並在另一個子變量中使用它。 我想從GetListBox1Items獲取變量ListBox1Items並在cbSave_Click中使用它。我一直收到Set oNewRow = Selection.ListObject.ListRows.Add(1)的錯誤。我試過Dim ListBox1Items As Stri

    1熱度

    1回答

    我一直在拼湊一個功能工作簿,使用VBA代碼,因爲我去。 我目前有一個宏創建它查看列中的動態值範圍,並將它們轉換爲新值。 Sub ConvertWireSize() Dim i As Long Sheets("Circuits").Select Range("H1").Select For i = 1 To Rows.Count If Cells(i, 8).Value = 0.5

    0熱度

    1回答

    我正在嘗試使用特定工作表上活動單元格的單元格顏色創建圖表。當使用下面提供的宏時,我發現只有一部分分配的RGB顏色代碼與圖表匹配。我不確定爲什麼有些顏色會匹配,有些則不會。手動輸入顏色代碼時,圖表中會顯示正確的顏色。有沒有我離開這個宏或我需要採取額外的步驟? 我在這個項目中使用Excel 2016。 Sub ColorChartColumnsbyCellColor() With Sheets("S

    0熱度

    1回答

    我是VBA新手,我會很感激任何幫助。我在文檔中運行一些宏,其中一個宏是一個用名稱複製列的宏,將它粘貼到下一列的右側,並使用texttocolumns將它分成兩個名稱和姓氏。當列它複製的名字從不是空的,它運行良好,但如果範圍是空的它給 運行時錯誤1004 TextToColumns範圍類的方法失敗。 Sheets("PUNTA").Select Range("C2:C45").Select Se