Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

36490 / 76738

←次へ　｜　前へ→


	【45429】Re:チェックボックス

メカ大好き！ - 06/12/24(日) 17:20 -


	引用なし

	パスワード

▼ユニフさん：
> 最初に書いてくださったコードを試すと
> In heets("Sheet7")の所でsubまたはfunctionが定義されてませんと出てきて
> heetsの文字が黄色になりました。heetsではなくてsheetsにしてみると
> インデックスが有効範囲になりませんと一行全部黄色くなります。

？？確かに heets は『S』が抜けていると思いますが、
私は以下の式で完璧に動きましたが…。(式は標準モジュールに書きました)
'------------------------------------
'特定のチェックボックスだけオフにする
Sub chkoff()
Dim i As Long
For i = 1 To 5
　Sheets("Sheet1").OLEObjects("CheckBox" & i). _
　 Object.Value = False
Next i
End Sub
'------------------------------------
'全てのチェックボックスをオンにする
Sub Allchkon()
Dim myobj As OLEObject
　For Each myobj In Sheets("Sheet1").OLEObjects
　　　If TypeName(myobj.Object) = "CheckBox" Then _
　　　　 myobj.Object.Value = True
　Next
End Sub
'------------------------------------
"Sheet7" は、実際に有るシートの名前と同じですか？

0 hits

▼

【45421】チェックボックス ユニフ 06/12/24(日) 0:39