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

質問

宜しくお願いします。

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

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

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

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

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

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

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

回答No.10

nishi6

＞問題は、OKWEBが漏れていた事と・・・・
少し誤解があるようなので説明します。「OKWEB_Data.xls」は私が作った勝手なファイル名ですのでrurucomさんが作られたファイル名をこの名前にする必要はありません。逆にマクロ内の「OKWEB_Data.xls」をrurucomさん使用のファイル名に変えてくださいという意味でした。それはさておき（動いたということで）

＞＝Hantei（Row())をE列に設定をデータ行数に合わせて自動的に、返してくれる方法はありませんか

に対するア）の方法ですが、判定条件さえ確実ならデータシートの方に手を加えることは必要ないと思います。行を指定したときに、パターンを判定すれば済むことで、下記の修正を加えれば大丈夫でしょう。

ユーザー定義関数を少し変えます。標準モジュールにあることが必要です。２行を追加します。
Hantei = 5
Case Else '***追加***　パターンに合わない場合、データが無くなった場合
Hantei = 0 '***追加***
End Select

#4に書いたモジュールを少し変えます。
st = .Offset(tensouNo, pattIdx - 1): If st = 0 Then Exit Sub 'パターンを調べる
　　　↓
st = Hantei(tensouNo): If st = 0 Then Exit Sub 'パターンを調べる
都合3箇所の修正です。

　1)どこかの印刷用シートの<Ｂ5に印刷行を入力>（未入力なら1）
　2)<ボタン１を押す>
　3)パターンを判定して該当のシートを表示、データを２行目に転送
　4)<テキストボックスの微調整>
　5)<印刷ボタンを押す。>シートの文字を見えなくして印刷。
　6)印刷が終わればシートの文字を可視に
　7)繰り返し　　　の手順になるはずです。<　>は人の操作です。
テスト用に作ったシートを消してしまいました。想像だけで書いていますので不具合があれば教えてください。

補足

nishi6さん！ほんとに何度もすみません！
私は、どうやら勘違いしていたような・・・

Public Function Hantei(rowNo As Long)
Application.Volatile
Select Case True
Case Range("A" & rowNo) <> "" And Range("B" & rowNo) <> ""
Hantei = 1
↓ここからここまで
Case Range("A" & rowNo) <> "" And Range("B" & rowNo) <> "" And Range("C" & rowNo) <> ""
Hantei = 5
Case Else
Hantei = 0
End Select
End Function

上記のコードをデータシートのモジュールに書いていたんですが、操作する側のファイル（回答４を書いているファイル）に書かないといけないんですよね？？？

それしたら、どこに書いて良いか分からなくなってきたのですが・・・

ほんっ・・とに何度もすみません。どこに書いたら良いか教えてください。