EXCEL VBA樣版套用列印問題請教?

1、我在EXCEL活頁簿中sheet1 製作一預設的列印樣版,範圍為A2:E8,列印樣版中的資料來自連結sheet2 的A:G 欄位的列內容,列數長度不一定。

2、設定sheet1的A1儲存格(輸入要列印sheet2 的列數後該列A:G的資料會套用在列印樣版中)例如輸入1 則套用第1列的內容,2 則套用第2列的內容,

3、想請教如何用VBA 來控制sheet1的A1儲存格的值自動變換,將每列資料循列套用在列印樣版中然後列印,從1.2.3.4....向下循列列印,直到列無資料時自動停止列印動作。

1 個解答

評分
  • 1 年前
    最佳解答

    大概這樣....資料填入自行修改

    Sub 巨集1()

    Sheets("sheet1").Select

    With Sheets("sheet2")

    Cx = -Int(-(.[A1048576].End(3).Row / 7))

    i = 2

    For k = 1 To Cx

    For j = 2 To 8

    Cells(j, 1) = .Cells(i, 1)

    Cells(j, 2) = .Cells(i, 2)

    Cells(j, 3) = .Cells(i, 3)

    Cells(j, 4) = .Cells(i, 4) & .Cells(i, 6)

    Cells(j, 5) = .Cells(i, 5) & .Cells(i, 7)

    i = i + 1

    Next j

    ActiveSheet.PrintOut

    Next k

    End With

    End Sub

    • cheng大大,抱歉!我可能描述的不清楚,我是想用VBA 來控制sheet1的A1儲存格的值,從1開始至自動變換(假如sheet2的資料有10列) 那數值就是從1->2->3->4...變換到10,每變換1個值就列印一次,有10筆資料就會印出10張樣版報表,直到sheet2 A:G無資料時自動停止列印動作。

還有問題?馬上發問,尋求解答。