最後可印刷細胞的Excel VBA

背景：
具有列A和與非標記數一列B，我試圖通過按壓一個按鈕來鍵入號碼選擇表格。 IE：

列A ..........列B
MySheet的工作.................. 2

問題：
我不知道如何獲得最後打印單元的地址，以貼有數量最後可印刷細胞的Excel VBA

請注意，頁腳不會起作用，因爲它是不按順序如此 - 它是由用戶指定他/她需要 - ，也可能是10英尺，但是，用戶希望它爲15

方法：
有什麼 - 作爲你可能請參閱該單元格（圖像中的文本和顏色僅用於顯示目的），usedrange,last row或go to special可以幫助我解決。
問題：
是否有可能得到類似的東西？

Sheets("MySheet").Range(LastPrintable.Address).value = 2

來源

2016-11-04 Sgdva

您可以將工作表上的區域命名爲範圍嗎？ –

@RyanWildry不是，它基本上是從另一個工作簿中複製/粘貼的，我會處理它（它會請求用戶這樣做，並且對每個工作表複製可能不切實際，如果這樣做，用戶寧願手動計算它們條件被問到）在這個子或試圖處理它。 – Sgdva

他們在打印之前是否設置了打印區域？ –

我認爲這會奏效。這是一件小事，但應該讓它更容易遵循。隨意合併它：

Dim ws As Worksheet 
Dim printRange As Variant 
Dim lastCell As Range 

Set ws = Sheets("MySheet") 
printRange = Split(ws.PageSetup.PrintArea, ":") 
Set lastCell = Range(printRange(1))

「lastCell」現在包含可打印區域中的最後一個單元格。

lastCell.Value2 = 2

因爲它是一個Range對象，你也可以從它那裏得到的行，列，等等，你認爲合適。

來源

2016-11-05 01:34:39 Hambone

最後可印刷細胞的Excel VBA

回答

相關問題