Results of 1 - 1 of about 978 for チェックボックス (0.008 sec.)
- [[20080807084355]]
- #score: 5499
- @digest: 4b2386822501e2b876905af7d4724bed
- @id: 39439
- @mdate: 2008-08-07T04:14:29Z
- @size: 1305
- @type: text/plain
- #keywords: 夏雲 (9739), oleformat (8810), ク1 (6440), 雲） (4320), は晴 (3848), 方, (3759), ク2 (2784), checkbox1 (2313), れ" (2271), チェ (1948), ェッ (1764), checkboxes (1754), 晴れ (1673), jaka (1349), （夏 (1327), checkbox (1132), クボ (1101), ック (826), 今日 (821), 内部 (796), 太) (744), msgbox (679), ルボ (594), ルバ (588), 一方 (556), click (532), activesheet (516), ボッ (446), shapes (440), ツー (363), クス (358), 記述 (351)
- 『マクロの記述』（夏雲）
ツールバーにあるコントロールボックスの例えば,CheckBoxを使って チェックボックスをチェックした場合に下記のように実行できます。 Private Sub CheckBox1_Click() If CheckBox1.Value = True Then MsgBox "今日は曇り" End Sub 一方,ツールバーのフォームの「チェック」を使った場合には Sub チェック1_Click() If チェック1.value = True Then MsgBox "今日は晴れ" End Sub としても,エラーになります。 if文の内部がおかしいのですが,どのように記述したらいいのでしょうか。 ---- 書き方の違いの参考になると思います。 http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=157;id=FAQ (Jaka) ---- フォームのチェックボックスのValueはTrue/Falseではないようですよ。 調べたところ、「1か-4146」でした。 なので、↓ Sub チェック1_Click() If ActiveSheet.CheckBoxes("チェック 1").Value = 1 Then MsgBox "今日は晴れ" End Sub (半平太) ---- おまけ。 (Jaka) If ActiveSheet.Shapes("チェック 1").OLEFormat.Object.Value = xlOn Then MsgBox "チェック 1 ON" Else MsgBox "チェック 1 OFF" End If If ActiveSheet.Shapes("チェック 2").OLEFormat.Object.Value = xlOff Then MsgBox "チェック 2 OFF" Else MsgBox "チェック 2 ON" End If ---- (半平太)さんの方法を利用させていただきました。（夏雲） ありがとうございました。... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/200808/20080807084355.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97065 documents and 608342 words.
訪問者：