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

kim595

¦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)

¤U¸ü¦¸¼Æ: 24

2011-3-25 17:26

chin15

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

kim595

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

GBKEE

¦^´_ 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

Hsieh

¦^´_ 3# GBKEE


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

GBKEE

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

Hsieh

¦^´_ 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