質問: テキストボックスを使ったときの条件分岐について テキストボックスを使ったときの条件分岐について ユーザーフォームを使って人事管理をしたいと思っています。 そこで、通勤距離を入力すると、通勤手当額が表示されるようにしたいのですがうまくいきません。手当額は変更があるために、エクセルのシートに入力します。 シートのa1からa5まで2,5、10、15、・・・という風に距離数が入ります。 b1からb5まで2,000、4,000、4,500、5,000、・・・と金額が入ります。 ユーザーフォームにテキストボックスを二つ置き、ボックス1に距離を入力するとボックス2に金額が表示という風にしたいのです。 2キロ未満は0、2キロ以上は2,000、5キロ以上は4,000、10キロ以上は4,500、15キロ以上は5,000という風に表示できるでしょうか? 本を片手にやっているのですが、何分力不足で八方ふさがりになってしまいまいた。 よろしくお願いいたします。
回答: 別案ですが シートに距離と金額の対応表を準備します。 仮に a b 1 2 距離 金額 3 0 2000 4 2.1 4000 5 5.1 4500 ・・・と準備して a1に距離を入れると、b1に金額が表示されるように関数を準備します。 b1には =vlookup(a1,a3:b100) で大丈夫かと思います。 ユーザーフォームのvbaは private sub textbox1_change() range("a1").value=textbox1.value textbox2.value=range("b1").value end sub として、textbox1の値をa1にいれて、b1の式の結果をtextbox2に引き出す。 見たいな事がわかりやすいと思います。