如何通过VBA为Excel颜色选择器设置初始颜色？

你之前的参数报错是因为xlDialogPatterns.Show不接受拆分的R/G/B分量作为独立参数，它需要传入合并后的RGB长整型值（通过RGB()函数生成的单个数值）。

正确实现步骤 #

1. 生成初始化颜色的完整RGB值

   Dim initColor As Long
   initColor = RGB(255, 0, 0) ' 对应你测试的红色参数
   

2. 调用颜色选择器并传入初始化参数

   ' 第一个参数为图案样式（1代表实心填充，可按需调整），第二个参数是要初始化的颜色
   Application.Dialogs(xlDialogPatterns).Show 1, initColor
   

从文本框获取颜色值的扩展写法 #

如果后续要从文本框读取R/G/B分量，只需将文本值转为整数后传入RGB()函数：

Dim r As Long, g As Long, b As Long
' 假设文本框分别为TextBox1（红）、TextBox2（绿）、TextBox3（蓝）
r = CLng(TextBox1.Value)
g = CLng(TextBox2.Value)
b = CLng(TextBox3.Value)

Dim initColor As Long
initColor = RGB(r, g, b)
Application.Dialogs(xlDialogPatterns).Show 1, initColor

注意：需确保文本框输入的是0-255范围内的整数，避免类型转换或颜色值无效的报错。

内容的提问来源于stack exchange，提问作者Automation Monkey