增量列單擊

我想，每一個點擊，在另一片更新單元格的值下一單元格的值，然後打印出值。增量列單擊

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

來源

2013-07-10 eathapeking

給你想與值的其他小區（信息名張） –

樣值從工作表Sheet1細胞N7從C2 Sheet2中再經過具有價值，以改變單元格區域地址信息 - 我點擊它更改爲C3，C4 ，C5，C .... – eathapeking

您需要添加公共變量來控制每次執行子行時的偏移量。

在任何模塊的頂部添加此行項目中的

Public iOffset as Long

而且你的子會是這樣的：

Sub SerPrint() 

'let's start with value of C2 from Sheet2 
Sheet1.Range("n7").Value = Sheet2.Range("C2").Offset(iOffset, 0) 

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

'here we increment our public variable for next click to make C3, C4... 
iOffset = iOffset + 1 


End Sub

來源

2013-07-10 06:51:43

有一個在上面有信息太少弄明白代碼中沒有表中的端部的控制。 –

爲offset是什麼，你可以解釋一點點謝謝 – eathapeking

是像for循環 – eathapeking

在你的風格..

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

如果你想使用膠印..

Sheet1.Range("n7").Value = Sheet2.Range("C2").Offset(i,0)

來源

2013-07-10 07:00:28 matzone

回答

相關問題