µù¥U
µn¿ý
º¶
½×¾Âª©³W
¸T¤î¦Cªí
»¡©ú
¦a¹Ï
¼Æ¦ì®Ñ»
¨p¤H®ø®§ (0)
¤½¦@®ø®§ (0)
½×¾Â¥ô°È (0)
¨t²Î®ø®§ (0)
¦n¤Í®ø®§ (0)
©«¤l®ø®§ (0)
³Â»¶®a±Ú°Q½×ª©ª©
»
Excel£¸¯ë°Ï
» ½Ð°Ý¬°¦óVBAµ{¦¡¼g¤F^¤å¦r¥À¦Û°ÊÅܦ¨¤j¼g«á¤ñ¹ïªºµ{¦¡´N¤£¯à¶]©O?
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
µo©«
½Ð°Ý¬°¦óVBAµ{¦¡¼g¤F^¤å¦r¥À¦Û°ÊÅܦ¨¤j¼g«á¤ñ¹ïªºµ{¦¡´N¤£¯à¶]©O?
jeffrey628litw
µoµu®ø®§
¥[¬°¦n¤Í
jeffrey628litw
·í«eÂ÷½u
UID
3715
©«¤l
228
¥DÃD
62
ºëµØ
0
¿n¤À
364
ª÷¿ú
364
ÂI¦W
20
§@·~¨t²Î
Win 10
³nÅ骩¥»
Office 2007 & 2010
¾\ŪÅv
20
©Ê§O
¨k
¦b½u®É¶¡
1015 ¤p®É
µù¥U®É¶¡
2011-3-5
³Ì«áµn¿ý
2024-9-16
¤¤¾Ç¥Í
©«¤l
228
¥DÃD
62
ºëµØ
0
¿n¤À
364
ÂI¦W
20
§@·~¨t²Î
Win 10
³nÅ骩¥»
Office 2007 & 2010
¾\ŪÅv
20
©Ê§O
¨k
µù¥U®É¶¡
2011-3-5
³Ì«áµn¿ý
2024-9-16
1
#
¸õÂà¨ì
»
˧Ǭݩ«
¥´¦L
¦rÅé¤j¤p:
t
T
µoªí©ó 2020-2-13 20:11
|
¥u¬Ý¸Ó§@ªÌ
½Ð°Ý¬°¦ó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
¤U¸ü
(6.49 KB)
2020-2-13 20:10
¹Ï2
¤U¸ü
(16.74 KB)
2020-2-13 20:10
µ{¦¡½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
¼Ó¥D¼ö©«
Excel ¦Û°Ê¤Æ±m¦â¥Ì¯S¹Ï
Excel ª«®Æ¨t²Î
½Ð°Ý¦p¦ó¦b1Àɮ׳]1-4±ø¥ó¡AµM«á¼´¥Xµ²ªG¨ì
Excel 5¼h¥H¤W¤U©Ô¿ï³æ (¤U©Ô¤å¦r)
Excel 1¡B2¡B3¡B4¡B5¼h¤U©Ô¿ï³æ (¼´¥X¤å¦r)
Excel ¤U©Ô¿ï³æÅã¥Ü¹Ï¤ù¨Ã¦Û°Ê¶}±ÒÀɮפαÐ
½Ð°Ý§Ú³oVBAþ¸Ì¦³°ÝÃD¡H¬°¤°»ò·|µLªk¥X²{
Excel ¨ç¼Æ»s§@ªº3Óª©¥»ªº¸U¦~¾ä
20160731 ³Ì·sExcel¾P¦s¨t²Î(¥]§t¾P³f³æ©Mª«
VBA - ²£«~¦Û°Ê§ì¹Ï¤Î¹Ï¤ùÅã¥Ü+¤ñ¹ï¨t²Î v.
¦¬ÂÃ
¤À¨É
ÀR«ä¦Û¦b :
§g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí
¤U¤@¥DÃD
¤W¤@¥DÃD
EXCEL±MÄÝ°Q½×°Ï
Excel£¸¯ë°Ï
Excelµ{¦¡°Ï
¶i¶¥À³¥Î±M°Ï
OFFICE ¨t¦C
Word
PowerPoint
Access
Office¤£¤À°Ï
µ{¦¡»y¨¥
VB »P VB.Net
C »P C#
Java »P J#
µ{¦¡³]p¤£¤À°Ï
¸ê®Æ®w
ORACLE
My SQL
MS SQL
ºô¶³]p
ASP »P ASP.NET
PHP
PHP+MySQL ¤Jªù¹ê§@
JavaScript
FLASH / ActionScript
HTM/ HTML/ CSS
ºô¶³]p¤£¤À°Ï
¹q¸£»P§@·~¨t²Î
¹q¸£¦UºØµwÅé°Q½×
¤@¯ë¹q¸£³nÅé°Q½×
½×¾Â¨Æ°È
ºÞ²z¤½§i
§ë¶D¤Ï¬M
·s¤â´ú¸Õ
·R ¡E ¥Í¬¡
¤½¯q§G§iÄæ
¥Í¬¡»P·P°Ê
[¦¬Âæ¹¥DÃD]
[Ãöª`¦¹¥DÃDªº·s¦^´_]
[³q¹L QQ¡BMSN ¤À¨Éµ¹ªB¤Í]
¥Ó½Ð¤Í±¡Ãì±µ
Facebook¯»µ·