如何根据前一行增加 IP 地址？

Question

首先，我是一个完全的 VBA 程序。我正在学习，因为我们在工作中使用了很多 excel，而且通常这些表格只是基本的，对他们来说没有任何智慧。我正在尝试制作一个简单的宏，它在工作表顶部创建一个新行，然后根据前面的行用一些空白和一些信息填充它。到目前为止一切顺利，但我现在正处于我希望它填充下一个 IP 的地步，它应该从前一行读取。到目前为止，这是我的代码，我正在努力在 Range("G2").Value = 之后填写什么，以使其增加 G3 中的 IP fround。

Sub newloc()
Range("A2").EntireRow.Insert
Range("D2").Value = "Odense C"
Range("F2").Formula = "=F3 + 1"
Range("G2").Value =
Range("H2").Formula = "=H3 + 1"

End Sub

如您所见，代码非常简单，而且我对 VBA 脚本还不太了解，请提供简单明了的答案。最好是我可以复制粘贴的东西，然后对功能进行解释，这样我就可以理解为什么它突然起作用了。

Answer 1

试试这个。它最多计数到 254，然后在下一个时执行“+1”。

Sub newloc()
    Range("A2").EntireRow.Insert
    Range("D2").Value = "Odense C"
    Range("F2").Formula = "=F3 + 1"
    Range("H2").Formula = "=H3 + 1"

    Arr = Split(Range("G3").Value, ".")
    If Arr(3) = 254 Then
        Arr(3) = 1
        If Arr(2) < 254 Then
            Arr(2) = Arr(2) + 1
        Else
            Arr(2) = 1
            If Arr(1) < 254 Then
                Arr(1) = Arr(1) + 1
            Else
                Arr(1) = 1
                If Arr(0) < 254 Then
                    Arr(0) = Arr(0) + 1
                Else
                    MsgBox "Error! No more IP's available"
                End If
            End If
        End If
    Else
        Arr(3) = Arr(3) + 1
    End If

    Range("G2").Value = Join(Arr, ".")


End Sub

在上图中，我编辑了单元格以模拟更大的范围。

Answer 2

在 OP 的进一步规范之后编辑

您可能想要使用此功能：

Optiion Explicit

Function GetNextIPAddress(baseIP As String) As String
    Dim numbersArr As Variant
    Dim iPos As Long, iNum As Long

    numbersArr = Split(baseIP, ".") '<--| get all numbers delimited by a "." from passed string into an array
    For iNum = UBound(numbersArr) To 0 Step -1
        If numbersArr(iNum) <> "254" Then Exit For
    Next iNum

    If iNum = -1 Then
        GetNextIPAddress = "Error"
    Else
        iPos = InStrRev(baseIP, numbersArr(iNum))
        GetNextIPAddress = Left(baseIP, iPos - 1) & numbersArr(iNum) + 1 & Right(baseIP, Len(baseIP) - (iPos + Len(numbersArr(iNum))) + 1)
    End If
End Function

在你的 mnain 代码中被利用如下

Range("G2").Value = GetNextIPAddress(Range("G3").Value)

Answer 3

改变了！

把这个函数：

Function getNextIp(getIp As String) As String
Dim numArr As Variant
numArr = Split(getIp, ".")
If numArr(3) = 255 Then
    If numArr(2) = 255 Then
        If numArr(1) = 255 Then
            getNextIp = (numArr(0) + 1) & "." & "1" & "." & "1" & "." & "1"
        Else
            getNextIp = numArr(0) & "." & (numArr(1) + 1) & "." & "1" & "." & "1"
        End If
    Else
            getNextIp = numArr(0) & "." & numArr(1) & "." & (numArr(2) + 1) & "." & "1"
    End If
Else
            getNextIp = numArr(0) & "." & numArr(1) & "." & numArr(2) & "." & (numArr(3) + 1)
End If
End Function

之后你的代码会是这样的：

Dim IpText As String
Sub newloc()
   Range("A2").EntireRow.Insert
   Range("D2").Value = "Odense C"
   Range("F2").Formula = "=F3 + 1"
   IpText = Range("G3").Value
   Range("G2").Value = getNextIp(IpText)
   Range("H2").Formula = "=H3 + 1"

End Sub