今回はワークシートのセルに入力した値をコンボボックスに読み込ませるコードを書いていきます。
この作業がなければコンボボックスに選択肢が出現しません。それでは早速いきましょう。
スポンサーリンク
コンボボックスの選択肢をワークシートのセルの値から取得する
ではVisual Basicの画面を開いて下さい。
右側のコードウインドウを見て下さい。今は上の画像のようになっていますね。
○
End Sub
この意味は何でしたか？「ユーザーフォームを開いた時に○を行う」でしたね。
○の部分に以下のコードを書いていきます。
For i = 2 To 17
cboTani.AddItem Worksheets(“基本マスタ”).Cells(i, 2).Value
Next
と入力して下さい。
このコードの説明はVBA講座2-9で行いましたので割愛します。それではF5を押して実行してみましょう。
cboTaniの右側の下矢印をクリックしてみましょう。
単位の候補が並んでいるのを確認して下さい。
右のスクロールバーを下に移動させて、しっかりUまで追加されているのを確認して下さい。
このようにしてコンボボックスに選択肢を追加します。
これで完成としたい所ですが、これだけだとちょっと不親切です。使いやすくするためにもう一手間加えましょう。
スポンサーリンク
コンボボックスの初期値を設定する
ここまでの作業で単位はいちいち入力せずに選べるように設定することができました。
ただ薬で一番多い剤形は錠剤です。
つまり、最初から錠剤の単位を示すTが入っていれば、新規登録する薬が錠剤の場合、毎回選択しなくてもいい事になります。
システム利用者がちょっとですが楽になります。こういう気遣いが大切なんですよ。
ではどのようにすればいいかというと…
Nextの次の行に
これを入れるだけです。
＝の左側
cboTaniのValue（.は基本「の」と読む）は、つまり「コンボボックス単位の値は」となります。
＝の右側
cboTaniのリストの0番目、つまり「コンボボックス単位のリストの0番目」となります。
ん？イマイチよくわかりませんね。
VBAの一番上は1ではなく、0とカウントする
ここでいうリストとはコンボボックスに追加した値「T～U」を意味します。これはいいですね？
そして普通は一番上のTを1番目とカウントすると思いますが、VBAの場合、一番上を0とカウントするのです。
つまり、cboTani.List(0)はTを意味します。
以上から、「コンボボックス単位の値はリストの1番目のTである」という意味になります。
早速F５キーを押して実行してみましょう。
Tが最初から入っている事を確認して下さい。この辺が一般的な考え方と違うのでちょっと難しいですね。
それでは今回はこれで終了とさせて頂きます。お疲れ様でした。
次回はコンボボックス採用区分の方も同じようにワークシートの値を読み込ませますが、ちょっとコードの書き方を変えて、汎用性を高めます。
応用が効くコードに挑戦しましょう。
