VBA - 用色已經在Excel中選擇，以填補細胞內部

Question

我知道如何設置爲某一顏色的細胞內部的顏色，但有沒有辦法做到這一點，以便它（即單元格顏色）默認到已經在色帶的顏色窗口中選擇的顏色？

Answer 1

我得到這個非常晚，但因爲它在谷歌搜索別的東西彈出，我想我會提所選答案不正確時，它說你不能做的提交者想要的東西。您可以直接激活控件...

Application.CommandBars.ExecuteMso "CellFillColorPicker" 

...並且它會將當前選定的顏色應用於所選範圍。

實際上，我環顧四周，看看是否有一種方法可以選擇通過VBA控件庫另一種顏色，所以我可以使默認的「無填充」，而不是黃色時，首先打開工作簿。

Answer 2

恐怕你不能

無論如何，你可以使用此代碼使用自定義的調色板：

的modColorFunctions模塊包含一個名爲 ChooseColorDialog功能，將顯示一個Windows拾色器對話和 返回RGB龍顏色值。如果用戶取消對話框時， 結果是-1。例如，

Dim RGBColor As Long 
Dim Default As Long 
Default = RGB(255, 0, 255) 'default to purple 
RGBColor = ChooseColorDialog(DefaultColor:=Default) 
If RGBColor < 0 Then 
    Debug.Print "*** USER CANCELLED" 
Else 
    Debug.Print "Choice: " & Hex(RGBColor) 
End If 

從顯示拾色器對話框的http://www.cpearson.com/Excel/Colors.aspx

您需要添加color module使章採取它的工作