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

[µo°Ý] ·s¼WÄæ¦ì«á ¸õ¥X"°»¿ù"µøµ¡ªº­ì¦]?

[µo°Ý] ·s¼WÄæ¦ì«á ¸õ¥X"°»¿ù"µøµ¡ªº­ì¦]?

¦U¦ì¾Çªø©j¤U¤È¦n :)
³oÃ䦳¹J¨ì¤@­Ó¤p¤pªº°ÝÃD,½Ð¸ô¹Lªº¤j«L­Ì¬Û±Ï

§Ú¦b·s¼WÄæ¦ìªº®É­Ô(¶À¦â³¡¤À)~¸õ¥X

°õ¦æ¶¥¬q¿ù»~'13':
«¬ºA¤£²Å¦X

ÁöµM§Ú³£ª½±µ«ö"µ²§ô" ¬O¨S¦³µo¥Í¤°»ò°ÝÃD
¤]¥i¥H·s¼W

¦ýÁÙ¬O·Q¤F¸Ñ¤@¤U¬O­þ¸Ì¥X¤F°ÝÃD
½Ð¦U¦ì«e½ú¦h´£ÂI¤F~·P®¦!!¦hÁ :)

¼È©ñ´Ú¸Õºâªí-zª©¥».rar (22.58 KB)

¦^´_ 1# kim595


    ª½±µ«öµ²§ô§Aªº¨Æ¥ó´NµLªk¦bÅX°Ê¤F
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Intersect(Target, [$E$12:$E$65536]) Is Nothing Then Exit Sub 'eÄæ¤p¼gÂà¤j¼g
  3. If Target.Count > 1 Then Exit Sub
  4. Application.EnableEvents = False
  5. Target = UCase(Target)
  6. Application.EnableEvents = True
  7. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 1# kim595
§Ú¦b·s¼WÄæ¦ìªº®É­Ô(¶À¦â³¡¤À)~¸õ¥X
¶À¦â³¡¤À ¦b­þ¸Ì ¨S¬Ý¨£

TOP

¦^´_ 3# GBKEE


    ¬O´¡¤J¾ã¦C©Ò¥HIJµoµ{§Ç«áªºTargetµLªk³Q½T»{©Ò¥H¸õ¥X¿ù»~°T®§
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 4# Hsieh
­ì¨Ó¦p¦¹ ¨S¦³¬Ý²M·¡ÃD·N.ÁÂÁ«üÂI
§A¥[¤W  If Target.Count > 1 Then Exit Sub ¨Ó¤Æ¸Ñ¼Ó¥D°ÝÃD
§Ú±N Target «ü©w¬°²Ä¤@­ÓCell  ´N¨S°ÝÃD¤F
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2. If Intersect(Target.Cells(1), [$E$12:$E$65536]) Is Nothing Then Exit Sub 'eÄæ¤p¼gÂà¤j¼g
  3. Application.EnableEvents = False
  4. Target.Cells(1) = UCase(Target.Cells(1))
  5. Application.EnableEvents = True
  6. End Sub
½Æ»s¥N½X

TOP

·PÁ¨â¦ìª©¥D
¸g´ú¸Õ«á¤w¸g¨S¦³°ÝÃD¤F

TOP

´±½Ð±Ð¨â¦ìª©¥D
¥»ª©¬O§_¦³µoªí¹LVBA°£¿ù±Ð¾Ç¡H
­Y¦³ªº¸Ü«Øij¸m³»¡A·s¤â³£«Ü¶·­n³o¤è­±ªºª¾ÃÑ¡C

TOP

        ÀR«ä¦Û¦b : ¡i°±º¢¤£«e¡A²×µL©Ò±o¡j¤H³£°g©ó´M§ä©_ÂÝ¡A¦]¦Ó°±º¢¤£«e¡FÁa¨Ï®É¶¡¦A¦h¡B¸ô¦Aªø¡A¤]¤FµL¥Î³B¡A²×µL©Ò±o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD