VBA講座もいよいよ終わりに近づいてきました。よくここまで頑張りましたね。あと少しでシステムが完成しますよ。
今回はタブを切り替えた時に印刷シートに入力（転記）された医薬品情報をテキストボックス、コンボボックスに表示するコードを書いていきます。
それではいきましょう。
スポンサーリンク
TabStrip_Change()
実は今回はすごく簡単なんです（笑）。要は医薬品情報を登録する処理の逆をするだけなんですね。
タブストリップの適当な場所でダブルクリックして下さい。又は右クリックからコードの表示。
上の画像のようになりましたね。
「タブストリップがChangeした（変わった）ら以下の動作を行う」となります。
スポンサーリンク
登録ボタンのコードを使い回せば簡単
登録ボタンのコードをそのまんま使うことができます。全てコピーして…
先ほどのPrivate Sub TabStrip_Change()の下に貼り付けてください。
後はちょっと手直しすればOKです。
上の画像の波線の下のコードを見て下さい。
With Worksheets(“印刷シート”)
.Range(“B” & k) = txtKubun.Text
.Range(“B” & k) = txtKubun.Text
ここに注目。
このままですと、「印刷シートのB列変数k行にtxtKubunの値を入れる」となりますね。
これ、逆にしたらどうですか？
txtKubun.Text = .Range(“B” & k)
「txtKubunに印刷シートのB列変数k行の値を入れる」となりますね。
こうすると、タブを切り替える度に印刷シートの該当する医薬品情報が読み込まれるようになります。
では続く行も全て＝の左右を逆にして下さい。
こうですね。ちょっと面倒臭いですが、頑張ってくださいね。
ショートカットキー「ctrl + C」、「ctrl + V」を使えば少し楽になるかと思います。
それでは今回は以上で終了となります。お疲れ様でした。
次回は鑑別報告書をExcelファイルで保存するコードについて解説します。
