返回列表 上一主題 發帖

[發問] 指定A欄第1列有資料之範圍設定列印範圍問題請教

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2016-6-30 14:53 | 只看該作者

[發問] 指定A欄第1列有資料之範圍設定列印範圍問題請教

DEAR ALL 大大'
1.需求 : 指定A欄第1列有資料之範圍設定列印範圍問題請教
1.1如下 A欄可用 R = Sheet1.[A65536].End(xlUp).Row 找到最後一列之值代入
1.2但 第1列用  F = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column() 找到是數字
  1.1.2 請教 ActiveSheet.PageSetup.PrintArea = "$A$1:$I" & R    之 I如何處理??
1.3 煩不吝賜教. THANKS*10000

Sub A()
Sheet1.Select
Range("A1").Select
R = Sheet1.[A65536].End(xlUp).Row
F = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column()
ActiveSheet.PageSetup.PrintArea = "$A$1:$I" & R
Range("A1").Select
End Sub
收藏 分享
羅

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
4#
發表於 2016-7-1 09:56 | 只看該作者
DEAR jackyq 大大
非常感謝您.OK啦 THANKS*10000
羅

TOP

jackyq

帖子
319 
主題
6 
精華
0 
積分
309 
點名
0  
作業系統
xp 
軟體版本
2k 
閱讀權限
20 
性別
男 
註冊時間
2015-6-24 
最後登錄
2024-4-27 
3#
發表於 2016-7-1 08:41 | 只看該作者
回復 2# rouber590324


    大大 不用作苦工啊


GetChoice = Left(Cells(1, F).Address(0, 0) , Len( Cells(1, F).Address(0, 0) ) - 1)

TOP

rouber590324

帖子
561 
主題
160 
精華
0 
積分
725 
點名
0  
作業系統
WINDOWS 
軟體版本
xp 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2014-9-10 
最後登錄
2024-8-7 

論壇榮譽勳章論壇贊助勳章熱烈參與勳章
2#
發表於 2016-7-1 08:23 | 只看該作者
DEAR  ALL 大大
1.小弟目前用如下方式勉強克服(先寫到R).但要寫 A-IV 太長啦
GetChoice = Choose(F, "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "", "Q", "R")

Sub A()
Sheet1.Select
  Range("A1").Select
  R = Sheet1.[A65536].End(xlUp).Row
  F = Sheet1.Cells(1, Columns.Count).End(xlToLeft).Column()
  GetChoice = Choose(F, "A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "", "Q", "R")
  ActiveSheet.PageSetup.PrintArea = "$A$1" & GetChoice & R
Range("A1").Select
End Sub
羅

TOP

        靜思自在 : 人的眼睛長在前面，只看到別人的缺點，絲毫看不到自己的缺點。
返回列表 上一主題