перебрать все CheckBox

[Aleksandr]

Сделал пингатор сетки, но не получается перебрать все CheckBox. На строчках CheckBox & i.BackColor = &H80FF80 выдает ошибку

Private Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Long, ByVal bInheritHandle As Long, ByVal dwProcessId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Private Declare Function GetExitCodeProcess Lib "kernel32" (ByVal hProcess As Long, lpExitCode As Long) As Long
Private Const PROCESS_QUERY_INFORMATION As Long = &H400
Private Const STILL_ACTIVE As Long = &H103


Private Sub CommandButton1_Click()
For i = 0 To 10
If CheckBox & i.Value = True Then

pid = Shell("ping " + CheckBox & i.Caption, 0)
hProcess = OpenProcess(PROCESS_QUERY_INFORMATI ON, 0, pid)
If hProcess <> 0 Then
Do
GetExitCodeProcess hProcess, exit_code
DoEvents
Loop Until exit_code <> STILL_ACTIVE
CloseHandle hProcess
End If
If exit_code = 0 Then
CheckBox & i.BackColor = &H80FF80

Else
CheckBox & i.BackColor = &H8080FF
End If
End If
Next i
End Sub

[Hugo121]

Мне кажется, что уже тут должна быть ошибка:
CheckBox & i.Value
А я перебирал сегодня так в другой задаче:

For i = 1 To 40
Debug.Print Shapes("Check Box " & i).Name
Debug.Print Shapes("Check Box " & i).DrawingObject.Value
Next

P.S. Но как оказывается, с CheckBox такое не работает...

[EducatedFool]

Здесь есть примеры перебора чекбоксов, если они расположены на листе:
http://excelvba.ru/code/checkboxes

А где расположены чекбоксы в вашем случае? На форме?

[VictorM]

Не могу проверить, попробуйте записать так

If exit_code = 0 Then
                Me.Controls("CheckBox" & i).BackColor = &H80FF80
            Else
                Me.Controls("CheckBox" & i).BackColor = &H8080FF
            End If

Да...наверное не в тему
это работает на форме

[Hugo121]

У меня вот такой тест работает без сбоев.
На листе 2 "CheckBoxN" и 40 "Check Box N"

Sub tt()
For Each c In OLEObjects
Debug.Print c.Name
Debug.Print c.Object.Value
Next

For i = 1 To 2
Debug.Print Shapes("CheckBox" & i).Name
Debug.Print OLEObjects(i).Object.Value 'тут может и наврать, не то выдать - если порядковый номер не совпадёт с именем
Debug.Print OLEObjects(Shapes("CheckBox" & i).Name).Object.Value
Next


For i = 1 To 40
Debug.Print Shapes("Check Box " & i).Name
Debug.Print Shapes("Check Box " & i).DrawingObject.Value
Next
End Sub

P.S. Добавлено позже - это обрабатываются РАЗНЫЕ типы чекбоксов - из форм и ActiveX, поэтому методы получения Value немного разные.

[Aleksandr]

Расположены на листе

[OrcXCyber]

а мне показалось, что тут при проверка i.BackColor ошибка...
&H80FF80
либо не хватает одно цифры в конце..
либо H - это не составляющая цвета
0123456789ABCDEF
не вижу здесь буквы H
BackColor скорей всего в hex формате пишется!

делайте выводы

[Aleksandr]

Так если для одного CheckBox то работает, получается дело не в цвете. В этих строчках CheckBox & i.BackColor = &H80FF80

Else
CheckBox & i.BackColor = &H8080FF
ругается на &

[Aleksandr]

Если нет связи, то медлено пингуется. как увеличить скорость?

[Alex_ST]

Aleksandr.
ну вам же уж указали на ошибки:
- надо писать не CheckBox & i.BackColor , а Shapes("Check Box " & i).BackColor
- само устанавливаемое значение BackColor вы пытаетесь задать в 16-ричном формате, а такого типа переменных VBA не понимает.
16-ричные значения задавайте если очень нужно через функцию Hex
Или если нужно цвет, то через RGB