如何用VBA按条件隐藏单元格内容

616891719

假设在A1=1，A2=好，B1=坏，B2=3，
我想通过函数或VBA语言实现，单元格内如果非数字，则将内容隐藏。
请给位帮忙解决下，谢谢了

yyyydddd8888

点击按钮隐藏，再点击按钮显示

隐藏内容.zip (8.19 KB, 下载次数: 11)

2013-12-9 15:04 上传

点击文件名下载附件

1. Sub tt()
   
2. Dim st, i&, j&, bl As Boolean
   
3. bl = True
   
4. For i = 1 To 2
   
5.     For j = 1 To 100
   
6.        st = Cells(j, i)
   
7.        If Not VBA.IsNumeric(st) Then
   
8.           If Cells(j, i).Font.ColorIndex = 2 Then bl = False
   
9.           If bl Then
   
10.             Cells(j, i).Font.ColorIndex = 2
    
11.           Else
    
12.             Cells(j, i).Font.ColorIndex = 1
    
13.           End If
    
14.        End If
    
15.       
    
16.     Next j
    
17. Next i
    
18. 
    
19. End Sub
    

复制代码

dongqing1998

自己录制一个条件格式的宏就可以了，下面是录制的宏(其中把无用的代码及注释去掉了)

1. Sub Macro1()
   
2.     Range("A1:B2").Select
   
3.     Selection.FormatConditions.Delete
   
4.     Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=ISERR(-A1)"
   
5.     Selection.FormatConditions(1).Font.ColorIndex = 2
   
6. End Sub

复制代码