返回列表 上一主題 發帖

[發問] 如何使用巨集來選取列印範圍

lichang

帖子
127 
主題
55 
精華
0 
積分
178 
點名
0  
作業系統
win8 
軟體版本
office2003 
閱讀權限
20 
註冊時間
2013-1-24 
最後登錄
2024-11-11 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2014-7-9 00:56 | 只看該作者

[發問] 如何使用巨集來選取列印範圍

我知道 可使用ActiveSheet.PageSetup.PrintArea = "$B$1:$AA$200,$B$201:$AA$227"
來選擇B1~AA200 以及 B201~AA227 兩區範圍作列印範圍
但是如果我有更多區快要做選擇的時候，很容易會發生lose的可能
所以我有辦法可以做到
類似 A=range("B1:AA200")
         B = range("B201:AA227")
ActiveSheet.PageSetup.PrintArea = A,B 類似的方式嗎??

謝謝!!
收藏 分享

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
2#
發表於 2014-7-9 23:27 | 只看該作者
回復 1# lichang
看不太懂，改用
Dim A as Range,B as Range
set A=range("B1:AA200")
set B = range("B201:AA227")
就不會漏掉嗎 ???

下面意思都差不多
  1. ActiveSheet.PageSetup.PrintArea = A.address & "," & B.address
複製代碼
  1. ActiveSheet.PageSetup.PrintArea = Application.Union(A, B).Address
複製代碼

TOP

lichang

帖子
127 
主題
55 
精華
0 
積分
178 
點名
0  
作業系統
win8 
軟體版本
office2003 
閱讀權限
20 
註冊時間
2013-1-24 
最後登錄
2024-11-11 
3#
發表於 2014-7-9 23:37 | 只看該作者
回復 2# stillfish00

謝謝您的回覆，因為我有很多區快要依不同條件選擇，所以我才會希望能用名稱的方式來決定選擇區塊
感謝您幫我的大忙!!

TOP

lichang

帖子
127 
主題
55 
精華
0 
積分
178 
點名
0  
作業系統
win8 
軟體版本
office2003 
閱讀權限
20 
註冊時間
2013-1-24 
最後登錄
2024-11-11 
4#
發表於 2014-7-10 12:17 | 只看該作者
回復 2# stillfish00

不好意思，我又遇到問題了
Set 基本視窗 = Sheet1.Range("B1:AA200")
Set 二軸資料 = Sheet2.Range("B1:Z27,B50:Z92,B148:Z185,B246:Z275,B295:Z324,B344:Z387")

我這兩筆資料是在不同的分頁!!
我發現這樣好像沒辦法指定第二分頁的部分，請問是哪裡需要修改呢??

TOP

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
5#
發表於 2014-7-10 23:38 | 只看該作者
回復 4# lichang
不同的工作表設定是分開的...
Sheet1只能指定Sheet1上的儲存格範圍
Sheet2的範圍要在Sheet2設定...
Sheet2.PageSetup.PrintArea = Sheet2.Range("A1")

TOP

        靜思自在 : 小事不做、大事難成。
返回列表 上一主題