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

　暱稱: 豪

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

2^#

發表於 2016-4-25 22:59 | 顯示全部帖子

回復 3# lpk187

實在太感謝了,find 真好用

　暱稱: 豪

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

3^#

發表於 2016-4-26 11:29 | 顯示全部帖子

回復 3# lpk187

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

　暱稱: 豪

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

4^#

發表於 2016-4-26 12:25 | 顯示全部帖子

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

感謝教學！！

　暱稱: 豪

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

5^#

發表於 2016-4-26 12:45 | 顯示全部帖子

回復 3# lpk187
回復 6#

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

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

　暱稱: 豪

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

6^#

發表於 2016-4-26 20:58 | 顯示全部帖子

回復 starry1314

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

利用Range.Find說明範例修改一 ...
lpk187 發表於 2016-4-26 20:38

感謝...要研究一下比上一個複雜了....

　暱稱: 豪

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

7^#

發表於 2016-4-26 21:25 | 顯示全部帖子

回復 9# lpk187

不好意思..有點卡關新的程式碼

會選擇所有列,另外用變數計算列後再放入會變只選取最上面兩列
Sub 巨集()
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