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

Ãö©óvlookupªº¦C¦L°ÝÃD

¥»©«³Ì«á¥Ñ lpk187 ©ó 2016-3-11 09:21 ½s¿è
  1. Option Explicit

  2. Sub «ö¶s1_Click()
  3. Dim s%, e%, p%
  4. s = [i1] '±qn¸¹¡A©ñ¦b"i1"Äæ¦ì
  5. e = [k1]'¨ìn¸¹¡A©ñ¦b"k1"Äæ¦ì
  6. For p = s To e
  7.     [b1] = p
  8.     'ActiveWindow.SelectedSheets.PrintOut Preview:=True'¹wÅó
  9.     ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
  10.     IgnorePrintAreas:=False'¦C¦L
  11. Next
  12. End Sub
½Æ»s¥N½X
¦^´_ 1# e91010029

TOP

        ÀR«ä¦Û¦b : ºw¤ô¦¨ªe¡C²É¦Ì¦¨ÅÚ¡A¤Å»´¤vÆF¡A¤Å¥Hµ½¤p¦Ó¤£¬°¡C
ªð¦^¦Cªí ¤W¤@¥DÃD