VBAのコンボボックスで選んだものによって、違う数字を代入させたい

質問

VBAのコンボボックスで選んだものによって、違う数字を代入させたい

お知恵をお貸しください。

現在、EXCEL2007のVBAにて、ちょっとしたVBAを作成しています。

コンボボックスには14項目を設定しています。
そのコンボボックスで選んだものによって下のコードの＠マーク部に違う数字を代入させたいのですが、どうしたらいいのでしょうか？

（例）
----コンボボックス----

あ
い
う
え
お
か
き
・
・
・

コンボボックスは14項目あり、コンボボックス内の「う」を選ぶと、5が代入され下のコードの＠部分に5が入ります
こんな風にコンボボックス内の選ぶものによって違う数字が代入される。

Dim a As Date
Dim b As Long

a = TimeSerial(CInt(TextBox5.Text), CInt(TextBox6.Text), 0) - TimeSerial(CInt(TextBox3.Text), CInt(TextBox4.Text), 0)
Label6.Caption = Hour(a) + Minute(a) / 60
Label7.Caption = (Hour(a) + Minute(a) / 60) * ＠

回答No.1

hige_082

いろんな方法がありますが
分岐の定番はifかselect caseでしょう
分岐の数が多いのでselect caseでよいのでは

select case combobox.value
case "あ"
＠=1
case "い"
＠=3
case "う"
＠=5
case "え"
＠=7
case "お"
＠=9
　：
　：
end select

こんな感じで
参考まで