開始コードから終了コードまでの番号を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も見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAマクロ実行時エラーの修正に...
-
Excel UserForm の表示位置
-
エクセルVBA 配列からセルに「...
-
Excelで空白セル直前のセルデー...
-
【Excel VBA】一番右端セルまで...
-
VBA にて、条件付き書式で背景...
-
エクセルの合計を自動で表示さ...
-
特定の色のついたセルを削除
-
VBA 複数条件の分岐処理の上手...
-
excelで結合セルの場合にエラー...
-
昨日、質問した件『VBA にて、...
-
VBAでユーザーフォームにセル値...
-
【VBA】【ユーザーフォーム_Lis...
-
VB.netでのExcelデータの読み込み
-
Excel VBA でFunctionプロシジ...
-
VBAの一次元配列から二次元配列へ
-
「Spread」のセルを移動させる...
-
CSVファイルを読み込んだらセル...
-
マクロのコマンドボタンの位置...
-
VBA 特定のセルからoffsetされ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBAマクロ実行時エラーの修正に...
-
エクセルVBA 配列からセルに「...
-
VBA 複数条件の分岐処理の上手...
-
Excelで空白セル直前のセルデー...
-
Excel UserForm の表示位置
-
EXCEL VBA 文中の書式ごと複写...
-
特定の色のついたセルを削除
-
VBA にて、条件付き書式で背景...
-
VBAでユーザーフォームにセル値...
-
【VBA】写真の貼り付けコードが...
-
【Excel VBA】一番右端セルまで...
-
Excel VBAでCheckboxの名前を変...
-
エクセルの合計を自動で表示さ...
-
【VBA】【ユーザーフォーム_Lis...
-
VBA:日付を配列に入れ別セルに...
-
Excel VBA IF文がうまく動作し...
-
下記のマクロの説明(意味)を...
-
入力規則のリスト選択
-
C# DataGridViewで複数選択した...
-
関数の引数でrangeを指定したとき
おすすめ情報
印刷するシート、E10セルは同じシートです。
E10で読んだ番号を元に、別の複数のセルにVLOOKUPでデータを参照しています。
E10セルに手入力で番号を入力し、
エンターを押した場合はVLOOKUPの所はエラーにならず表示されます。
エンターの代わりになるコードはあるのでしょうか?
ご回答宜しくお願いします。
度々すみません。
E10でコードを読む時に、その都度文字列として読み込ませたいです。
とても分かりやすいコードを教えて下さり有難うございます。
E10への順に番号を入れ込む事は出来ました。
E10の番号を元にVLOOKUPで参照している他のセルのデータがエラーになってしまいます。
E10に順番に番号を読む際に文字列扱いに出来る方法はないでしょうか?
(E10セルは文字列の時にでる左上が緑色になっています。
マクロを実行すると緑色が消えてしまいます。
手入力でE10に番号を入力しエンターすればvlookupのセルはエラーになりません)
ご回答宜しくお願いします。