FC2ブログ

【エクセルVBA(マクロ)】IPアドレス変換

 Private Sub 接続元アドレス変換()
'
'
Dim スラッシュSplit As Variant
Dim ドットSplit As Variant
Dim ホスト数元データ As Integer
Dim ホスト数 As Integer
Dim サブネットマスク As Long
Dim NWaddress As Integer
Dim min As Integer
Dim max As Integer
Dim a
Dim b


    For a = 7 To 26

    If (Cells(a, 4) = "") Then
        Exit For
    End If


    スラッシュSplit = Split(Cells(a, 4).Value, "/")
    ドットSplit = Split(スラッシュSplit(0), ".")


                        ホスト数元データ = 32 - Val(スラッシュSplit(1))
                        ホスト数 = 2 ^ (ホスト数元データ) - 1
                        サブネットマスク = Not (ホスト数)
                        NWaddress = サブネットマスク And ドットSplit(3)
                        min = NWaddress
                        max = NWaddress + ホスト数

Cells(a, 9) = Left(スラッシュSplit(0), Len(スラッシュSplit(0)) - Len(ドットSplit(3)) - 1) & "." & min & "-" & _
           Left(スラッシュSplit(0), Len(スラッシュSplit(0)) - Len(ドットSplit(3)) - 1) & "." & max


Next

End Sub
 
関連記事

コメント

非公開コメント

FC2-Counter (Since 2013/8)