如何通过excel匹配ip地址段

如何通过excel匹配ip地址段,第1张

1、将IP放在A列;

2、使用公式Vookup,括号里选择依次选择A1,你要匹配的区域(绝对引用,可按F4搞定),引用的是匹配区域的第几列,false)

3、将公式下拉复制即可。

Sub 按钮1_Click()

GetMyIP

End Sub

Public Sub GetMyIP()

Dim strComputer As String

Dim objWMI As Object

Dim colIP As Object

Dim IP As Object

Dim i As Integer

Dim LANstr As String, IPstr As String, MACstr As String

strComputer = ""

Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colIP = objWMIExecQuery _

("Select from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")

For Each IP In colIP

  If Not IsNull(IPIPAddress) Then

      For i = LBound(IPIPAddress) To UBound(IPIPAddress)

          LANstr = IPDescription(i)  '网卡名称

          IPstr = IPIPAddress(i)     '网卡IP地址

          MACstr = IPMacAddress      '网卡的MAC地址

          MsgBox "网卡名称:" & LANstr & vbCrLf & "IP地址:" & IPstr & vbCrLf & "MAC地址:" & MACstr, vbInformation, LANstr

      Next

  End If

Next

End Sub

=ROUND(RAND()255,0)&""&ROUND(RAND()255,0)&""&ROUND(RAND()255,0)&""&ROUND(RAND()255,0)

以上就是关于如何通过excel匹配ip地址段全部的内容,包括:如何通过excel匹配ip地址段、ExcelVBA怎么获取IP与mac然后分别赋值给变量、求用Excel中随即函数生成自己想要的IP段内的IP地址列表的具体 *** 作方法等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址:https://54852.com/web/9734159.html

(0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
上一篇 2023-05-01
下一篇2023-05-01

发表评论

登录后才能评论

评论列表(0条)

    保存