Excel VBA、1つまたは複数のテキストボックスが空の場合にコマンドボタンを無効にする方法

Question

私はヘルプを必要とし、1つのCommandButtonと4つのTextBoxでユーザーフォームを作成しました。私は4つのTextBoxがまだ空の場合、CommanButtonを無効にしたい。

は、私はすでに私はコードを使用し、1つのだけのテキストボックスのヘルプのコードを見つけ

ます。Private Sub TextBox1_Change（）

もし

CommandButton1.Enabled = Falseを次にTextBox1.Value = ""エルス

CommandButton1.Enabled = Trueの

エンド

の場合End Subの

私はendup立ち往生TextBox2をして同じコードを使用するとき、私はコードを使用する場合、コマンドボタンは、有効である（TextBox1.value & textbox2.value & TextBox3.value & TextBox4場合.value = "" then commandbutton1.enabled = false） コマンドボタンは、textbox1を塗りつぶした後に有効になります。

Answer 1

用途：

If TextBox1.Value & TextBox2.Value & TextBox3.Value & TextBox4.Value = "" Then 

値の連結が空の場合、すべての値が空である必要があります。

Answer 2

IF条件は必要ありません。

CommandButton1.Enabled = cbool(Len(Textbox1.Text) + Len(Textbox2.Text) _ 
          + Len(Textbox3.Text) + Len(Textbox4.Text)) 

CBool​​（x）= True xは0以外の任意の数であり、その場合の結果はFalseです。いずれかのテキストボックスにコンテンツがある場合、その結合長は0より大きく、CBool​​の結果はTrueです。