VBA：如何基於使用字符數的單元格值插入符號

Question

目標：如果單元格A1值為正，我希望綠色箭頭指向單元格B1中，但是如果單元格A1值為負，則我希望紅色箭頭指向下方。 宏記錄器使用輸出"?" 在插入符號時，因此我不確定如何正確更改代碼。 我應該使用什么代碼替換問號？

字符代碼（向下箭頭）：2193
字符代碼（向上箭頭）：2191

If Range("A1") > 0 Then
 Range("B1").Select
 ActiveCell.FormulaR1C1 = "?"
 Range("B1").Select
 With Selection.Font
    .Color = -11489280
    .TintAndShade = 0
Else 
 ActiveCell.FormulaR1C1 = "?"
 Range("B1").Select
 With Selection.Font
    .Color = -16776961
    .TintAndShade = 0

Answer 1

怎么樣：

Sub arrow()
    With Range("B1")
        If Range("A1") > 0 Then
            .Value = "#"
            .Font.ColorIndex = 4
        Else
            .Value = "$"
            .Font.ColorIndex = 3
        End If
        .Font.Name = "Wingdings 3"
    End With
End Sub