在VBA中，如何实现调用Excel调色板，并返回选中颜色的值？

almeida

非常感谢。  只是，我想要的是“Application.Dialogs(xlDialogPatterns).Show”返回的颜色值，赋给变量X，即X＝这个颜色的数值。  而不是把A1单元格改变颜色。

lsftest

almeida 发表于 2013-12-2 18:40
非常感谢。  只是，我想要的是“Application.Dialogs(xlDialogPatterns).Show”返回的颜色值，赋给变量X，即 ...

1. Sub lsftest()
   
2. A = ActiveWorkbook.Colors(1)
   
3. Application.Dialogs(xlDialogEditColor).Show (1)
   
4. B = ActiveWorkbook.Colors(1)
   
5. ActiveWorkbook.Colors(1) = A
   
6. MsgBox B
   
7. End Sub
   

复制代码

almeida

非常感谢，全通过了。  只是不理解，为什么要在A、B之间转来转去呢？直接 不行吗？ 还有ActiveWorkbook.Colors(1)是什么意思？  Application.Dialogs(xlDialogEditColor).Show (1)这里的1，是什么作用？  望讲解。  多谢。

liucqa

almeida 发表于 2013-12-2 21:02
非常感谢，全通过了。  只是不理解，为什么要在A、B之间转来转去呢？直接 不行吗？ 还有ActiveWorkbook.Col ...

Workbook.Colors 属性
返回或设置工作簿调色板中的颜色。调色板有 56 项，每项以一个 RGB 值表示。Variant 类型，可读/写。

almeida

liucqa 发表于 2013-12-2 21:07
Workbook.Colors 属性
返回或设置工作簿调色板中的颜色。调色板有 56 项，每项以一个 RGB 值表示。Vari ...

多谢 liucqa 解答。

lsftest

almeida 发表于 2013-12-2 21:02
非常感谢，全通过了。  只是不理解，为什么要在A、B之间转来转去呢？直接 不行吗？ 还有ActiveWorkbook.Col ...

因为这个方法是把工作簿调色板的第一格作为存放用户选择的颜色的。。Application.Dialogs(xlDialogEditColor).Show (1)会把你原本调色板的第一格改成了用户选择的颜色，所以在改之前，就先把原来的颜色用变量A记下来,然后用户选择颜色，用户选择了颜色后，调色板的第一格就会变成用户刚选的颜色，同时调色板窗口关闭，我们就把新的调色板第一格颜色读进变量B里，再把原来的颜色A放回调色板第一格去，恢复现场。。。
那个1是代表用模式窗口的方式打开调色板窗口，不先把这个窗口关掉（无论你是改了颜色或什么都不做直接关闭窗口或按取消键都行）就不能在excel再进行其他操作。

almeida

非常感谢。