Excel中上下两个数值大小对比，自己改变颜色和自己添加字符?

97532615

表格中上下两个数值大小对比，以下面这个数为基础，上面的数比他大，字体就变为红色然后数值后面加上↑符号，反之，比他小就变为绿色，数值后面加上↓符号。想直接填写数值后回车改变颜色和自己添加字符，有大神知道的吗？？求助、

kuangben8

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Target.Row = 1 Then Exit Sub
   
3.     If Target.CountLarge > 1 Then Exit Sub
   
4.     If Target.Offset(-1, 0) = "" Then Exit Sub
   
5.     Dim num#
   
6.     Application.EnableEvents = False
   
7.     num = 1 * WorksheetFunction.Substitute(WorksheetFunction.Substitute(Target.Offset(-1, 0), "↑", ""), "↓", "")
   
8.     Target = 1 * WorksheetFunction.Substitute(WorksheetFunction.Substitute(Target, "↑", ""), "↓", "")
   
9.     With Target
   
10.         If .Value < num Then
    
11.             .Value = Format(.Value, "0.00↓")
    
12.             .Font.Color = RGB(0, 255, 0)
    
13.             
    
14.         ElseIf .Value > num Then
    
15.             .Value = Format(.Value, "0.00↑")
    
16.             .Font.Color = RGB(255, 0, 0)
    
17.             
    
18.         End If
    
19.     End With
    
20.     Application.EnableEvents = True
    
21. End Sub

复制代码

kuangben8

附件.zip (13.83 KB, 下载次数: 2)

2020-8-25 13:27 上传

点击文件名下载附件