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

½Ð°Ý¬°¦óVBAµ{¦¡¼g¤F­^¤å¦r¥À¦Û°ÊÅܦ¨¤j¼g«á¤ñ¹ïªºµ{¦¡´N¤£¯à¶]©O?

½Ð°Ý¬°¦ó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
½Ð°ÝVBA­n¦p¦ó­×§ï©O?

¤U¹Ï1¬°°õ¦æ   AÄæ­^¤å¦r¥À¦Û°ÊÅܤj¼g
¹Ï¤ù 1.jpg
2020-2-13 20:10



¹Ï2
¹Ï¤ù 2.jpg
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

        ÀR«ä¦Û¦b : ¯àµ½¥Î®É¶¡ªº¤H¡A¥²¯à´x´¤¦Û¤v§V¤Oªº¤è¦V¡C
ªð¦^¦Cªí ¤W¤@¥DÃD