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

[Aleksandr]

Сделал , но все равно не работает.

Private Sub CommandButton1_Click()
For i = 1 To 8

If CheckBox & i.Value = True Then

    pid = Shell("ping " + CheckBox & i.Caption, 0)
 hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 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
'CheckBox1.BackColor = &H80FF80
Shapes("Check Box " & i).BackColor = &H80FF80
 Else
Shapes("Check Box " & i).BackColor = &H8080FF
  
  End If
Else
Shapes("Check Box " & i).BackColor = &HFFFFFF
  End If
Next i
  
End Sub

Я прошу прощения, но что-то я не врублюсь где ошибка.

[Aleksandr]

Я сделал так

Private Sub CommandButton1_Click()
For i = 0 To 8
Debug.Print Shapes("CheckBox " & i).Name
Debug.Print Shapes("CheckBox " & i).DrawingObject.Value

'If Shapes("CheckBox " & i).Value = True Then

    pid = Shell("ping " + Shapes("CheckBox " & i).Caption, 0)
 hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 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
'CheckBox1.BackColor = &H80FF80
Shapes("CheckBox " & i).BackColor = &H80FF80
 Else
Shapes("CheckBox " & i).BackColor = &H8080FF
End If
Next i
  
End Sub

Прошу прощения, но я что-то не врублюсь. Что я не так делаю?

[Aleksandr]

Выдает ошибку Next without For

[Alex_ST]

Блин, не люблю я без Option Explicit работать...
Фиг найдёшь, что Ёксельский бэйсик там себе напридумывал если переменные не объявлены...
Но сразу бросается в глаза вот что:
Как у вас чекбоксы названы? Я так понимаю, что CheckBox1 ... CheckBox8 ?
а кодом вы пытаетесь обращаться к CheckBox 1 ... CheckBox 8 (там пробел лишний перед закрывающей кавычкой стоит:
написано "CheckBox " & i
а должно быть "CheckBox" & i
Это я сам проглядел - скопировал выражение из первого поста Hugo121, а пробела не увидал.

[Aleksandr]

Описал переменную
Option Explicit
Dim i As Integer

Все равно не работает

Выдает Переменная pid не определена

[Hugo121]

Да, у меня там и такие чекбоксы были. И никогда с 0 они не начинались! Хотя вероятно вручную можно и обозвать...
А pid'а определите

[Alex_ST]

Option Explicit надеюсь в декларациях модуля?

И ваша программа не ругается на неназначенные переменные pid, hProcess и прочее? Такого быть не может! Или у вас эти переменные определены как глобальные?

Хоть на какой строке вылетает?
Вообще не хочет запускаться что ли? Говорит "Next without For"?
Тогда заремарьте всё от

Debug.Print Shapes("CheckBox " & i).Name

до строки перед

If exit_code = 0 Then

, задавайте в ручную разные значения exit_code и проверьте функционирование фрагмента окраски чекбоксов

[Aleksandr]

Вот мой модуль

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

Option Explicit
Dim i As Integer
Dim pid As Long
Dim hProcess As Long

Private Sub CommandButton2_Click()
For i = 1 To 2
If Shapes("CheckBox" & i).Value = True Then

    pid = Shell("ping " + Shapes("CheckBox" & i).Caption, 0)
 hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 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
'CheckBox1.BackColor = &H80FF80
Shapes("CheckBox" & i).BackColor = &H80FF80
 Else
Shapes("CheckBox" & i).BackColor = &H8080FF
End If
Else
Shapes("CheckBox" & i).BackColor = &HFFFFFF
End If

Next
End Sub

Выдает Variable not defined
Если пишу без
Dim pid As Long
Dim hProcess As Long
то ошибка выскакивает в строчках
pid = Shell("ping " + Shapes("CheckBox" & i).Caption, 0)
hProcess = OpenProcess(PROCESS_QUERY_INFORMATI ON, 0, pid)

[Alex_ST]

Сообщение от Hugo121

Да, у меня там и такие чекбоксы были. И никогда с 0 они не начинались! Хотя вероятно вручную можно и обозвать...
А pid'а определите

что-то я не въеду: разве в именах каких бы то ни было объектов могут быть пробелы? А с цифры их имя разве может начинаться?

[Hugo121]

У меня на одном тестовом листе были разные чекбоксы - из форм и ActiveX. У них такие разные названия и разные методы получения Value оказывается.
А цифра в конце, это в смысле что первый не чекбокс0, а чекбокс1

Да вот чекбоксы с пробелами - http://www.planetaexcel.ru/docs/foru...st_205116.xlsm