返回列表 上一主題 發帖

關於vlookup的列印問題

本帖最後由 lpk187 於 2016-3-11 09:21 編輯
  1. Option Explicit

  2. Sub 按鈕1_Click()
  3. Dim s%, e%, p%
  4. s = [i1] '從n號,放在"i1"欄位
  5. e = [k1]'到n號,放在"k1"欄位
  6. For p = s To e
  7.     [b1] = p
  8.     'ActiveWindow.SelectedSheets.PrintOut Preview:=True'預攬
  9.     ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
  10.     IgnorePrintAreas:=False'列印
  11. Next
  12. End Sub
複製代碼
回復 1# e91010029

TOP

        靜思自在 : 待人退一步,愛人寬一寸,就會活得很快樂。
返回列表 上一主題