　暱稱: 豪

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2016-4-24 19:30 | 只看該作者

[發問] 關於不固定欄自動列印至最後一筆資料

本帖最後由 starry1314 於 2016-4-24 19:32 編輯

請問如何從類別(A2)選擇右手邊第一個P.P位置後往下最後一筆資料,並列印

因欄位不固定且標題會有空白,不過空白格到時會隱藏

在從類別(T2) 往右至P.P欄往下最後一筆資料並列印

原預計使用 MATCH取得P.P所在欄數
但搭配range選擇欄數時會變成選整欄,使用ctrl+shift往上的指令也不會到最後一筆資料,反而手動按確會選擇

自動列印.rar (27.76 KB)

樓主熱帖

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-2-26

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

2^#

發表於 2016-4-24 20:07 | 只看該作者

回復 1# starry1314

給你參考，我的做法

Option Explicit
Sub 巨集1()
Dim c As Range
With Sheets("工作表1")
Set c = .Rows(3).Find("P.P", , , , , 1)
.PageSetup.PrintArea = "$A$2:" & .Cells(Rows.Count, c.Column).End(xlUp).Address '設定列印範圍
.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False '列印
Set c = Nothing
Set c = .Rows(3).Find("P.P", , , , , 2)
.PageSetup.PrintArea = "$T$2:" & .Cells(Rows.Count, c.Column).End(xlUp).Address
.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False '列印
Set c = Nothing
End With
End Sub

複製代碼

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-2-26

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

3^#

發表於 2016-4-24 20:18 | 只看該作者

回復 1# starry1314

也可以這樣！

Option Explicit
Sub 巨集1()
Dim c As Range
With Sheets("工作表1")
Set c = .Rows(3).Find("P.P", , , , , 1) '往後尋找
.PageSetup.PrintArea = .Range(.Cells(Rows.Count, 1).End(xlUp), Cells(2, c.Column)).Address '設定列印範圍
.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False '列印
Set c = Nothing
Set c = .Rows(3).Find("P.P", , , , , 2) '往前尋找
.PageSetup.PrintArea = .Range(.Cells(Rows.Count, 1).End(xlUp), Cells(2, c.Column)).Address '設定列印範圍
.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False '列印
Set c = Nothing
End With
End Sub

複製代碼

TOP

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

4^#

發表於 2016-4-25 22:59 | 只看該作者

回復 3# lpk187

實在太感謝了,find 真好用

TOP

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

5^#

發表於 2016-4-26 11:29 | 只看該作者

回復 3# lpk187

剛改了下用在篩選方面,全自動了....隨標題的改變自己找是第幾欄後再進行篩選後另存
又可以多偷懶了

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2798
主題: 10
精華: 0
積分: 2854
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-4-15

6^#

發表於 2016-4-26 11:43 | 只看該作者

如果只是設定列印範圍,
.PageSetup.PrintArea = "$A$2:" & .Cells(Rows.Count, c.Column).End(xlUp).Address
也可用:
Range(.[A2], .Cells(Rows.Count, c.Column).End(xlUp)).Name = "Print_Area"

相對速度較快!!!

TOP

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

7^#

發表於 2016-4-26 12:25 | 只看該作者

如果只是設定列印範圍,
.PageSetup.PrintArea = "$A$2:" & .Cells(Rows.Count, c.Column).End(xlUp).Addre ...
准提部林發表於 2016-4-26 11:43

感謝教學！！

TOP

starry1314

　暱稱: 豪

高中生 Rank: 3 Rank: 3

帖子: 471
主題: 121
精華: 0
積分: 579
點名: 0
作業系統: WIN10
軟體版本: OFFICE2019
閱讀權限: 50
性別: 男
註冊時間: 2015-4-16
最後登錄: 2023-1-17

8^#

發表於 2016-4-26 12:45 | 只看該作者

回復 3# lpk187
回復 6#

Set c = .Rows(3).Find("P.P", , , , , 1) '往後尋找
想請問能否不要往前往後可選擇找到的第幾個目前遇到同一張有三張表,

目前只能先將後兩個表的P.P做點改變

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-2-26

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

9^#

發表於 2016-4-26 20:38 | 只看該作者

本帖最後由 lpk187 於 2016-4-26 20:42 編輯

回復 8# starry1314

在此先感謝准提部林大大教授的"Print_Area"語法

利用Range.Find說明範例修改一下，可以達到你的要求，就是再利用FindNext

Sub 巨集1()
Dim c As Range, firstAddress$, myColumn%
With Sheets("工作表1")
Set c = .Rows(3).Find("P.P", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
myColumn = 1
Do
.Range(.Cells(2, myColumn), .Cells(Rows.Count, c.Column).End(xlUp)).Name = "Print_Area"
.PrintOut Copies:=1, Collate:=True, IgnorePrintAreas:=False
Set c = .Rows(3).FindNext(c)
myColumn = myColumn + 19
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub