![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
開始コードから終了コードまでの番号をE10に順番に入れ込み、
指示書の内容をvlookupで読み込ませて、1枚ずつ印刷をしたいです。
A2、A3、E10は文字列で読む形式になっています。
下記のコードで実行すると、数字は順に読んでいますが、
他のセルのデータが参照されずエラーになってしまいます。
マクロを実行時に文字列扱いにするコードが必要だと思うのですが、
いろいろ調べてもうまく出来ません。
どうかお力をお貸しください。
宜しくお願いします。
-----------------------------------
開始コードのセル:A2
終了コードのセル:A3
コードを読み込むセル:E10
※A2に1、A3に5だったら1~5をE10に順に読ませて印刷したいです。
テスト中なので印刷プレビューにしてあります。
-----------------------------------
Sub 指示書印刷()
Range("E10") = Range("A2")
Do While Range("E10") <= Range("A3")
Sheets("指示書").PrintPreview
Range("E10") = Range("E10") + 1
Loop
End Sub
No.2ベストアンサー
- 回答日時:
For ~ Nextの方が良くないですか?
私なら、こんな感じにしますが。
E10のセルが、Sheet1にあると、仮定しています。
Sub 指示書印刷()
Dim Start_No as Integer '開始No.
Dim End_No as Integer '終了No.
Dim Syori_No as Integer '処理No.
Start_No = Range("A2").value '開始No.を読み込む
End_No = Range("A3").Value '終了No.を読み込む
Worksheets("Sheet1").Activate 'E10のあるシートを選択する
For Syori_No = Start_No to End_No
Range("E10").value = Syori_No 'E10にコードを読み込む
Sheets("指示書").PrintPreview '指示書シートを印刷する
Next Syori_No
End Sub
教えて頂いたコードを使い、
下から4行目のコードにchr(39)を足したらエラーが無くなり
表示されました。
Range("E10").Value = Chr(39) & syori_no 'E10にコードを読み込む
指示書印刷の時間短縮になるので助かりました。
とても感謝しています。ありがとうございました!
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 指定文字列が該当するA列をアクティブセルにするには 3 2022/08/17 13:18
- Excel(エクセル) 表示形式、文字列セル(列)に数式を入力するには マクロ 1 2022/09/18 10:53
- Excel(エクセル) 【マクロ】webアドレスにて指定されたCSVファイル【excelソフト表示】を印刷する件 1 2023/02/15 01:52
- Excel(エクセル) エクセルの印刷マクロについて質問があります。 現在、下記のマクロで印刷しています。Sheet1のD6 5 2023/06/12 10:59
- Visual Basic(VBA) Sheet1のA列にコードB列にメアド、Sheet2のB列にコード一覧とD列にメアド一覧があり、Sh 3 2022/10/19 11:57
- PowerPoint(パワーポイント) ExcelのVBAコードについて教えてください。 3 2022/05/25 14:32
- Visual Basic(VBA) 数式が消える 1 2023/03/19 16:55
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/01/23 11:02
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
エクセルで140人をマクロをつかって連続印刷?
その他(データベース)
-
Excelで連続印刷をするマクロ
Excel(エクセル)
-
VBAを用いて繰り返し自動的に印刷するにはどうしたら良いのですか
Visual Basic(VBA)
-
-
4
EXCELで作成した案内状を名前を入れて連続印刷したいのです。
Excel(エクセル)
-
5
開始行と最終行を指定して差し込み印刷するマクロ
Excel(エクセル)
-
6
Excel フィルタをかけた後の各項目を、自動的に印刷する方法は?
その他(Microsoft Office)
-
7
Excel VBAによる連続印刷について処理の順番
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAマクロ実行時エラーの修正に...
-
EXCEL 2010 VBAでピボットで複...
-
関数の引数でrangeを指定したとき
-
VBAコードについて教えてくださ...
-
エクセルVBA 配列からセルに「...
-
VBA にて、条件付き書式で背景...
-
VBA:日付を配列に入れ別セルに...
-
特定の色のついたセルを削除
-
VB2005 DataGridView で選択...
-
【Excel VBA】一番右端セルまで...
-
EXCEL VBA 文中の書式ごと複写...
-
VBAでユーザーフォームにセル値...
-
Excel 範囲指定スクショについ...
-
PasteSpecial Paste:=[********...
-
【VBA】写真の貼り付けコードが...
-
Excel UserForm の表示位置
-
VBAについて
-
指定した文字から指定した文字...
-
Excel VBAでCheckboxの名前を変...
-
excelで結合セルの場合にエラー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAマクロ実行時エラーの修正に...
-
エクセルVBA 配列からセルに「...
-
Excel UserForm の表示位置
-
Excelで空白セル直前のセルデー...
-
【Excel VBA】一番右端セルまで...
-
EXCEL VBA 文中の書式ごと複写...
-
VBA にて、条件付き書式で背景...
-
特定の色のついたセルを削除
-
【VBA】【ユーザーフォーム_Lis...
-
VBA 複数条件の分岐処理の上手...
-
入力規則のリスト選択
-
【VBA】写真の貼り付けコードが...
-
Excel VBA IF文がうまく動作し...
-
VBAでユーザーフォームにセル値...
-
VBA:日付を配列に入れ別セルに...
-
Excel VBAでCheckboxの名前を変...
-
エクセルの合計を自動で表示さ...
-
関数の引数でrangeを指定したとき
-
複数指定セルの可視セルのみを...
-
DataGridViewでグリッド内に線...
おすすめ情報
印刷するシート、E10セルは同じシートです。
E10で読んだ番号を元に、別の複数のセルにVLOOKUPでデータを参照しています。
E10セルに手入力で番号を入力し、
エンターを押した場合はVLOOKUPの所はエラーにならず表示されます。
エンターの代わりになるコードはあるのでしょうか?
ご回答宜しくお願いします。
度々すみません。
E10でコードを読む時に、その都度文字列として読み込ませたいです。
とても分かりやすいコードを教えて下さり有難うございます。
E10への順に番号を入れ込む事は出来ました。
E10の番号を元にVLOOKUPで参照している他のセルのデータがエラーになってしまいます。
E10に順番に番号を読む際に文字列扱いに出来る方法はないでしょうか?
(E10セルは文字列の時にでる左上が緑色になっています。
マクロを実行すると緑色が消えてしまいます。
手入力でE10に番号を入力しエンターすればvlookupのセルはエラーになりません)
ご回答宜しくお願いします。