Hsieh

¦^´_ 5# kai6929

1. Sub check()
   
2.     Dim K As String, M As Boolean
   
3.     With ActiveSheet.Shapes(Application.Caller)
   
4.         With .TextFrame
   
5.             K = .Characters.Text
   
6.             If Left(K, 1) = "¡¼" Then
   
7.                 .Characters.Text = "¡½³sÄò¼Ò"
   
8.                 M = False
   
9.             Else
   
10.                 .Characters.Text = "¡¼¤uµ{¼Ò"
    
11.                 M = True
    
12.             End If
    
13.             .Characters(1, Len(K) + 1).Font.Size = 30
    
14.             .Characters(1, 1).Font.Size = 30
    
15.         End With
    
16.         .TopLeftCell.Offset(, 1) = M
    
17.         .TopLeftCell.Offset(, 2) = IIf(CSng(M) = 0, 0, 1)
    
18.     End With
    
19.       If Application.CountA(Range("A7:A65536")) > 0 Then Range("A7:A65536").SpecialCells(xlCellTypeConstants).EntireRow.Hidden = M
    
20. End Sub

½Æ»s¥N½X