ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

¨D¨Ï¥Îvba ping

¨D¨Ï¥Îvba ping

Dears
·Q½Ð°Ý§Ú¤@¦¸¦³¦hµ§¸ê®Æ»Ý­nping®æ¦¡¦p¤U¡G
¥x¥_        10.1.1.1                10.1.1.2                10.1.1.3       
¥x¤¤        10.2.1.1                10.2.1.2                10.2.1.3
¨Ã»Ý­n¦b¦U­ÓIP¹j¤@Äæ¥h¦^ÂÐping¬O§_¥¿½T¡A½Ð°Ý¸Ó«ç»ò ¥h¼g?!

¦^´_ 1# loveinput
³Â»¶ºô¯¸¤W¦³Â×´Iªº¸ê°T¥i¨Ñ¬d¸ß»P¶i­×¡C
§Aªº´£°Ý¥i¥H¥h°Ñ¦Ò¡G
´ú¸ÕIP

TOP

¦U¦ì¥ý¶i
·Q½Ð°Ý§Ú¦³¤@­Ópingªºµ{¦¡¤F¡A¥Ø«e¥u¯à¤@­Ófor°j°éµ²§ô«á
¤~¯àÄ~Äò°õ¦æ¥t¤@­Ó°j°é¡A¦ý¬O§Æ±æ¯à¦P®É°õ¦æ¨â­Ó°j°é!!
¤w½¹L°Q½×°Ï»Pgoogle¤F¡AÁÙ¬O¤£¤F¸Ñ¸Ó«ç»ò¸Ñ©Î¸Ó±Ndoevents¥[¦b¨º

¦A½Ð«ü±Ð
pinguse.zip (789 Bytes)

TOP

§ó·sªþ¥ó¬°excel
upping.zip (83.77 KB)

TOP

¦^´_ 4# loveinput
  1. Sub ipchange()
  2. Dim rng, arr, i%, m% '«Å§i¥|­ÓÅܼÆ
  3. rng = Range(Sheets("¥~³¡¸ê®Æ").[a1], Sheets("¥~³¡¸ê®Æ").[a65536].End(xlUp))   'ÅܼƭÈ=Äæ¦ìa1~a65536¤¤ªº©Ò¦³¦³­È¸ê®Æ
  4. '*** rng: ¥~³¡¸ê®Æ").[a1]¥H¤U¨S¦³¸ê®Æ
  5. rng2 = Range(Sheets("¨Ó·½¸ê®Æ").[a1], Sheets("¨Ó·½¸ê®Æ").[c65536].End(xlUp))   'ÅܼƭÈ=Äæ¦ìa1~a65536¤¤ªº©Ò¦³¦³­È¸ê®Æ
  6. '*** rng2³oÅܼƳ]©w¤§«á¦A¤]¨S¦³¥Î¨ì,¬°¦ó??
  7. ReDim arr(1 To UBound(rng), 1 To 20)     '­×§ï¤Gºû°}¦C¤j¤pMsgBox Val(rng)
  8. '*** UBound(rng) ¿ù»~-> rng: ¥~³¡¸ê®Æ").[a1]¥H¤U¨S¦³¸ê®Æ
  9. For i = 1 To UBound(rng) - 1 Step 1
  10. m = m + 1
  11. '*** Sheets("¨Ó·½¸ê®Æ").[h30] ¨S¦³¸ê®Æ, Terminal IP ªºµ{¦¡½X¿ù»~
  12. 'Terminal IP
  13. If Range(Sheets("¨Ó·½¸ê®Æ").[e1], Sheets("¨Ó·½¸ê®Æ").[h30]).Find(Val(Split(rng(i + 1, 1), ".")(1))).Column = 5 And IsOdd(Val(Split(rng(i + 1, 1), ".")(3))) Then
  14. arr(m, 3) = Split(rng(i + 1, 1), ".")(0) & "." & Split(rng(i + 1, 1), ".")(1) + 10 & "." & Split(rng(i + 1, 1), ".")(2) & "." & Split(rng(i + 1, 1), ".")(3) + 1
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

ÁÂÁÂGBKEEªº¦^ÂСA¥i¯à§Ú¨S»¡²M·¡¡A§Ú¥D­n¬O°õ¦æping1~ping7ªº°Ê§@¡A§Æ±æ¯à¦P®É°õ¦æ!!
¦AªÖ½Ð«ü±Ð!!

TOP

¦^´_ 6# loveinput
Sub ipchange() ¤£¯à¥¿±`°õ¦æ, °ø½Í§Ú¥D­n¬O°õ¦æping1~ping7ªº°Ê§@¡A§Æ±æ¯à¦P®É°õ¦æ!!
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

upping.zip (83.88 KB)
ªG¯u¬O°ø½Íªü!!ÁÙ±æ«ü¾É¡A§ó·s¦pªþ¥ó

TOP

¦^´_ 8# loveinput
¦P®É¶]¨â­Óµ{¦¡! (µ{¦¡°õ¦æ®É,²¾°Ê·Æ¹«,Áä½L,©ö¥X¿ù)
  1. Option Explicit
  2. Sub Ex_Ping()
  3.     Dim AR(), Rng As Range, R As Integer, C As Integer, termPing As Object, termStatus As Variant
  4.     With Worksheets("Sheet1")
  5.         Set Rng = .Range("C2", .Range("C2").End(xlDown)).Resize(, .Range("C1").End(xlToRight).Column - 2)
  6.         AR = Rng                                'Âà¤J°}¦C
  7.     End With
  8.     For R = 1 To UBound(AR)                     '°}¦C:²Ä¤@ºû(¦C)
  9.         For C = 1 To UBound(AR, 2) Step 2       '°}¦C:²Ä¤Gºû(Äæ)  Step 2 ¶¡¹j 2Äæ
  10.             Application.StatusBar = AR(R, C)
  11.             Set termPing = GetObject("winmgmts:").ExecQuery _
  12.                     ("Select * from Win32_PingStatus where Address = '" & AR(R, C) & "'")
  13.             For Each termStatus In termPing
  14.                 With termStatus
  15.                     If IsNull(.StatusCode) Or .StatusCode <> 0 Then ' Terminal¥¢±Ñ
  16.                         AR(R, C + 1) = "Termin 3G¤£³q" '                termresResult = "Time Out"
  17.                     Else ' ¦¨¥\
  18.                         AR(R, C + 1) = "Termin 3G³q" '                termresResult = .ResponseTime & "ms"   '¨ú±oATUR¦^À³®É¶¡
  19.                     End If
  20.                 End With
  21.             Next
  22.         Next
  23.     Next
  24.     Rng = AR                        '¾É¥X°}¦C
  25.     Application.StatusBar = "OK"
  26. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 9# GBKEE
  1. Set Rng = .Range("C2", .Range("C2").End(xlDown)).Resize(, .Range("C1").End(xlToRight).Column - 2)
½Æ»s¥N½X
»Ý§ï¦¨¡G
  1. Set Rng = .Range("C2", .Range("C65535").End(xlUp)).Resize(, .Range("C1").End(xlToRight).Column - 2)
½Æ»s¥N½X
§_«h·|µo¥Í·¸¦ì¡C

TOP

        ÀR«ä¦Û¦b : ¤H­n¦Û·R¡A¤~¯à·R´¶¤Ñ¤Uªº¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD