返回列表下一主題上一主題發帖

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

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 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

高中生 Rank: 3 Rank: 3

帖子: 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