|
こんにちは。
ユーザーフォームがあります。
Private Sub CommandButton1_Click()
'place
ws1.Cells(i, 10).Value = Me.TextBox2.Value
End Sub
入力されたテキストをws1に転記してるわけですが、いま入力されるテキストは"HONSHA"がほとんどです。
そこでチェックボックスを設けて(ラベルはHONSHA [本社の意])、デフォルトでチェックを入れておきたいです。
また、チェックが入っている間はTextBox2はグレーアウト(Inactive)しておきたいのです。
もし操作者がチェックを入れたままCommandButtonをClickしたら、HONSHAとws1に書かれ、もし操作者がチェックをはずしたら、TextBox2がActiveになり、操作者がTextBox2に入力した値がCommandButton Click時にws1に書かれる、というふうにしたいのです。
そんなことが可能でしょうか。
なおワークシートをダブルクリックするとユーザーフォームが起動するので、ワークシートのモジュールはこう定義しています
Option Explicit
Public ws1 As Worksheet
|
|