[µo°Ý] ¨­¤ÀÃÒ¥N½X

cypd

­Y¦bA1Àx¦s®æ¿é¤J  a123456789
¦³µL¤èªk©Î¤½¦¡?
±NA1Àx¦s®æ¤º®e¦Û°ÊÂà´«¦¨   A123456789(­n¦b¦P¤@Àx¦s®æ)
½Ð¦U¦ì¥ý¶i°ª¤â¸Ñ´b
·P®¦  ^^

sujane0701

=UPPER(A1)

sujane0701

©êºp,¨Sª`·N¨ì­n¦b¦P¤@Àx¦s®æ~

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

¤U¸ü (45.21 KB)

2016-1-4 09:42

cypd

¦^´_ 4# ML089
·P®¦ª©¥DML089¸Ñ´b
­Y¬OÀx¦s®æ¦ì¸m¤£©T©w
¨ä¤½¦¡µ{¦¡½X¬O§_­n°µ­×§ï?
·P®¦±z!!^^

cypd

¦^´_ 5# cypd
ªþ¤W½d¨Ò
­Y¬O H5¡BH6Àx¦s®æ­nÂà´«...
¨äµ{¦¡½X¸Ó¦p¦ó...
·P®¦ª©¥DML089¯à¦A«×¸Ñ´b

rouber590324

dear  sir
  If Intersect([H5:H6], Target)    [H5:H6] ¨Ì»Ý¨DÅܧó§Y¥i

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect([H5:H6], Target) Is Nothing Then Exit Sub

    Application.EnableEvents = False

    Target = UCase(Target)

    Application.EnableEvents = True

End Sub

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

cypd

¤ô°Õ!!
¤Ó·PÁ¤G¦ì¥ý¶iªº«ü¾É
ºÃ´bÂI¤wÀò±o¸Ñ¨M
·P®¦  ^^

cypd

­Y¬O­n¦bH5¤§Àx¦s®æ¿é¤J...a123456789
¸Õ°Ý
¯à¦b¦P¤@®æÀx¦s®æ¦Û°ÊÂà´«¦¨...A123456789¡A¨Ã¯à¦P®ÉÀË®Ö¸Ó A123456789ÅçÃÒ¬O§_¥¿½T!
½Ð°Ý¸ÓVBµ{¦¡½X¸Ó¦p¦ó«Ø¥ß(­«ÂI¬O¤p¼g¦r¥ÀÂà´«¦¨¤j¼g...¨Ã¤@¨ÖÅçÃÒ¸Ó¨­¤ÀÃÒ¸¹½X¿é¤J¬O§_¥¿½T)
·P®¦¦U¦ì¥ý¶i¯à«ü¾É  ^^