VBA講座もいよいよ終わりに近づいてきました。よくここまで頑張りましたね。あと少しでシステムが完成しますよ。

 

今回はタブを切り替えた時に印刷シートに入力(転記)された医薬品情報をテキストボックス、コンボボックスに表示するコードを書いていきます。

 

それではいきましょう。

TabStrip_Change()

実は今回はすごく簡単なんです(笑)。要は医薬品情報を登録する処理の逆をするだけなんですね。

 

vba5-12-1タブストリップの適当な場所でダブルクリックして下さい。又は右クリックからコードの表示。

 

vba5-12-2上の画像のようになりましたね。

 

「タブストリップがChangeした(変わった)ら以下の動作を行う」となります。

登録ボタンのコードを使い回せば簡単

vba5-12-3登録ボタンのコードをそのまんま使うことができます。全てコピーして…

 

vba5-12-4先ほどのPrivate Sub TabStrip_Change()の下に貼り付けてください。

 

後はちょっと手直しすればOKです。

 

上の画像の波線の下のコードを見て下さい。

With Worksheets(“印刷シート”)
.Range(“B” & k) = txtKubun.Text

ここに注目。

 

このままですと、「印刷シートのB列変数k行にtxtKubunの値を入れる」となりますね。

 

これ、逆にしたらどうですか?

txtKubun.Text = .Range(“B” & k)

「txtKubunに印刷シートのB列変数k行の値を入れる」となりますね。

 

こうすると、タブを切り替える度に印刷シートの該当する医薬品情報が読み込まれるようになります。

 

では続く行も全て=の左右を逆にして下さい。

 

こうですね。ちょっと面倒臭いですが、頑張ってくださいね。

 

ショートカットキー「ctrl + C」、「ctrl + V」を使えば少し楽になるかと思います。

 

それでは今回は以上で終了となります。お疲れ様でした。

 

次回は鑑別報告書をExcelファイルで保存するコードについて解説します。