|
▼neptuneさん、jakaさん、
おかげさまでここまでできました。
Private Sub UserForm_Initialize()
Me.CheckBox1.Value = True
Me.TextBox2.Enabled = False
End Sub
-----------------------------------------------
Private Sub CommandButton1_Click()
'Place
If CheckBox1.Value = True Then
ws1.Cells(i, 10).Value = "HONSHA"
Else
Me.TextBox2.Enabled = True
ws1.Cells(i, 10).Value = Me.TextBox2.Value
End If
Unload UserForm1
End Sub
Thenに入るとうまくいきます。
が、Elseにいった場合にTextBox2をEnableにできません。
というかIf節の位置がCommandButtonのClickプロシージャの中にあるのがおかしいですかね。たぶんロジックが、私のやりたいこととは違っているのですよね。
すみません、どう直せばできるでしょうか。
|
|