在sheet1中,通過vlookup函數獲取相應的數據,然後繪制壹個按鈕,按鈕中的代碼讀取相應的記錄並循環打印。
關鍵代碼:
將x標註為整數
x=1
Do While (Len(Sheet2。Cells(x,1))& gt;0)'檢查下壹行是否有內容。
' Sheet3.cell (1,1) = sheet2.cell (x,1)'設置當前行的ID。
活動窗口。選定的工作表。printoutcopies: = 1,collate: = true '打印。
x=x+1
環