Excel VBAの質問です。テキストボックスから入力したものを特定のセルに入力するVBAで、下記のようなシステムを作りたいです。セル（A5）に対しテキストボックス1テキストボックス2テキストボックス3の内容を条件によって入力させるもので。条件1テキストボックス1が入力されており、テキストボックス2 は未入力であるときにセル（A5）にテキストボックス1の内容を入力する。セル（A5） 〇〇社 テキストボックス１ 様へ連絡条件2テキストボックス2が入力されていて、テキストボックス1が入力されていない時セル（A5）にテキストボックス2を入力するセル（A5） 〇〇社 テキストボックス2 様へ連絡条件3テキストボックス1と2が入力されている時にその内容を結合したものをセル（A5）に入力するセル（A5） 〇〇社 テキストボックス1 様 、 〇〇社 テキストボックス 2 様へ連絡 条件4テキストボックス1と2が未入力の状態の時に、テキストボックス3の内容をセル（A5）に入力するセル（A5） 連絡無し複数の条件がある場合のifの使い方かいまいち分からないので教えてもらえると助かります。少々分かりにくいと思うので分かりにくいものは返信します

条件1、条件2、条件3に関して、テキストボックス3についての条件が書いていないので、入力があってもなくても無視するとしました。

ユーザーフォームのコマンドボタンで実行するコード例です。

If TextBox1.Value \u0026lt;\u0026gt; \u0026quot;\u0026quot; Then ・・・

のように書くと長くなるので、入力有り無しで数値化しました。



Private Sub CommandButton1_Click()

Dim t1 As Long, t2 As Long, t3 As Long

If TextBox1.Value \u0026lt;\u0026gt; \u0026quot;\u0026quot; Then

t1 = 1

End If

If TextBox2.Value \u0026lt;\u0026gt; \u0026quot;\u0026quot; Then

t2 = 2

End If

If TextBox3.Value \u0026lt;\u0026gt; \u0026quot;\u0026quot; Then

t3 = 4

End If

Select Case t1 + t2 + t3

Case 0

Range(\u0026quot;A5\u0026quot;).Value = \u0026quot;\u0026quot;

MsgBox \u0026quot;テキストボックスに入力がありません\u0026quot;

Case 1, 5

Range(\u0026quot;A5\u0026quot;).Value = TextBox1.Value

Case 2, 6

Range(\u0026quot;A5\u0026quot;).Value = TextBox2.Value

Case 3, 7

Range(\u0026quot;A5\u0026quot;).Value = TextBox1.Value \u0026amp; TextBox2.Value

Case 4

Range(\u0026quot;A5\u0026quot;).Value = TextBox3.Value

End Select

End Sub





ユーザーフォームでの内容だと思って回答しましたが違っているなら連絡して下さい。