ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

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

=UPPER(A1)

TOP

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

TOP

¦^´_ 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
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP

¥»©«³Ì«á¥Ñ cypd ©ó 2016-1-4 14:37 ½s¿è

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

TOP

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

10501.rar (9.77 KB)

TOP

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
ù

TOP

¦^´_ 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
{...} ªí¥Ü»Ý­n¥Î CTRL+SHIFT+ENTER ¤TÁä¿é¤J¤½¦¡

TOP


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

TOP

¨­¤ÀÃÒÀË®Ö

­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¯à«ü¾É  ^^

TOP

        ÀR«ä¦Û¦b : °µ¦n¨Æ¤£¯à¤Ö§Ú¤@¤H¡A°µÃa¨Æ¤£¯à¦h§Ú¤@¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD