![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
特定のセルに数字を入力することでVLOOKUPで印刷ページを
検索して指定できるシートを作成しています。
下記のようなVBAを作成しました。
印刷開始ページと印刷終了ページを指定する場合、
セルの指定はどのようにすれば、よいのでしょうか?
開始ページと終了ページが同じセルの為、
開始ページ=Rnage("セル")
終了ページ=Rnage("セル")
としてしまいますと、エラーが出てしまいます。
Sub 印刷()
Dim S As Long
Dim B As Long
S = Application.InputBox("印刷開始ページを入力", Type:=1)
If 開始ページ = 0 Then Exit Sub
B = Application.InputBox("印刷終了ページを入力", Type:=1)
If 終了ページ = 0 Then Exit Sub
ActiveSheet.PageSetup.Order = xlOverThenDown
ActiveWindow.SelectedSheets.PrintOut _
From:=S, To:=B, Collate:=True
End Sub
宜しくお願い致します。
No.2ベストアンサー
- 回答日時:
ん~と
>印刷開始ページと印刷終了ページを指定する場合、
>セルの指定はどのようにすれば、よいのでしょうか?
S = Application.InputBox("印刷開始ページを入力", Type:=1)
を
S = Sheets("開始のページの数値を入れているシート").Range("開始のページの数値を入れているセル").Value
Bについても同様
>開始ページと終了ページが同じセルの為、
この意味が分からないのですが、印刷するページは一枚?なのでしょうかね。
No.1
- 回答日時:
質問が分かりにくい。
もしかして、作成したVBAではInputBoxを使用してユーザーに入力してもらっている
ところを、セルに入力された数値を読み取って実行するように変更したい、という
ことでしょうか?
>開始ページ=Rnage("セル")
>終了ページ=Rnage("セル")
でエラーになるとのことですが、単にRangeのスペルミスって落ちなんじゃ?
開始ページと終了ページが同値だからと言って、エラーにはならないです。
どう設定したらよいかわからない時は、マクロの自動記録で記録されたマクロを参照
するのが基本でしょう。
エラーになる場合は、ただ単にエラーになりますだけでは情報が不十分です。
エラーになった文と、エラーメッセージ位は書いて欲しいですね。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 数式が消える 1 2023/03/19 16:55
- PDF EXCEL ページを指定してPDF出力するVBAを教えてください。 2 2023/02/09 10:27
- Excel(エクセル) 日付で矢印マクロ 4 2023/07/25 16:47
- Excel(エクセル) エクセルの印刷マクロについて質問があります。 現在、下記のマクロで印刷しています。Sheet1のD6 5 2023/06/12 10:59
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- ノートパソコン 小冊子で印刷したいのですが、開始と終了のページが変更できません。どうすればよいのでしょうか? 以前は 1 2023/05/11 11:08
- Excel(エクセル) エクセル2013「次のページ数に合わせて印刷」が小さすぎる 9 2023/03/28 10:18
- Excel(エクセル) エクセルのフッタやヘッダーについて 3 2023/02/04 09:45
- Excel(エクセル) エクセルの印刷範囲をページ単位で可変にする方法 3 2022/05/23 13:04
- Visual Basic(VBA) エクセル365のVBAで困っています。どう修正したらよいか添削をお願いします 2 2023/05/03 17:35
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAで、貼り付け禁止命令を実現...
-
データが入力されている隣のセ...
-
メッセージを1度だけ表示したい。
-
EXCELマクロ 保護されているシ...
-
エクセルVBA(実行時エラー438...
-
ユーザーフォーム上のボタンの...
-
エクセルVBA セル選択後にカレ...
-
ハイパーリンクされているファ...
-
エクセルのVBAでダブルクリック...
-
ダブルクリックすると現在の時...
-
セル色を5秒間隔で変える
-
Excelについて
-
エクセルテキストボックスの文...
-
VBAについて教えてください。 E...
-
Excel VBA ダブルクリックで入...
-
VBAで一致するセルの個数を...
-
(VBA)アクティブセルを起点に...
-
選択範囲内でアクティブセルを...
-
エクセル: セルの枠を超えて表示
-
エクセルでの計算式で求められ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
データが入力されている隣のセ...
-
EXCELマクロ 保護されているシ...
-
エクセルテキストボックスの文...
-
VBAで、貼り付け禁止命令を実現...
-
ハイパーリンクされているファ...
-
VBAで丸をつけたいです。
-
メッセージを1度だけ表示したい。
-
エクセルVBA(実行時エラー438...
-
ダブルクリックすると現在の時...
-
VBA セルに合わせて移動するが...
-
(VBA)アクティブセルを起点に...
-
Jtableの特定のセルの背景色や...
-
Windowsで動くVBAがmacOSで動か...
-
エクセルVBA セル選択後にカレ...
-
Excelのセル内にある図形を削除...
-
Excel VBA ダブルクリックで入...
-
セル色を5秒間隔で変える
-
StringGridでの文字入力制限
-
【VBA】参照値を1ずつ増やして...
-
マクロでのカーソル移動
おすすめ情報