Excelで、checkboxがtrueならlabelを太字、任意のセルに１を入力したい。

質問させて頂きます。

ユーザーフォーム上にあるチェックボックスにチェックを
入れると、同じユーザーフォーム上にあるラベルの値を太字
にして、さらに特定のシートのセルに１を入力。
同じくチェックボックスのチェックを外すとラベルの値を
標準（太字でなくす）にし、特定のセルに入力された１を
消去する。

というようなことがやりたいのですが、可能でしょうか。

全てuserform1にある

１，checkbox1にチェック有り（true）のとき、
　　→label1の表示（値）を太字
　　→worksheet1のA1セルに１を入力

２，checkbox1にチェックなし（false）のとき、
　　→label1の表示（値）を標準文字
　　→worksheet1のA1セルを空白

ということを、全てチェックボックスのチェック動作
に関連させて行いたいのです。（チェックに連動させたい）

おそらくＶＢＡでの作業になるのだと思われますが
あまり詳しくないのでよろしくお願いします。

No.1 ベストアンサー 回答者： ao777 回答日時： 2006/06/29 13:14

下記のコードを対象のユーザーフォームモジュールに貼り付けて下さい。

Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Label1.Font.Bold = True
Worksheets("Sheet1").Range("A1").Value = 1
Else
Label1.Font.Bold = False
Worksheets("Sheet1").Range("A1").Value = ""
End If
End Sub

この回答へのお礼

大変素早い回答、ありがとうございました。

思っていた通りのことができて大変満足しています。

本当に感謝です。

お礼日時：2006/06/29 15:49