条件格式和电子表格控制？答案

【问题标题】：Conditional Formatting and Spreadsheet Control?条件格式和电子表格控制？
【发布时间】：2014-12-17 16:58:43
【问题描述】：

我有一个带有一些条件格式的工作表，它将在用户表单的后台运行...在用户表单上，我有一个电子表格控件，我需要用工作表中的值填充它。

我有办法做到这一点并保持条件格式吗？我真的需要电子表格控件上的格式...

如果有一种方法可以对电子表格控件本身进行条件格式设置，那就太好了。

提前致谢

【问题讨论】：

好的，所以我在初始化 sub If Me.Spreadsheet1.Range("A8").Value = "1" Then Me.Spreadsheet1.Range("A8") 的形式中提出了这段代码。 Interior.Color = RGB(0, 0, 255) Me.Spreadsheet1.Range("A8").Font.Color = RGB(0, 0, 255) ElseIf Me.Spreadsheet1.Range("A8").Value = " 0" 然后 Me.Spreadsheet1.Range("A8").Interior.Color = RGB(255, 0, 0) Me.Spreadsheet1.Range("A8").Font.Color = RGB(255, 0, 0) End如果它适用于第一个单元格，但我不知道如何使它适用于整行.. 有什么想法吗？

标签： formatting controls conditional spreadsheet

【解决方案1】：

我设法找到了解决问题的方法

For Each c In Me.Spreadsheet1.Range("A8:XFD8")
If c.Value = "1" Then
c.Interior.Color = RGB(0, 0, 255)
c.Font.Color = RGB(0, 0, 255)
ElseIf c.Value = "0" Then
c.Interior.Color = RGB(255, 0, 0)
c.Font.Color = RGB(255, 0, 0)
End If
Next c

基本上，我在初始化时告诉表单检查值为“1”的单元格的第 10 行，并将内部颜色和字体颜色替换为蓝色，然后仅对值“0”执行相同的操作用红色代替他们的颜色这就是您有条件地格式化电子表格控件的方式:)

希望这对某人有所帮助。

【讨论】：