mmggmm

帖子: 101
主題: 34
精華: 0
積分: 139
點名: 0
作業系統: xp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: Macau
註冊時間: 2010-7-1
最後登錄: 2014-1-30

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2010-7-27 17:05 | 只看該作者

利用巨集自動選定列印範圍

本帖最後由 mmggmm 於 2010-7-27 17:09 編輯

12345678.rar (14.11 KB)
可否利用巨集自動選定列印範圍,
,把

樓主熱帖

leehom

小學生 Rank: 1

帖子: 35
主題: 8
精華: 0
積分: 43
點名: 0
作業系統: WIN7
軟體版本: WIN
閱讀權限: 10
註冊時間: 2015-9-13
最後登錄: 2019-12-16

7^#

發表於 2015-9-15 12:42 | 只看該作者

回復 mmggmm
Hsieh 發表於 2010-7-27 23:05

這個太棒了,會自動感測到文字設定列印範圍,但我有一些空格是輸入了函數而隱藏了文字,
這個公式能否忽略隱藏的文字?THX

TOP

catmm

小學生 Rank: 1

帖子: 11
主題: 3
精華: 0
積分: 14
點名: 0
作業系統: xp
軟體版本: 2003
閱讀權限: 10
註冊時間: 2010-7-27
最後登錄: 2017-4-27

6^#

發表於 2010-8-7 09:32 | 只看該作者

好強喔~~
可以自動判別內容有無物
來決定要不要列印
又學到了

TOP

mmggmm

中學生 Rank: 2

帖子: 101
主題: 34
精華: 0
積分: 139
點名: 0
作業系統: xp
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: Macau
註冊時間: 2010-7-1
最後登錄: 2014-1-30

5^#

發表於 2010-7-28 11:31 | 只看該作者

多謝,問題以解決

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 289
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2025-11-26

2024年全勤獎章 2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

4^#

發表於 2010-7-27 23:05 | 只看該作者

回復 1# mmggmm

ActiveSheet.ResetAllPageBreaks
For Each Rng In Intersect(Range("A:A"), ActiveSheet.UsedRange)
If WorksheetFunction.IsText(Rng.Value) Then
If Left(Rng.Value, 3) = "核數員" Then
If Rng.Offset(-1, 7) = 0 Then Exit For
ActiveSheet.HPageBreaks.Add before:=Rng.Offset(1, 0)
ActiveSheet.PageSetup.PrintArea = "A1:J" & Rng.Row
End If
End If
Next

複製代碼

學海無涯_不恥下問

TOP

kimbal

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 472
主題: 5
精華: 0
積分: 485
點名: 0
作業系統: Windows
軟體版本: MS Office
閱讀權限: 100
性別: 男
來自: 香港
註冊時間: 2010-7-4
最後登錄: 2014-12-28

論壇貢獻勳章

3^#

發表於 2010-7-27 19:20 | 只看該作者

用"核數員"定位
ActiveSheet.ResetAllPageBreaks
For Each rng In Intersect(Range("A:A"), ActiveSheet.UsedRange)
      If WorksheetFunction.IsText(rng.Value) Then
         If Left(rng.Value, 3) = "核數員" Then
            ActiveWindow.SelectedSheets.HPageBreaks.Add before:=rng.Offset(1, 0)
         End If
      End If
Next

懂得發問,答案就會在其中

今日の一秒は明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

Min