excel-vba

0熱度

2回答

我試圖有條件格式化基於在列到每個單體電池組羣左邊的數字的單元格區域。基本上，如果在第13行中，每個單元格組左邊的灰色列= 0，那麼我希望整個單元格組右移綠色，如果= 15，則變爲黃色，如果= 25變爲紅色。第12行是我現在的代碼正在發生的事情，第13行是我想要的樣子。我似乎無法得到正確的循環。 Sub Highlight3() For i = 1 To ActiveSheet.Cell

0熱度

3回答

爲什麼我看不到從任何VBA代碼作爲工作簿範圍的命名範圍？

我使用名稱管理器創建了一個命名範圍。它被稱爲Vol_Check。它的作用範圍是工作簿。如果它的作用範圍是工作簿，爲什麼我不能在其他工作表或ThisWorkbook或Modules的VBA代碼中看到它。即使我試圖直接引用它，它也不起作用。這是一個我無法工作的代碼示例。 Private Sub CommandButton1_Click() If ThisWorkbook.Sheets

0熱度

1回答

創建一個宏來調出自動過濾器對話框

我使用的是Excel 2010，我試圖創建一個宏，它允許我打開AutoFilter的文本過濾器 - >包含對話框（總是搜索一列），或者任何允許我輸入一串文本並返回包含該字符串的行的對話框。根據我到目前爲止所做的谷歌搜索，看起來像VBA腳本將是必要的，但我寧願從儘可能清楚，因爲我沒有經驗。數據位於A2和F25000之間 - A1-F1是AutoFilter頭。預先感謝任何人都可以提供的幫助。最

0熱度

1回答

Excel/VBA Worksheet_Change整個重複

我有一個workheet_change宏正在運行。我想要的是檢查用戶何時粘貼來自其他工作簿的符合特定條件的值。例如，如果最終用戶粘貼到列A（起始於A18）（即標題列），則其值將被拒絕，除非它們在標題列C下的另一個工作表「下拉菜單」上符合值。等等在整個工作表中需要匹配幾行。現在發生的情況是，如果我在列A-E中發佈值，並且A18中的值不是有效的標題，則會出現消息框「單元格中的值必須是A18，B18的

1熱度

2回答

確定用戶何時單擊x-VBA

我想以編程方式確定用戶是否在Visual Basic中使用表單時單擊了右上方的「x」按鈕。我曾嘗試： Private Sub nameOfForm_Exit() 'code goes here End Sub 而一直未果。任何幫助將非常感激。

0熱度

1回答

循環一個程序，將格式設置爲選中單元格的常規問題

我嘗試將工作簿中多個工作表中的所有單元格的格式設置爲一般格式，以便我的圖表將更新並顯示正確的數據。這適用於單個活動頁面，但我無法正確循環，因爲它也非常慢。 Sub SettingFormatToGeneral() Dim works As Worksheet For Each works In ActiveWorkbook.Worksheets Range("A:Q").Se

0熱度

1回答

Excel公式來定義路徑

你好，我想用Excel公式定義一個目標（例如）爲每個路徑，就像我在下面的圖片。如果Excel在B列，它是關於文件夾中找到：SourceFolder，它將從D1複製單元格，並添加文件，否則，如果它找到該文件夾：目標，這將複製單元格D2 我不知道如何用excel來定義它。你能幫我解決這個問題嗎？這個的目的是保存在最後。所以我可以做一個宏從源頭去目的地。

0熱度

2回答

比較兩個主要工作簿由兩列和許多參數

我正在編寫一個代碼來比較兩個不同工作簿中的兩行，這兩個工作簿可以位於列中的不同位置。第一列通常在一個部分中分組（多個相同的值）。這就是爲什麼在此代碼中，我按第一列進行搜索，然後選擇其他標識符列並一次偏移一個，而兩個工作簿圖紙都相互匹配我試圖激活通過.Find找到的單元格在這個代碼中的功能，但顯然你不能這樣做。「範圍類的主動方法失敗」我相信我在這段代碼的正確軌道上，但我確信仍然有問題，我試圖用

0熱度

2回答

AddDataField從「報告過濾器」中刪除字段

爲什麼數據透視表的AddDataField（）方法從「報告過濾器」中刪除字段？我使用GUI創建了一個新的數據透視表並記錄了一個宏。一切進展順利，除了宏本身不工作。如何添加一個字段到「報表過濾器」和VBA值（我只能用GUI來完成）？這是我錄製的宏。您可以在A1激活的空白紙上測試運行。最後一條命令將字段從「報告過濾器」中刪除，即使在錄製宏和使用GUI時一切正常。這真的擊敗了我。 Option Exp

1熱度

1回答

可以使用CONCATENATE公式代替＆符號嗎？

狀況我已經產生了一系列52日的序列號： - 分別細胞B3到BB3 42831到43195（由7遞增每個日期序列號）。以下代碼將日期序列號轉換爲格式爲「dd-mmm-yy」的日期。下面是其中顯示了一年的每星期52個發票日期從06月17到05-APR-18的下一行上下代碼： - Dim intAdd7 As Integer intAdd7 = 0 Dim i As Integer Dim l