|
▼Hirofumiさん,neptune さん:
アドバイスにしたがって直したところ下記のコードでやりたいことができました。
いつも文章で考えてましたが、キチンと考えるには条件を書き出して、それからコード化すればよいのですね。
大変参考になります。
また、CheckBox1_Click()という発想が全くありませんでした。
お聞きしてよかった(勉強になった)と思っております。
本当にありがとうございました。
Private Sub CheckBox1_Click()
TextBox2.Enabled = Not CheckBox1.Value
End Sub
------------------------------------------------
Private Sub CommandButton1_Click()
Const csData As String = "HONSHA"
'Place
If CheckBox1.Value = True Then
ws1.Cells(i, 10).Value = csData
Else
ws1.Cells(i, 10).Value = Me.TextBox2.Value
End If
Unload Me
End Sub
|
|