Question

我用vba的语言有这个文本，我必须编辑插入黑色向上/向下指向三角形，具体取决于数据是增加还是减少..

Range("F5").FormulaR1C1 = "=IF(Filter_Corporate!R[-3]C[17]=""s"",IF(Filter_Corporate!R[-3]C[16]-Filter_Corporate!R[-3]C[15]>0,""" & ChrW(&H25B2) & """,""" & ChrW(&H25BC) & """), """")"

我试图设置一个if-cicle控件，但它没有woork

任何人都可以帮助我???? 提前谢谢！

Answer 1

在您的行之后添加：

If [F5].Value = ChrW(&H25B2) Then
    [F5].Font.Color = vbGreen
ElseIf [F5].Value = ChrW(&H25BC) Then
    [F5].Font.Color = vbRed
End If

Answer 2

您的代码适用于我。我注意到目标单元格的引用样式是绝对的，而源单元格是相对的（但在固定的工作表中）。真的有两个数字，然后是那些源单元格中的's'吗？

Debug.Print Range("Filter_Corporate!U2").Value, _
    Range("Filter_Corporate!V2").Value, _
    Range("Filter_Corporate!W2").Value

Answer 3

以下行从过滤数据中获取值，我设置了一个循环IF。这个循环聚焦ON_ 关于价值的重要性，然后设置绿点三角形和红点三角形然后该代码扩展到了专栏。

Range("H3").Select
ActiveCell.FormulaR1C1 = _
"=IF('Filter_A1!R[-1]C[15]=""s"",IF('Filter_A1!R[-1]C[14]-'Filter_Target Privati'!R[-1]C[13]>0,""" & ChrW   
(&H25B2) & """,""" & ChrW(&H25BC) & """), """")"


Range("H3").Select
Selection.AutoFill Destination:=Range("H3:H100"), Type:=xlFillDefault
Range("H3:H100").Select


Range("H:H").Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:=ChrW(&H25B2)

Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -11489280
.TintAndShade = 0
End With

 Selection.FormatConditions(1).StopIfTrue = False


 Range("H:H").Select
 Selection.FormatConditions.Add Type:=xlCellValue, enter code hereOperator:=xlEqual, _
 Formula1:=ChrW(&H25BC)
 Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
 With Selection.FormatConditions(1).Font
 .Color = -16776961
 .TintAndShade = 0
  End With
 Selection.FormatConditions(1).StopIfTrue = False

我希望对某人有用!!!

如何在黑色上下指向三角形VBA的语言中分配颜色？

3 个答案: