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

[µo°Ý] ½Ð½Ñ¦ì¦P¤¯«ü¾É:¦p¦ó®³±¼«þ¨©«á¦Û°Ê¥X²{ªº®Ø¬[

[µo°Ý] ½Ð½Ñ¦ì¦P¤¯«ü¾É:¦p¦ó®³±¼«þ¨©«á¦Û°Ê¥X²{ªº®Ø¬[

½Ðª¾¹DªºªB¤Í«ü¾É:§Ú°õ¦æ¤U¦C«ü¥O«áÀɮפW¦Û°Ê¥X²{¶Â¦âµê½uªº®Ø¬[,­n¥Î·Æ¹«ÂI¨ä¥LÀx¦s®æ¤~·|®ø¥¢,¦p¦ó¥Îµ{¦¡½X°µ¨ì©O?
½Ð¨ó§U.
Private Sub workbook_open()
  Range("A2:F2").Rows("1").Copy
  Cells(4, 1).PasteSpecial xlPasteValues
End Sub

black4.gif (111.59 KB)

black4.gif

black4.gif (111.59 KB)

black4.gif

¦^´_ 2# GBKEE

ÁÂÁ§A,¦]¬O·s¤â¥X¨Ó¾Ç,§Aªº«ü¥Ü¬Ù¥h¤£¤Ö»Ùê,·PÁÂ.:)

TOP

¦^´_ 1# maomao
  1. Option Explicit
  2. Sub Ex()
  3.     Sheet1.Range("A1:F10").Copy
  4.     Sheet2.Range("A1").PasteSpecial xlPasteValues
  5.     Application.CutCopyMode = False
  6. End Sub

  7. '«ö Áä½L¤W [ Print Screen ] Áä¥i®·§ì¿Ã¹õªºµe­±
  8. '¥´¶}¤pµe®a , ¥i¶K¤W¿Ã¹õªºµe­±, ¥[¥H½s¿è¦sÀÉ
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¥¬¬I¦p¼½ºØ¡A¥HÅw³ß¤ß´þ¼íºØ¤l¡A¤~·|µoªÞ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD