仅以条件格式显示图标，不显示单元格的值

Question

几年前，我从 Paul Bica 的帖子中借用了下面的代码。 (Using Conditional Formatting with Icon Sets with six conditions)

Option Explicit

Public Sub testIcons()
   Application.ScreenUpdating = True
   setIcon Sheet1.UsedRange
   Application.ScreenUpdating = True
End Sub

Public Sub setIcon(ByRef rng As Range)
   Dim cel As Range, sh As Shape, adr As String

   For Each sh In rng.Parent.Shapes

      If InStrB(sh.Name, "$") > 0 Then sh.Delete
   Next: DoEvents
   For Each cel In rng
      If Not IsError(cel.Value2) Then
         If Val(cel.Value2) > 0 And Not IsDate(cel) Then
           adr = cel.Address
           Set sh = Sheet1.Shapes.AddShape(msoShapeOval, cel.Left + 5, cel.Top + 2, 10, 10)
           sh.ShapeStyle = msoShapeStylePreset38: sh.Name = adr
           sh.Fill.ForeColor.RGB = getCelColor(Val(cel.Value2))
           sh.Fill.Solid
         End If
      End If
   Next
End Sub

Public Function getCelColor(ByRef celVal As Long) As Long
   Select Case True
      Case celVal = 1:    getCelColor = RGB(211, 211, 211):    Exit Function
      Case celVal = 2:    getCelColor = RGB(0, 0, 0):    Exit Function
      Case celVal = 3:    getCelColor = RGB(255, 0, 0):    Exit Function
      Case celVal = 4:    getCelColor = RGB(255, 153, 204):  Exit Function
      Case celVal = 5:    getCelColor = RGB(255, 255, 51):  Exit Function
      Case celVal = 6:    getCelColor = RGB(0, 204, 0):  Exit Function
   End Select
End Function

我想让它只显示图标而不显示单元格的值。

Answer 1

如果您对正在更改的单元格的数字格式感到满意，我认为在此行之后：

sh.Fill.Solid

你可以说：

cel.NumberFormat = ";;;"

这应该有效地使单元格的内容透明¹（匹配单元格的背景颜色）。

似乎对我有用：

---

¹ 似乎不适用于包含错误的单元格（例如#N/A），但我认为这不是问题，因为您的代码忽略了包含错误的单元格。