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

¦p¦óÁקKÀx¦s®æ¤½¦¡¡A¦]¡y°Å¤U¡z¡y¶K¤W¡z¦Ó³Q­×§ï¡H

¦^´_ 1# eigen


   Try this:
  1. Private Sub Worksheet_Activate()
  2. Application.ScreenUpdating = 0
  3.     With Sheets(1)
  4.         [a1:c1] = .[a1:c1].Value
  5.     End With
  6. Application.ScreenUpdating = 1
  7. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD