Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


11012 / 13646 ツリー ←次へ | 前へ→

【18685】チェックボックスの値を取得したい にゃんぎょ 04/10/5(火) 17:28 質問[未読]
【18686】Re:チェックボックスの値を取得したい Jaka 04/10/5(火) 17:46 発言[未読]
【18689】Re:チェックボックスの値を取得したい Asaki 04/10/5(火) 17:56 回答[未読]
【18690】Re:チェックボックスの値を取得したい にゃんぎょ 04/10/5(火) 18:06 お礼[未読]

【18685】チェックボックスの値を取得したい
質問  にゃんぎょ  - 04/10/5(火) 17:28 -

引用なし
パスワード
   VBAでワークシートにチェックボックスをセットしています。
このチェックボックスの値=オンかオフか を取得したいのですが、
うまくいきません。

-------------------------------------------------------------------------
'チェックボックスをセット
Public OchbCB2 As Variant
Set mySheet = ActiveSheet
Set OchbCB2 = mySheet.Shapes.AddFormControl(xlCheckBox, 55, 11, 38, 13)

--------------------------------------------------------------------------
'ボタンクリックのイベント時
a = ActiveSheet.Shapes("Check Box 2").Object.Value
↑ここでエラーになってしまいます。
--------------------------------------------------------------------------

OLEObjectだと値の取得ができるのですが、見栄えが悪いので使いたくないのです。
どなたか知ってらっしゃる方、教えてください。
よろしくお願いします。

【18686】Re:チェックボックスの値を取得したい
発言  Jaka  - 04/10/5(火) 17:46 -

引用なし
パスワード
   こんにちは。
フォームの方だと、やっぱりOLEObjectを使わないとダメだと思います。

【18689】Re:チェックボックスの値を取得したい
回答  Asaki  - 04/10/5(火) 17:56 -

引用なし
パスワード
   こんにちは。

何のエラーでしょうか?

↓こんなのではどうでしょうか?
MsgBox IIf(ActiveSheet.Shapes("チェック 1").DrawingObject.Value = xlOn, "On", "Off")

チェックボックスの名前は変えてください。

【18690】Re:チェックボックスの値を取得したい
お礼  にゃんぎょ  - 04/10/5(火) 18:06 -

引用なし
パスワード
   ▼Asaki さん:
>↓こんなのではどうでしょうか?
>MsgBox IIf(ActiveSheet.Shapes("チェック 1").DrawingObject.Value = xlOn, "On", "Off")

JaKaさん、Asakiさん、回答ありがとうございます!
DrawingObject.Value だったのですね!
値の取得ができました。
助かりました!

11012 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free