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

[µo°Ý] ¥ÎVBAÅý©T©wÄæ¦ì¤p¼g¦Û°ÊÂà¤j¼g µ{¦¡¥¢®Äªº­ì¦]?

[µo°Ý] ¥ÎVBAÅý©T©wÄæ¦ì¤p¼g¦Û°ÊÂà¤j¼g µ{¦¡¥¢®Äªº­ì¦]?

¨Ï¥Î«e½ú´£¨Ñªº»y¥y:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [$E$12:$E$65536]) Is Nothing Then Exit Sub 'eÄæ¤p¼gÂà¤j¼g
Application.EnableEvents = False
Target = UCase(Target)
Application.EnableEvents = True
End Sub

============

¦¹¤u§@ªí µL¥ô¦óÀx¦s®æ¦X¨Ö
E Äæ·|³°Äò¼W¥[·sÄæ¦ì

¤£ª¾¹D¬°¤°»ò µ{¦¡¤£°_§@¥Î¤F
·Ð½Ð¦U¦ì«e½ú¦h´£ÂI,·P®¦,¦hÁ :)

¦^´_ 1# kim595
¥¿±`¥i¹B¦æªü!
½ÐªþÀɬݬÝ

TOP

¦^´_ 1# kim595
°õ¦æ¥H¤Uµ{§Ç«á¦A¸Õ¸Õ¬Ý
Sub NN()
Application.EnableEvents = True
End Sub
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ kimbal ©ó 2011-3-20 15:02 ½s¿è

¥ý¸ÕHsieh ¥Sªº

¦A§ï§ï(¦P1®É¶¡§ï¦h®æ):
  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. Application.EnableEvents = False
  4. For Each c In Target
  5. c.Value = UCase(c)
  6. Next
  7. Application.EnableEvents = True
  8. End Sub
½Æ»s¥N½X
À´±oµo°Ý,µª®×´N·|¦b¨ä¤¤

¤µ¤éの¤@¬íは  ©ú¤éにない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

¼Ó¥Dªºµ{¦¡¨S°ÝÃD,¥i¬O¨S¶ÇÀɤW¨Ó,¬O§ä¤£¥X°ÝÃDªº

TOP

ÁÂÁ¦U¦ì«e½ú¼ö¤ßªºÀ°§Ú§ä¸Ñ¨Mªº¤èªk,«D±`·P®¦»P¦hÁÂ

¸Õ¤FHsieh ªO¤jªº¤èªk«á¤S¥i¦æ¤F,
¯uªº¦n©_©Ç @@
¦³®É¶¡§Ú·|¦A¬ã¨s¬Ý¬Ýkimbal ¤j¤jªº¤è¦¡
­Y¦³°ÝÃD·|¦A´£¥X¨Ó½Ð±Ð¦U¦ì

TOP

        ÀR«ä¦Û¦b : °µ¸Ó°µªº¨Æ¬O´¼¼z¡A°µ¤£¸Ó°µªº¨Æ¬O·Mè¡C
ªð¦^¦Cªí ¤W¤@¥DÃD