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で質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルVBAで複数のシート印刷設定 1 2022/09/07 12:03
- Excel(エクセル) エクセルのマクロで複数シートを両面印刷するには? 2 2022/12/08 23:23
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Excel(エクセル) 【マクロ】同じフォルダ内にある複数ブックから1つのブック内の1シートにデータを集めたい 6 2022/09/28 18:16
- Excel(エクセル) 単価シートから単価をエクセル関数で自動取得する方法 1 2023/07/02 22:00
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Excel(エクセル) VBA セルの値と同じ名前のシートにデータを貼り付けするやり方を教えてください 2 2022/05/17 16:26
- Visual Basic(VBA) マクロについて教えてください。 3 2023/06/09 17:37
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【Excel関数】UNIQUE関数で"0"...
-
エクセルで特定の文字列が入っ...
-
エクセルのマクロで意図しない...
-
excelのデータで色つき行の抽出...
-
特定の文字がある行以外を削除...
-
エクセル マクロ オートフィ...
-
エクセルのセルに指定画像(.jpg...
-
セルの色によって条件文をつけ...
-
Excel グラフのプロットからデ...
-
[EXCEL]ボタン押す→時刻が表に...
-
直近の5個の平均を求めたい
-
Excel 時刻の並び替え
-
エクセルマクロ オートSUM(合...
-
Excelでカタカナ・ひらがな・英...
-
電話番号の入力方式が違うデー...
-
結合されたセルをプルダウンの...
-
エクセル2016で時間を入力して...
-
チェックボックスをクリックし...
-
エクセルVBAのEntireRow.Hidden...
-
エクセル 上下で列幅を変えるには
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで特定の文字列が入っ...
-
エクセル マクロ オートフィ...
-
【Excel関数】UNIQUE関数で"0"...
-
[EXCEL]ボタン押す→時刻が表に...
-
結合されたセルをプルダウンの...
-
エクセル マクロで数値が変っ...
-
Excel グラフのプロットからデ...
-
AのセルとB行を比較して、一致...
-
エクセル 上下で列幅を変えるには
-
Excel ウインドウ枠の固定をす...
-
特定の文字がある行以外を削除...
-
excelのデータで色つき行の抽出...
-
エクセル2016で時間を入力して...
-
excel 小さすぎて見えないセル...
-
EXCELで最後の行を固定
-
エクセルVBA 最終行を選んで並...
-
VBAで色の付いているセルの行削除
-
エクセルマクロで偶数行(又は...
-
エクセルのセルに指定画像(.jpg...
-
罫線の斜線を自動で引くマクロ
おすすめ情報