0

クリックするたびに、セルの値を別のシートの次のセルの値に更新してから値を印刷したい。

Sub SerPrint()

i = 1

'when button click it change to `c3 c4 c5 and C......
' until the end of table
Sheet1.Range("n7").Value = Sheet2.Range("C"2 + i )
'like Value in cell N7 from sheet1 have value from c2 Sheet2 then
' after i click it change to c3,c4,c5,c....

Sheet1.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
' then print out

End Sub
4

2 に答える 2

1

あなたのスタイルで..

Sheet1.Range("n7").Value = Sheet2.Range("C" & format(2 + i) )

オフセットを使用する場合..

Sheet1.Range("n7").Value = Sheet2.Range("C2").Offset(i,0)
于 2013-07-10T07:00:28.580 に答える