Excel VBA質問箱 IV

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

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


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

36479 / 76732

←次へ　｜　前へ→


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

ユニフ - 06/12/24(日) 18:04 -


	引用なし

	パスワード

メカ大好き！さんどうもです。

>私は以下の式で完璧に動きましたが…。(式は標準モジュールに書きました)

Sub Allchkon()
Dim myobj As OLEObject
For Each myobj In Sheets("Sheet7").OLEObjects
　　　If TypeName(myobj.Object) = "CheckBox" Then _
　　　 myobj.Object.Value = False
　Next
End Sub

で、もう一度試しましたがやはり２行目が黄色エラーになります。
シート上にあるものはチェックボックスで間違いないと思います。
コントロールツールボックスでデザインモードにして右クリックすれば
チェックボックスオブジェクトと出てきます。外観からしてどう見ても
ボタンではなくチェックボックスと思えます。

>'------------------------------------
>"Sheet7" は、実際に有るシートの名前と同じですか？

右クリックでコードを見るとシート７が出てきますし隠しシートもないし
7番目にあるシートなのでシート７なのは間違いないと思います。

いったい何が悪いのだろう（;＿;）

1 hits

▼

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