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

¤£¦P¤u§@ªí¦C¦L¤£³sÄò­¶½X

¦^´_ 1# xiongbear

·s¼W¤@­Ó«ö¶s
¸Ì­±¶K¤J¥H¤UVBA
  1. sub ³sÄò¦C¦L()
  2. Dim sh As String '«Å§i¬°¦r¦ê«¬ºA
  3. sh = ActiveWorkbook.Sheets.Count '°»´ú¬¡­¶³¡¤ºªº¤u§@ªí¼Æ¶q
  4.     for i = 1 to sh
  5.            Worksheets(i).PrintOut   ' ²©ö§Ö³t¦C¦L  ¤£µ¹¿ï¾Ü»P´£¥Üªº  «ö¤U¥hª½±µ¦L
  6.     next i
  7. end sub
½Æ»s¥N½X
¦³°ÝÃD¦Aµo°Ý!
¦Û¥Î¨®¤]¥i¥Hñ±b³á!
¤­¤d¤¸¥[ªoª÷¥[¤Jªo½c«áÁÙ¦^õX±z6200¤¸
ºÖ§Q©ô¨®¤Í·|power-want.com

TOP

        ÀR«ä¦Û¦b : ¤£©È¨Æ¦h¡A¥u©È¦h¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD