Ping сети

[Aleksandr]

В столбце В прописаны IP. Как запустить пинг? Если IP доступен то строка закришивается в зеленый цвет, если нет то красный.

[doober]

Посмотрите здесь

на основании статьи функцию нашел на одном из форумов

'функция проверки ответа от хоста
Public Function TestIP_CPU() As Long

On Error GoTo fin

   Dim ECHO As ICMP_ECHO_REPLY
   Dim pos As Long
   Dim success As Long
   Dim result As Long
   If SocketsInitialize() Then
   
    
          success = Ping(("192.31.127.39"), "", ECHO)
            result = CLng(Mid(GetStatusCode(success), 1, 1))
    
               ' если комп пингуется то 1 если нет 0
                If result = 0 Then TestIP_CPU = 1 Else TestIP_CPU = 0
          
          SocketsCleanup
    
 End If

exit_TestIP_CPU:

   Exit Function
   
fin:
     
   End Function

[Aleksandr]

Я делаю так, но мне нужно чтобы IP Брались из столбца строки окрашивались, а не выводилось сообщение

Private Sub CommandButton1_Click()
 pid = Shell("ping 197.138.2.21", 0)
 hProcess = OpenProcess(PROCESS_QUERY_INFORMATION, 0, pid)
 If hProcess <> 0 Then
    Do
        GetExitCodeProcess hProcess, exit_code
        DoEvents
    Loop Until exit_code <> STILL_ACTIVE
    'MsgBox "exit_code = " & exit_code, vbInformation
    CloseHandle hProcess
 End If
 If exit_code = 0 Then
  MsgBox "OK!", , "Отчет"
 Else
  MsgBox "Нет связи", vbCritical, "Отчет"
 End If

End Sub

[EducatedFool]

У меня есть пример - в точности то, что вам надо
При проверке отображается форма - но её несложно убрать:



В примере есть функции

Function Ping(ByVal sAddress As String) As Long ' возвращает время прохождения пакета в миллисекундах
и
Function PingEx(ByVal sAddress As String, Optional ByVal DataSize As Long = -1, Optional ByVal TimeOut As Long = -1) As Long
- их можно использовать и в ячейках листа Excel
(только пересчёт ячеек может занимать много времени)

[EducatedFool]

Вот вам ещё один пример - чисто закраска ячеек, без всяких лишних форм:

[Aleksandr]

Спасибо огромное. То что надо

[Aleksandr]

А как сделать чтобы сканер запускался каждую минуту.

[viktar]

есть проблема excel глючит и закрывается

[EducatedFool]

Тогда используйте другие реализации функции PING в Excel,
самостоятельно прикрутив цикл к этой функции:
http://excelvba.ru/code/Ping

http://excelvba.ru/category/network/ping