ppt里的表格数字如何自动标识负数为红色字体

xiaomy0001

ppt里的表格数字如何自动标识负数为红色字体，详见附件。

守候_CJ

PPT VBA——设置表格单元格数字格式
一、示例代码

1. Sub 表格负数格式()
   
2.     Dim tb As Table
   
3.     Dim sp As Shape
   
4.     Dim i As Long
   
5.     Dim j As Long
   
6.     Dim cel As Cell
   
7.     Dim s As String
   
8.    
   
9. '    For Each sp In ActivePresentation.Slides(1).Shapes
   
10. '        i = i + 1
    
11. '        If sp.HasTable Then
    
12. '            MsgBox i
    
13. '        End If
    
14. '    Next
    
15.     Set tb = ActivePresentation.Slides(1).Shapes(6).Table
    
16.    
    
17.     For i = 1 To tb.Rows.Count
    
18.         For j = 1 To tb.Columns.Count
    
19.             Set cel = tb.Cell(i, j)
    
20.             
    
21.             s = cel.Shape.TextFrame.TextRange.Text
    
22.             Debug.Print s
    
23.             s = Trim(s)
    
24.             If Right(s, 1) = "%" Then
    
25.                 s = Mid(s, 1, Len(s) - 1)
    
26.             End If
    
27.             
    
28.             If IsNumeric(s) Then
    
29.                 If Val(s) < 0 Then
    
30.                     cel.Shape.TextFrame.TextRange.Font.Color.RGB = RGB(255, 0, 0)
    
31.                 End If
    
32.             End If
    
33.         Next j
    
34.     Next i
    
35.    
    
36.     Set tb = Nothing
    
37.     Set cel = Nothing
    
38. End Sub

复制代码

守候_CJ

守候_CJ 发表于 2023-8-14 17:38
PPT VBA——设置表格单元格数字格式
一、示例代码

视频详解：
https://www.bilibili.com/video/BV1k8411X7LG/?share_source=copy_web&vd_source=0f7e137c0fb8ba5c1480ba2841dd9284