ªð¦^¦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 : Ä@­n¤j¡B§Ó­n°í¡B®ð­n¬X¡B¤ß­n²Ó¡C
ªð¦^¦Cªí ¤W¤@¥DÃD