エクセルのフォームで○のチェックボックスがほしいです。

質問

はじめまして。よろしくお願い致します。
エクセル（２００３）で、フォームの中にチェックボックスがあるのですが、チェックを入れると「レ」がでます。これをクリックしたら、「○」がでるチェックボックスがほしいのですが、どのようなVBAにしたらよいのか教えてください。お願いします。

回答No.1

marbin · ベストアンサー

トグルボタンで作成しては？

Private Sub ToggleButton1_Click()
If Me.ToggleButton1.Value = True Then
Me.ToggleButton1.Caption = "○"
Else
Me.ToggleButton1.Caption = ""
End If
End Sub

お礼

ありがとうございます。

回答No.4

imogasi

>これをクリックしたら、「○」がでるチェックボックスがほしいのですが、
有名なもの（コントロール）はなく、自分で見つけないとならないと思う。
＞どのようなVBAにしたらよいのか教えてください。
ＶＢＡのプログラムコードのことを言うなら、普通はそういうレベルの問題ではなかろう。
他のコントロールの場合、ＶＢＡで、コードでコントロールを貼り付けする方法もありますが、ＶＢやＶＢＡの予定する方法の範囲ではない。
初心者・中級者はコンテナ（フォームなど）にツールボックスから手動でＤ＆Ｄをして貼り付けます。コードでやれるほど、そんなにＶＢＡのスキルに自信あるのですか。
ーー
コントロールの外見・体裁に拘るなどは、コントロールを自作できるレベルの人が考えること思います。
ーー
Ｌａｂｅｌコントロールで代替するなら
Private Sub Label1_Click()
If Label1.Caption = "○" Then
Label1.Caption = ""
Else
Label1.Caption = "○"
End If
End Sub
のようなものか。

お礼

ありがとうございます。試してみます。

回答No.3

marbin

＃1、2です。
ユーザーフォームではなく、フォームの方でしたね。
フォームにはトグルボタンはないようですので、
ラベルで対応することになると思います。

お礼

ありがとうございます。
オートシェイプやフォーム（チェックボックス）みたいに、セルに関係なく配置でき、そこでクリックしたら○がでるようにしたいのですが、何か方法がありますでしょうか？

回答No.2

marbin

他には、ラベルで作成し、Captionを切り替える、
というのでもよさそうです。

お礼

アドバイスありがとうございます。