ML089

¦^´_ 1# cypd
¦P¤@®æ­n§ïÅܵLªk¥Î¤½¦¡¡A»Ý­n¥ÎVBA
«ö ALT-F11¡A±NVBA©ñ¤J

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2.     If Intersect([A:A], Target) Is Nothing Then Exit Sub
   
3.     Application.EnableEvents = False
   
4.     Target = UCase(Target)
   
5.     Application.EnableEvents = True
   
6. End Sub

½Æ»s¥N½X

2016-1-4 09:42

ML089

¦^´_ 5# cypd

7¼Ó¤w¸g»¡©ú

¤U¦C³o¦æ¬O±±¨î­n³B²z¦ì¸m¡A[A:A] ªí¥ÜAÄæ­n³B²z
    If Intersect([A:A], Target) Is Nothing Then Exit Sub

­Y¬O H5:H6­n³B²z¡A­×§ï¦p¤U
   If Intersect([H5:H6], Target) Is Nothing Then Exit Sub