平一个单元格

嗨，伙计们，我一直有麻烦，使一个活动单元格ping和输出的结果我有一个整列的代码，但我想创build一个button，只做一个选定的单元格，并使其工作在相同的方式，请任何人都可以帮助我 ？ 这是我在网上find的代码，我不确定如何修改它的一个单元格，我已经尝试了无数次没有成功…

Function GetPingResult(checkip) Dim objPing As Object Dim STATUS As Object Dim Result1 As String Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}"). _ ExecQuery("Select * from Win32_PingStatus Where Address = '" & checkip & "'") For Each objStatus In objPing Select Case objStatus.statuscode Case 0: Result1 = "ONLINE" Case Else: Result1 = "OFFLINE" End Select GetPingResult = Result1 Next Set objPing = Nothing End Function Sub GetIPStatus() Dim Cell As Range Dim IPRANGE As Range Dim Result As String Dim wks As Worksheet Set wks = Worksheets("Sheet1") Set IPRANGE = wks.Range("B3") Set RngEnd = wks.Cells(Rows.Count, IPRANGE.Column).End(xlUp) Set IPRANGE = IIf(RngEnd.Row < IPRANGE.Row, IPRANGE, wks.Range(IPRANGE, RngEnd)) For Each Cell In IPRANGE Result = GetPingResult(Cell) Cell.Offset(0, 1) = Result Next Cell End Sub ------------------------------------ I tried this: Sub PingSelectedCell() Dim Cell As String ActiveCell.Select Cell = GetPingResult(ActiveCell.Value) Result = GetPingResult(Cell) ActiveCell.Offset(0, 1) = Result End Sub 

但它只是不断离线，我不知道我失踪了什么？

Answer 1

 Cell = GetPingResult(ActiveCell.Value) Result = GetPingResult(Cell) 

您只需要一条语句：

 Result = GetPingResult(ActiveCell.Value) 

然后：

 ActiveCell.Offset(0, 1).Value = Result 

Answer 2

非常感谢你的工作！

 Sub PingSelectedCell() Dim Cell As String Result = GetPingResult(ActiveCell.Value) ActiveCell.Offset(0, 1).Value = Result End Sub