| |
▼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
|
|
にしもり
- 08/4/24(木) 10:53 -
