½Ð°Ý¬°¦óVBAµ{¦¡¼g¤F^¤å¦r¥À¦Û°ÊÅܦ¨¤j¼g«á¤ñ¹ïªºµ{¦¡´N¤£¯à¶]©O?
- ©«¤l
- 228
- ¥DÃD
- 62
- ºëµØ
- 0
- ¿n¤À
- 364
- ÂI¦W
- 17
- §@·~¨t²Î
- Win 10
- ³nÅ骩¥»
- Office 2007 & 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-3-5
- ³Ì«áµn¿ý
- 2024-3-12
|
½Ð°Ý¬°¦óVBAµ{¦¡¼g¤F^¤å¦r¥À¦Û°ÊÅܦ¨¤j¼g«á¤ñ¹ïªºµ{¦¡´N¤£¯à¶]©O?
½Ð°Ý¦U¦ì¡A¬°¦óVBAµ{¦¡¼g¤F^¤å¦r¥À¦Û°ÊÅܦ¨¤j¼g«á¤ñ¹ïªºµ{¦¡´N¤£¯à¶]©O?
20200213 ²£«~¬d¸ß¨t²Î ÀɮפU¸ü¡Ghttp://www.FunP.Net/910583
³oÓÀɬOÁÙ¨S¼g ¦Û°ÊÂà´«AÄæ^¤å¦r¥À¦Û°ÊÅܤj¼g(¦]¬°n¨¾§b¡A¦³¤H·|¥´¦¨¤p¼g¡A´N¤ñ¹ï¤£¥X¨Ó)
¦pªG¤j¯«¦³§Oªº¼gªk¤]·Ð½Ð§iª¾¡A·P¿E¤£ºÉ¡C
20200213 ²£«~¬d¸ß¨t²Î(^¤å¦r¥À§ï¤j¼g)-¤ñ¹ï¤£¯à¬d¤F ÀɮפU¸ü¡Ghttp://www.FunP.Net/768585
³oÓÀɬ°¼g¤F ¦Û°ÊÂà´«AÄæ^¤å¦r¥À¦Û°ÊÅܤj¼g¡A¨ìÂŦâ«ö¶s ¤ñ¹ïOE No«á¸ê®Æ (¤U¹Ï2)´N¶]¤£¥X¨Ó¤F
½Ð°ÝVBAn¦p¦óקï©O?
¤U¹Ï1¬°°õ¦æ AÄæ^¤å¦r¥À¦Û°ÊÅܤj¼g
¹Ï2
µ{¦¡½X¼g¦b¥H¤U¤u§@ªí¤¤¡GShee7³]¤ñ¹ï±ø¥ó²M³æ
µ{¦¡½X¦p¤U¡G
Sub Uppercase()
Dim t1
t1 = Timer '³o¬O²£¥Í¬í¼Æªº MSG
' Application.EnableCancelKey = xlDisabled
Application.ScreenUpdating = False '¸T¤î«Ì¹õ¨ê·s
Application.Calculation = xlCalculationManual 'pºâ¼Ò¦¡¬°¤â°Ê
'=============================================¥H¤U±N[³]¤ñ¹ï±ø¥ó²M³æ]¤u§@ªíªº(A2~A151)½d³ò¤º©Ò¦³¤å¦r³£Åܬ°¤j¼g¦r¥Àªº¥¨¶°
For Each x In Range("A2:A151")
x.Value = UCase(x.Value) ' Change the text in the range to uppercase letters.
Next
'=============================================¥H¤W±N[³]¤ñ¹ï±ø¥ó²M³æ]¤u§@ªíªº(A2~A151)½d³ò¤º©Ò¦³¤å¦r³£Åܬ°¤j¼g¦r¥Àªº¥¨¶°
Application.Calculation = xlCalculationAutomatic ' µM«á¦bEnd Sub «e§ï¦^
Application.ScreenUpdating = True
' Application.EnableCancelKey = xlDisabled
'¥H¤U¬°Åã¥ÜVBA Runµ{¦¡ªº®É¶¡ + ³o¬O²£¥Í¬í¼Æªº MSG
MsgBox "§ì¸ê®Æ§¹¦¨! " & Chr(10) & "¨Ï¥Î®É¶¡¡G" & Round(Timer - t1, 2) & " ¬í" & Chr(10)
End Sub |
|
|
|
|
|
|