[發問] 請問如何把無資料的多餘頁面設定一按鈕刪除

帖子: 15
主題: 2
精華: 0
積分: 23
點名: 0
作業系統: windows 7
軟體版本: Office 2010
閱讀權限: 10
性別: 男
來自: 台中
註冊時間: 2016-9-22
最後登錄: 2021-3-26

論壇贊助勳章

2^#

發表於 2016-10-3 20:07 | 只看該作者

下午突然想到以下寫法：
===========
Sub 刪除空白頁面()

For i = 3128 To 112 Step -52

If Range("AH" & i) = "" Then
Range("AH" & i).Offset(-7, 0).Rows("1:52").EntireRow.Select
Selection.Delete Shift:=xlUp

End If

Next

End Sub
====================
但執行後，總頁數會亂掉，如圖：

總頁數61頁，但實際只有二頁

連接頁數的灰色區域

應該是cell AT74要改公式，但想不出來可以用什麼函數。
只好再請大俠們幫幫忙~~

帖子: 15
主題: 2
精華: 0
積分: 23
點名: 0
作業系統: windows 7
軟體版本: Office 2010
閱讀權限: 10
性別: 男
來自: 台中
註冊時間: 2016-9-22
最後登錄: 2021-3-26

論壇贊助勳章

3^#

發表於 2016-10-3 21:22 | 只看該作者

抱歉大家，被我矇到，用最笨的方法試出了!
再加問，如果執行後有兩頁，想另存成pdf，如何擷取工作表名稱為pdf 的名稱?
這次我真的不會了....

帖子: 15
主題: 2
精華: 0
積分: 23
點名: 0
作業系統: windows 7
軟體版本: Office 2010
閱讀權限: 10
性別: 男
來自: 台中
註冊時間: 2016-9-22
最後登錄: 2021-3-26

論壇贊助勳章

4^#

發表於 2016-10-4 12:36 | 只看該作者

回復 3# simplehope

熬到半夜三點，總算試出來了，新增頁面後，還是會有頁數亂掉的問題。
慢慢研究，也謝謝有進來看的大家。

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

5^#

發表於 2016-10-5 09:04 | 只看該作者

本帖最後由 GBKEE 於 2016-10-8 15:17 編輯

回復 4# simplehope
試試看

Option Explicit
Sub Ex()
Dim Sh As Worksheet, xCol As Integer, Rng As Range, i As Integer
For Each Sh In ActiveWorkbook.Sheets
If Sh.PageSetup.PrintArea <> "" Then
Set Rng = Nothing
With Sh
xCol = .VPageBreaks(1).Location.Column
For i = 1 To .HPageBreaks.Count
If .HPageBreaks(i).Location.Range("F16") = "" Then Set Rng = .HPageBreaks(i).Location: Exit For
Next
If Not Rng Is Nothing Then
.PageSetup.PrintArea = .Range("a1", .Cells(Rng.Offset(-1).Row, xCol)).Address
.Range("a1", .Cells(Rng.Offset(-1).Row, xCol)).Select
.Range(Rng, .Range("A" & .Cells.SpecialCells(xlCellTypeLastCell).Row)).Resize(, xCol).Delete xlUp
'AJ欄原本公式=IF(AT14="","",$AT$74) , 改公式 =總頁數
End If
End With
Sh.Names.Add Name:="總頁數", RefersToR1C1:=Sh.HPageBreaks.Count + 1
End If
Next
End Sub

複製代碼

PS:2016/10/08 修正

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

帖子: 15
主題: 2
精華: 0
積分: 23
點名: 0
作業系統: windows 7
軟體版本: Office 2010
閱讀權限: 10
性別: 男
來自: 台中
註冊時間: 2016-9-22
最後登錄: 2021-3-26

論壇贊助勳章

6^#

發表於 2016-10-8 00:47 | 只看該作者

謝謝G大，這夠小弟研究好一陣子了：)
很高級的寫法…小弟的土炮實在慚愧無法相比

跟with ‧‧‧end with
跟for each...in
跟if not 條件式真的是很不熟啊…

帖子: 15
主題: 2
精華: 0
積分: 23
點名: 0
作業系統: windows 7
軟體版本: Office 2010
閱讀權限: 10
性別: 男
來自: 台中
註冊時間: 2016-9-22
最後登錄: 2021-3-26

論壇贊助勳章

7^#

發表於 2016-10-8 10:31 | 只看該作者

回復 5# GBKEE

G大不好意思，執行到一半會出現錯誤："陣列索引超出範圍"如下圖：

猜問題出在 xCol = .VPageBreaks(1).Location.Column 但不會改....

對以下這句也不懂：
Range(Rng, .Range("A" & .Cells.SpecialCells(xlCellTypeLastCell).Row)).Resize(, xCol).Delete xlUp
'AJ欄原本公式=IF(AT14="","",$AT$74) , 改公式 =總頁數

還有這句是
Sh.Names.Add Name:="總頁數", RefersToR1C1:=Sh.HPageBreaks.Count + 1
意思是新增一個名稱範圍叫 "總頁數"，取R1C1格式，看有幾個HPageBreak 再+ 1 嗎?
那AJ欄要怎麼連到"總頁數"呢?
腦袋有點轉不過來

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

8^#

發表於 2016-10-8 15:30 | 只看該作者

本帖最後由 GBKEE 於 2016-10-8 15:31 編輯

回復 7# simplehope

5# 的程式碼已修正,請再試試

'** 取A1到第一個垂直分頁線的最右邊的欄位)再向下到工作頁的最後一個儲存格的列號******
Range(Rng, .Range("A" & .Cells.SpecialCells(xlCellTypeLastCell).Row)).Resize(, xCol).Delete xlUp
'AJ欄原本公式=IF(AT14="","",$AT$74) , 改公式 =總頁數
'SpecialCells : expression.SpecialCells(Type, Value)
'SpecialCells 方法傳回 Range 物件，此物件代表與指定型態及值相符合的所有儲存格。Range 物件
'Type 必選的 XlCellType。要包含的儲存格。
'xlCellTypeLastCell。已用範圍的最後一個儲存格=>工作頁的最後一個儲存格

還有這句是
Sh.Names.Add Name:="總頁數", RefersToR1C1:=Sh.HPageBreaks.Count + 1
**新增一個名稱範圍叫 "總頁數"，取R1C1格式，看有幾個HPageBreak 再+ 1 **
那AJ欄要怎麼連到"總頁數"呢?
**** 不是有請你在AJ欄原本公式=IF(AT14="","",$AT$74) , 改公式 =總頁數****

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.