| |
▼あき さん：
>指定したチェックボックスが存在するか確認する方法はありますか？
>
>処理対象によって特定のチェックボックスが有ったり無かったりするので、無条件に処理すると無い場合無視されずエラーになってしまいます。
>ですので、存在するときだけ処理したいので、有／無の判断方法が有れば教えてください。
チェックボックスと言ってもそれがフォーム上にあるのかシート上にあるのか
シート上であるならば、それがフォームの物なのか、コントロールツールボックスの物なのかによって処理が変わってきます
シート上にある、コントロールツールボックスより作成した物ならば、
↓のような感じになります
Sub T_CON()
Dim Cflg As Boolean
Dim MyObj As OLEObject
Dim WS As Worksheet
Cflg = False
Set WS = ThisWorkbook.ActiveSheet
For Each MyObj In WS.OLEObjects
If MyObj.Name = "CheckBox1" Then
Cflg = True
Exit For
End If
Next
MsgBox Cflg
End Sub
|
|
ハト
- 06/7/19(水) 10:29 -
