在excel里面用vba能給單元格填充自定義的顏色嗎？class=“answer text mb-10”> Sub xx（）Dim c As range對于[e3:j16]中的每個c選擇Cas

在excel里面用vba能給單元格填充自定義的顏色嗎？

class=“answer text mb-10”> Sub xx（）Dim c As range對于[e3:j16]中的每個c選擇Case Len（c）Case 10:x=3 Case 9:x=6 Case 8:x=10 Case 7:x=5 Case Else:x=xlNoneEnd選擇c.Interior.ColorIndex=xNextEnd您好，您的問題有一個先決條件：如果您的excel版本是2003，則只能使用預(yù)設(shè)的56種顏色。用VBA代碼實現(xiàn)的其他填充顏色將轉(zhuǎn)換為最接近56種顏色的顏色。如果您的excel版本是2007或更高版本，那么單元格填充顏色幾乎是無限的。通過cell filling命令完全可以實現(xiàn)自定義顏色填充。它支持RGB和HSL模式，不需要VBA的幫助。如果使用VBA，代碼如下：sub test（）“用紅色、RGB（紅色、綠色、藍(lán)色）填充單元格A1，紅色、綠色和藍(lán)色的值為0-255。可以設(shè)置不同的值以獲得不同的顏色。范圍（“A1”）。內(nèi)飾。顏色=RGB（255，0，0）“填充紅色”如果要刪除填充顏色，請使用以下句子范圍（“A1”）內(nèi)部。圖案=如果數(shù)據(jù)在a列中，代碼如下。

Sub AA（）

x=1至范圍（“a65536”）。結(jié)束（xlup）。行“建立循環(huán)

如果單元格（x，1）=6，則”判斷單元格值

單元格（x，1）內(nèi)飾顏色索引=3“當(dāng)單元格值等于6時，單元格中填充紅色

end if

next x

end sub

1。打開excel表格并按alt F11]打開VBA編輯器，或單擊菜單欄上的“開發(fā)工具”和“visual basic”打開VBA編輯器。

4. 您可以在“顏色”對話框的“開始”、“填充顏色”和“其他顏色”中找到它，并且可以更改該值以查看新顏色。

5. 點擊VBA編輯器工具欄中的“運(yùn)行”圖標(biāo)運(yùn)行程序，符合條件的行將自動填充設(shè)置的顏色。

6. VBA自動填充符合條件的線條的顏色。

EXCELVBA填充單元格顏色？

謝謝。我擅長于技能。

在日常工作中，我們經(jīng)常在Excel中突出表格數(shù)據(jù)的顏色，使數(shù)據(jù)的重要性一目了然。

雖然，這不是一個好習(xí)慣

！這里，我將介紹三種按顏色分類和匯總的方法

1。使用搜索功能按格式查找具有相同顏色的單元格；

2。選擇所有相同的顏色區(qū)域；

3。定義與名稱相同的顏色區(qū)域；

4。用名稱替換公式中的區(qū)域，實現(xiàn)分類匯總；

動畫演示如下：

實現(xiàn)步驟：

1。按顏色2。利用子函數(shù)實現(xiàn)對過濾數(shù)據(jù)的動態(tài)統(tǒng)計。

動畫演示如下：

1。定義名稱并輸入公式=獲取.CELL（63，A2）&Ampt（now（））動態(tài)獲取單元格填充顏色；

2。添加一個輔助列，并在輔助列中輸入公式：=name；

3。使用條件統(tǒng)計函數(shù)對統(tǒng)計數(shù)據(jù)進(jìn)行分類，如SUMIF、CONTIFF等；

下面的動畫演示：

如果你有一定的VBA基礎(chǔ)，你可以用VBA來實現(xiàn)它

！好吧，我來回答這個問題。我希望我能幫助你

！謝謝。我很擅長技巧

EXCEL中如何用VBA將某個單元格填充顏色？

Universal excel當(dāng)然有辦法實現(xiàn)這種小案例；方法1：在VBA中編寫顏色代碼-->；然后返回excel--> view--> macro--> view macro--> options--> set shortcut key--> confirm。在后續(xù)操作中，只需選擇需要設(shè)置顏色的表格，然后按設(shè)置快捷鍵即可。代碼如下：；sub TST（）ActiveCell.Interior.ColorIndex顏色索引=20end sub；方法二：手工填充任意單元格，其他單元格默認(rèn)使用內(nèi)置快捷鍵F4重復(fù)上一步操作，符合要求。