ªð¦^¦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 : ¬°¦Û¤v§äÂǤfªº¤H¥Ã»·¤£·|¶i¨B¡C
ªð¦^¦Cªí ¤W¤@¥DÃD