在Excel中設置單元格字體格式時，用戶可以在調色板中選擇顏色，如下圖所示。

在VBA代碼中如何提供調色板讓用戶選擇顏色呢？
一種方法是調用Excel的系統對話框實現設置顏色，對話框如下圖所示。

Application.Dialogs(xlDialogFont).Show

但是，并不是所有的格式設置都有與之對應的系統對話框可以在代碼中調用，所以調用系統調色板供用戶選擇顏色，然后使用代碼設置格式是更加通用的實現方式。

Type udtColorlStructSize As LonghwndOwner As LonghInstance As LongrgbResult As LonglpstrColors As Stringflags As LonglCustData As LonglpfnHook As LonglpTemplateName As Long End Type Declare Function ChooseColorA Lib "Comdlg32" _(lpChooseColor As udtColor) As Long Sub Demo030()Dim strColors As String * 16Dim udtMyColor As udtColorWith udtMyColor.lStructSize = 36.lpstrColors = strColorsEnd WithIf ChooseColorA(udtMyColor) = 0 Then Exit Sub[A1].Font.Color = udtMyColor.rgbResult End Sub

第21行代碼調用API函數ChooseColorA，顯示系統調色板如下圖，用戶選擇的顏色保存在udtMyColor中。

第22行代碼中udtMyColor.rgbResult返回顏色的RGB值，用于設置字體顏色。

總結

以上是生活随笔為你收集整理的VBA调用系统调色板的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。