エクセル、マクロで番号を読込して連続印刷を行いたいです

開始コードから終了コードまでの番号をE１0に順番に入れ込み、
指示書の内容をvlookupで読み込ませて、１枚ずつ印刷をしたいです。
A2、A3、E１0は文字列で読む形式になっています。
下記のコードで実行すると、数字は順に読んでいますが、
他のセルのデータが参照されずエラーになってしまいます。
マクロを実行時に文字列扱いにするコードが必要だと思うのですが、
いろいろ調べてもうまく出来ません。
どうかお力をお貸しください。
宜しくお願いします。
-----------------------------------
開始コードのセル：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.1の回答に寄せられた補足コメントです。 補足日時：2017/02/28 15:47

• 度々すみません。
  Ｅ１０でコードを読む時に、その都度文字列として読み込ませたいです。

    補足日時：2017/02/28 15:53

• とても分かりやすいコードを教えて下さり有難うございます。
  Ｅ１０への順に番号を入れ込む事は出来ました。
  Ｅ１０の番号を元にVLOOKUPで参照している他のセルのデータがエラーになってしまいます。
  Ｅ１０に順番に番号を読む際に文字列扱いに出来る方法はないでしょうか？
  （Ｅ１０セルは文字列の時にでる左上が緑色になっています。
  マクロを実行すると緑色が消えてしまいます。
  手入力でＥ１０に番号を入力しエンターすればvlookupのセルはエラーになりません）
  ご回答宜しくお願いします。

  No.2の回答に寄せられた補足コメントです。 補足日時：2017/02/28 16:03

No.2 ベストアンサー 回答者： bake-chan 回答日時： 2017/02/28 13:35

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

この回答へのお礼

教えて頂いたコードを使い、
下から４行目のコードにchr(39)を足したらエラーが無くなり
表示されました。

Range("E10").Value = Chr(39) & syori_no 'E10にコードを読み込む

指示書印刷の時間短縮になるので助かりました。
とても感謝しています。ありがとうございました！

お礼日時：2017/02/28 16:34

No.1 回答者： GooUserラック 回答日時： 2017/02/28 13:07

「他のセルのデータが参照されず」とはどういうことですか？

印刷するシートとE10セルは同じシート上に有るのでしょうか？

この回答へのお礼

ご質問ありがとうございました。
無事解決出来ました。
お時間をさいて頂きありがとうございました。

お礼日時：2017/02/28 16:35