No.1
- 回答日時:
UsedRange や SpecialCells で求められると思います。
印刷範囲だと、どう指定するか分かりませんし、求めた範囲を細工する必要があるかもしれません。
詳しくはHelpをご覧下さい。
No.2ベストアンサー
- 回答日時:
説明不足だったかもしれませんので追記しておきます。
以下のようにして範囲を求めたりしています。まだ簡単な方法があるかもしれません。
参考にして下さい。
標準モジュールに貼り付けます。
Public Sub UsedAreaAddress()
Dim myUsedAddress As String '使用範囲
Dim myUsedRows As Long '使用行数
Dim myUsedColumns As Integer '使用列数
Dim myUsedStartCell As String '最初のセル
Dim myUsedEndCell As String '最後のセル
Dim myPrintArea As String '例えば印刷範囲(最初の行を除く)
Dim myMsg As String 'メッセージボックスへの出力
With ActiveSheet
'使用範囲
myUsedAddress = .UsedRange.Address
'使用行数
myUsedRows = .UsedRange.Rows.Count
'使用列数
myUsedColumns = .UsedRange.Columns.Count
'最後のセル
myUsedEndCell = .Cells.SpecialCells(xlCellTypeLastCell).Address
'最初のセル
myUsedStartCell = Range(myUsedEndCell).Offset(1 - myUsedRows, 1 - myUsedColumns).Address
'例えば、最初を表題として表題を除いた印刷範囲(行タイトル等は別途指定)
myPrintArea = Range(myUsedStartCell).Offset(1, 0).Address & ":" & myUsedEndCell
End With
myMsg = "データが入力されている矩形範囲 " & myUsedAddress & vbLf & vbLf
myMsg = myMsg & "最初のセル " & myUsedStartCell & vbLf
myMsg = myMsg & "最後のセル " & myUsedEndCell & vbLf & vbLf
myMsg = myMsg & "行数 " & myUsedRows & vbLf
myMsg = myMsg & "列数 " & myUsedColumns & vbLf & vbLf
myMsg = myMsg & "印刷範囲例 " & myPrintArea
MsgBox myMsg
End Sub
この回答へのお礼
お礼日時:2001/08/06 18:25
早速に回答いただきありがとうございました。
例題を参考にさせていただき、データの範囲を知ることができました。
また、何かありましたらよろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルマクロで偶数行(又は...
-
エクセルで特定の文字列が入っ...
-
[EXCEL]ボタン押す→時刻が表に...
-
特定の文字がある行以外を削除...
-
エクセル マクロで数値が変っ...
-
Excel グラフのプロットからデ...
-
サイズの違うセル 並べ変え
-
完全一致したら代入するマクロ...
-
セルの色によって条件文をつけ...
-
Excel ウインドウ枠の固定をす...
-
Excel2007で、指定範囲の行高さ...
-
エクセル マクロ オートフィ...
-
エクセル2016で時間を入力して...
-
VBAで色の付いているセルの行削除
-
エクセル 上下で列幅を変えるには
-
Excel VBAで「セルが選択された...
-
excel 小さすぎて見えないセル...
-
【Excel関数】UNIQUE関数で"0"...
-
結合されたセルをプルダウンの...
-
AのセルとB行を比較して、一致...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで特定の文字列が入っ...
-
【Excel関数】UNIQUE関数で"0"...
-
特定の文字がある行以外を削除...
-
エクセル マクロ オートフィ...
-
[EXCEL]ボタン押す→時刻が表に...
-
AのセルとB行を比較して、一致...
-
VBAで色の付いているセルの行削除
-
Excel グラフのプロットからデ...
-
エクセル マクロで数値が変っ...
-
excel 小さすぎて見えないセル...
-
エクセル 上下で列幅を変えるには
-
罫線の斜線を自動で引くマクロ
-
結合されたセルをプルダウンの...
-
セルの色によって条件文をつけ...
-
エクセルのマクロで意図しない...
-
エクセルVBA 最終行を選んで並...
-
excelのデータで色つき行の抽出...
-
Excelのフィルター後の一番上の...
-
エクセル 時間の表示形式AM/PM...
-
Excelでカタカナ・ひらがな・英...
おすすめ情報