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

質問

宜しくお願いします。

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

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

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

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

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

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

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

回答No.6

ARC

>すみませんが、詳しく教えていただきたいのですが、宜しくお願いします。

#1の回答は忘れてください(汗)。もっとよさそうなやり方を考え付きました。

複数の帳票を使うということですので、ワークシートを複数用意することにしましょう。
とりあえず、Sheet1にデータが入力されていて、使用する帳票が３つ。それぞれSheet2,Sheet3,Sheet4にレイアウトを作成することとします。
また、Sheet5を作業用に使用するものとします。

●まず、任意の列のデータのみを取り出す処理を作成します。
1:Sheet5!A1のセルに「2」と入力
2:Sheet5!A2に「=INDIRECT("Sheet1!A" & $A$1)」(このセルに、Sheet1!A2のセルの内容が取り出せたはずです。)
3:同様に、Sheet5!B2に「=INDIRECT("Sheet1!B" & $A$1)」と入力。これを必要な列の数だけ繰り返す。
(Sheet5!A1の数値を変更すれば、その行のデータが取り出せるはずです。)

●取り出したデータをもとに、帳票のイメージを作成します。
4:Sheet2にテキストボックスを配置して、数式編集欄に「=Sheet5!A2」と入力(テキストボックスにSheet5!A2の内容が表示される)
5:テキストボックスをもう一つ作成し、数式編集欄に「=Sheet5!B2」と入力。これを列の数だけ繰り返す。
6:大まかな帳票の体裁に整える。

●他の帳票のイメージも作成。
6:Sheet5!A1 に行番号を数値で入力し、帳票２のデータを表示させる。
7:Sheet3にもテキストボックスを貼り付ける。数式編集欄に「=Sheet5!A2」と入力。同じ操作を列の数だけ。Sheet2をコピーすれば楽チンかも。
8:Sheet4も同様。

●ユーザーインターフェースの作成(印刷ボタン1コ)
9:[表示]-[ツールバー]-[コントロールツールボックス]
10:Sheet1を選択して、「コマンドボタン」のパーツを配置する。
11:配置したボタンをマウスで選択
12:「コントロールツールボックス」の「プロパティ」をクリック
13:[(オブジェクト名)]の項目を「印刷ボタン」に設定する。
14:[Caption]の項目を、「印刷開始」に設定する。

●ボタンを押したときの処理をVBAで記述する。
15:ボタンをダブルクリック。(VBAの編集画面が登場)
16:後述のコードを記述する。

●実行!!
17:「コントロールツールボックス」の三角定規のアイコンをクリック。
18:「印刷開始」ボタンをクリック。