エクセルVBAで、テキストボックスにセルの値を入れる

質問

宜しくお願いします。

エクセルデータの各項目を、すでに書式（表）が印刷された用紙のそれぞれの項目の位置に印刷させたいのですが・・・

各項目には、500行ぐらいのデータがあり、別のワークシートの表示させたい位置（すでに印刷された用紙にあわせてある）に各項目ごとのテキストボックスを作っておいて、そのテキストボックスに各項目のデータを1行ごとに表示させて、テキストボックスのフォント調整、印刷　～を繰り返したいのですが、どのようなコードを書けばよいのでしょうか？

進め方としては、データシートからテキストボックスに各項目のデータが表示されたら、シート上でテキストボックスのフォントや位置の微調整が出来るようにしておいて、印刷ボタンをクリックすると印刷され、次へのボタンをクリックすると、次の行のデータがテキストボックスに表示されるようにしたい。

※印刷する場合は、テキストボックス内の文字のみ印刷（シートには印刷したくない文字書きたいので・・・）

また、そのフォームには、パターンが５つあって、データには1行ごとにパターン番号が入力されているとして、それぞれのパターンにあわせたテキストボックスの配置してあるシートへ行くようにもしたい。

データの入れ替わりが多いので、別のワークブックと繋がるような仕組みにしておいて、テキストボックスの配置してあるブック側から、データのあるブックを呼びに行ってデータを取りに行くようにしておきたい。

以上、条件が多くてすみませんが、VBAは初心者で、ほんの部分的にしかまだ分かりません。どなたか詳しい方宜しくお願いします。

回答No.9

TTak

No.3の補足での問題を要約すると
(1)データが4桁の数値で、それぞれの桁ごとにテキストボックスに数値を表示した
い。
(2)データ数（行数）の増減に対応したい。（数値の無い所ではエラーとなる）
(3)計算にかかる時間を減らしたい。
ということでしょうか。

(1)については、すでにMIDワークシート関数で試されているようでが、これとINDEX関数を組み合わせれば、当該回答で述べた応用が利くと思います。A列の2～500行目までの4桁数値のデータがあり、B1に行番号（インデックス値）があるとするならば、
=MID(INDEX($A2:$A500,$B$1),X,1)
ですね。X=1で1桁目、X=2で2桁目～X=4で4桁目を表示します。
(2)INDEX関数で指定するデータ範囲を多めにしておいて、"#REF!"エラーになったら表示しない方法と、（スピン）ボタンの最大値をVBAで入れる方法があります。
=IF(ISERR(Y)=TRUE,"",Y)
この例ではYが"#REF!"ならば空白になります。
スピンボタンの最大値をVBAで固定する場合、X列目のデータが何行目まであるかを取得するには、
Range(.Cells(Rows.Count, X).End(xlUp).Address).Row
を使ってはいかがでしょう？
(3)計算時間が長くなるということは、リンク付きのテキストボックスの数が結構多いんじゃないですか？。オプションで計算を手動にすると、いちいち計算のたびに作業が止まらなくて済みますが、得策ではないかもしれません。やはり、セルを調整していった方がいいのかもしれませんが、印刷時の位置ズレに関しては、EXCELはあまり向いていないのかもしれませんね。
・・・なんか、以前私が直面してきたことと同じ道を歩んでいらっしゃるようです(^^;)。がんばってください。私の所は、伝票印刷用のソフトを入れました。

お礼

TTakさん！ありがとうございました。
なるほど！INDEX関数だったんですね！ほんとにありがとうございました。