|
▼ユニフ さん:
> 最初に書いてくださったコードを試すと
> 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" は、実際に有るシートの名前と同じですか?
|
|