我正在编写一个程序,用于根据用户请求更改字体和背景颜色。之后收到backgroundColorData和textColorData 我不喜欢变动,由于用户要求的颜色,但我觉得有一个更好的办法,使其然后我选择这样做(我的代码可能重演)等 问题,我没'找到答案是如何使textColor/backgroundColor更“红”或更多“蓝”Excel:使用rgb设置单元格和文本颜色的背景颜色
Select Case backgroundColorData
Case Is = "Black"
Selection.Interior.Color = RGB(0, 0, 0)
Case Is = "Red"
Selection.Interior.Color = RGB(255, 0, 0)
Case Is = "Blue"
Selection.Interior.Color = RGB(0, 0, 255)
Case Is = "White"
Selection.Interior.Color = RGB(255, 255, 255)
End Select
Select Case textColorData
Case Is = "Black"
Selection.Font.Color = RGB(0, 0, 0)
Case Is = "Red"
Selection.Font.Color = RGB(255, 0, 0)
Case Is = "Blue"
Selection.Font.Color = RGB(0, 0, 255)
Case Is = "White"
Selection.Font.Color = RGB(255, 255, 255)
End Select
任何帮助,将不胜感激。
欢迎到StackOverflow,David。尽管欢迎任何新用户,但在我看来,帖子可能在这里放错了位置。如果你正在努力优化代码,那么你应该在这里发布你的问题:http://codereview.stackexchange.com/这是你发布**工作**代码,只需要优化。关于你的另一个问题:寻找一种比红色更“红”的颜色,你可能想要试验窗户提供的颜色(1600万色),如果仍然不够,那么你可能想投资于一个新的显示器。 – Ralph
嗨@Ralph,感谢您的评论我是新的在这个网站,我没有仇恨你提到的网站,但一定要在下次我会用“优化代码”的建议时使用它。关于我的第二个问题,我想我没有解释清楚我的问题: 当用户要求我使单元格背景更蓝或红色(等..)是否有任何选项与RGB做到这一点相对于当前的颜色?例如类似的东西:.Font.Color = Rgb(+100红色)?? – David