変数？

質問

昨日から仕事上の都合でマクロを組んでますが
エクセルVBAを使ったのも昨日が初めてです。。(T_T)
質問をしたいのは
シートの横１列で１レコードとして
それが３００レコードほどあります。

そしてそのレコードを印刷用のテンプレートに
項目を飛ばすというマクロは出来たのですが
テンプレに飛ばしたいレコードの指定をする為に
選択フォームを作りました。
そのフォームに設けたのは「No.」項目と
「印刷画面へ」と「閉じる」ボタンがあります

「No.」欄に番号を入れて「印刷画面へ」を押すと
指定したレコードを印刷テンプレに・・
を行いたいのですが、
現在下記のように書いてます

If textbox1 = 1 Then　　・・・(1)
windows("データ元ファイル.xls").Activate
Range("C4:R4").Select　・・・(2)　
Selection.Copy

Windows("印刷テンプレート.xls").Activate
Range("M1").Select
ActiveSheet.Paste
End If

これだと約３００近くのレコードに対して
コマンドを書かないとダメですよね？
そこで(1)のTextbox1の値によって
(2)にある("C4:R4")の値が変化するようにしたいのです
が、色々調べましたがわかりません。
記述は間違ってると思いますが。
下記のような事をしたいので解る方はすいませんが
教えていただけないでしょうか・・？

Textbox1 = x
Range("Cx:Rx").Select
Selection.Copy

回答No.3

pen_pen_pen

No1.の方がおっしゃる通り、
Cells()を使用するのが良いと思います。
分かりやすくて。
> Textbox1 = x
> Range("Cx:Rx").Select
> Selection.Copy
は、
Textbox1 = x
Cells(x,x).Copy
となります。

蛇足。
同じような事をしている知り合いがいて、指定したレコードを連続して印刷するってマクロを先日作ってあげました。
その人は、レコードが登録されてるBOOKと印刷用シートが同じBOOKで、印刷用シートにデータを飛ばすにはマクロを使わずVLOOKUPという関数を使ってました。
それだと印刷用シートのあるセルに行の番号をセットするだけなのでとても簡単なマクロになりましたよ。
EXCEL関数の方がお得意でしたら、そちらもご検討されてはいかがかと思いました。

回答No.2

うぃず（@Wizard_Zero）

Wizard_Zeroと申します。

まずは答えから。

x = Textbox1
Range("C" & x & ":R" & x).Select
Selection.Copy

という具合です。

x = Textbox1

変数「x」にTextbox1の値を代入。代入式では、変数を左辺、代入する値を右辺に置きます。

Range("C" & x & ":R" & x).Select

変数を文字列として出力する場合、クォートの中に埋め込むことは出来ないので、一度クォートを閉じ、「&」でつなげます。

ところで・・・、最初のコードだとTextbox1が1のとき、Rangeで「C4:R4」を指定していますが、2のときは「C4:R5」になるんですよね？
となると、

Range("C4:R" & x + 3).Select

が正解のような気がします。それに、Textbox1に数値以外の文字が書かれた場合の対処とかも必要ですよ。

変数の使い方が分からなければ、とりあえず簡単なプログラムで練習してみたほうが良いと思います。

回答No.1

kouzi_kouji

Ｒａｎｇｅでは、範囲指定が変数で出来ませんよね。
Cells()を使うと変数で、範囲が指定出来ます。
列と行の順番が逆だったと思いますが・・・
行単位でのコピーなら、
Rowsを使う手があります。
例示をしない回答ですみません。
調べてみて下さい。