GBKEE

¦^´_ 1# jakcy1234
¬O³o¼Ë¶Ü?

¤U¸ü (42.38 KB)

2013-9-8 14:01

GBKEE

¦^´_ 3# jakcy1234
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim C As Range, i As Integer
   
4.     For Each C In ActiveSheet.UsedRange
   
5.         For i = 1 To Len(C)
   
6.             If Asc(Mid(C, i, 1)) >= 0 And Asc(Mid(C, i, 1)) <= 255 Then
   
7.                 C.Characters(Start:=i, Length:=i).Font.Name = "Arial"
   
8.             Else
   
9.                 C.Characters(Start:=i, Length:=i).Font.Name = "·s²Ó©úÅé"
   
10.             End If
    
11.         Next
    
12.     Next
    
13. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 5# jakcy1234

1. If Len(rCell.Text) > 1 Or   Val(rCell.Value) > 1 Then
   
2.                rCell.Font.Name = "Arial"
   
3.             Else
   
4.                 rCell.Font.Name = "Arial"
   
5.            End If

½Æ»s¥N½X

³oµ{¦¡½X¤£ºÞ¦³µL IF §PÂ_¦¡,³£¬O°õ¦æ rCell.Font.Name = "Arial"

GBKEE

¦^´_ 8# jakcy1234
³o¤£»P§A5#ªºµ{¦¡½X¤@¼Ë?

1. Option Explicit
   
2. Private Sub Worksheet_Change(ByVal Target As Range)
   
3.     Dim rCell As Range
   
4.     Application.EnableEvents = False
   
5.     For Each rCell In Target
   
6.         rCell.Font.Name = "Arial"           ' ¤@¼Ëªº ¦r«¬
   
7.         '********************************************************
   
8.         'If Len(rCell.Text) > 1 Or Val(rCell.Value) > 1 Then   '*
   
9.          '       rCell.Font.Name = "Arial"  ' ¤@¼Ëªº ¦r«¬      '*
   
10.         'Else                                                  '*
    
11.         '        rCell.Font.Name = "Arial"  ' ¤@¼Ëªº ¦r«¬      '*
    
12.         'End If                                                '*
    
13.         '********************************************************
    
14.     Next
    
15.     Application.EnableEvents = True
    
16. End Sub

½Æ»s¥N½X