在excel中,基于百分比的coolur编码

在excel中,基于百分比的coolur编码,excel,excel-formula,vba,Excel,Excel Formula,Vba,在excel电子表格中,我有两列,它们的最大和可以是10。因此,当用户在两列中输入值时,即3和7。所以它是100%。在这种情况下,圆圈将完全填充一种颜色 在第二种情况下,当输入为2和3时,则为50%,因此现在圆圈将填充一半…选项1条件格式: 我不太确定你在寻找什么(我会回应吉佩德的评论)。听起来您可能想设置一些条件格式功能(如果不设置,很抱歉)。下面是在Excel中设置条件格式的快速指南。再次,如果这不是你要找的,很抱歉 *编辑:抱歉,请重新阅读您的帖子,如果您想在总和小于百分之五十时使用不同的

在excel电子表格中,我有两列,它们的最大和可以是10。因此,当用户在两列中输入值时,即3和7。所以它是100%。在这种情况下,圆圈将完全填充一种颜色


在第二种情况下,当输入为2和3时,则为50%,因此现在圆圈将填充一半…

选项1条件格式:

我不太确定你在寻找什么(我会回应吉佩德的评论)。听起来您可能想设置一些条件格式功能(如果不设置,很抱歉)。下面是在Excel中设置条件格式的快速指南。再次,如果这不是你要找的,很抱歉

*编辑:抱歉,请重新阅读您的帖子,如果您想在总和小于百分之五十时使用不同的颜色,请将“不等于10”更改为“不等于5”

选项2(VBA):

同样,我不确定这是否是你想要的。您已经用VBA标记了这个问题,因此这里有一个合并宏的可能方法。它将在列上执行一个循环,将前两个值相加[使值成为我所做的百分比(a+B)*(0.1)],其中值小于50%的单元格为红色,值大于或等于50%的单元格为绿色。希望这有帮助

Sub STACKtest()
'
' STACKtest Macro

Range("C2").Select
Dim cell As Range
Do While Not IsEmpty(ActiveCell)
If TypeName(Selection) <> "Range" Then Exit Sub
Const REDINDEX = 3
Const GREENINDEX = 4
Application.ScreenUpdating = False
For Each cell In Selection
If cell.Value < 0.5 Then
cell.Interior.ColorIndex = REDINDEX
Else
cell.Interior.ColorIndex = GREENINDEX
End If
Next cell
ActiveCell.Offset(1, 0).Select
Loop

End Sub
子堆栈测试()
'
'堆栈测试宏
范围(“C2”)。选择
暗淡单元格作为范围
不为空时执行(ActiveCell)
如果TypeName(选择)“Range”,则退出Sub
常数REDINDEX=3
常数GREENINDEX=4
Application.ScreenUpdating=False
对于选择中的每个单元格
如果单元格值<0.5,则
cell.Interior.ColorIndex=REDINDEX
其他的
cell.Interior.ColorIndex=绿色索引
如果结束
下一个细胞
ActiveCell.Offset(1,0)。选择
环
端接头
以下是我使用此代码的测试数据:

之前:

之后:

什么是“圆圈”?你到底想完成什么还不清楚。展示你目前的努力(无论是否有效)可以大大有助于解释你想做什么。