1.1.1.1 - 1.1.1.255 Liste Oluşturmak ()

[wkerim]

1.1.1.1
1.1.1.2
.
.
1.1.1.255
1.1.2.1
1.1.2.2
1.1.2.255
....
1.1.3.1
1.1.3.2
..


255 den sonra soldaki bölmeyi bir artiracak

Gibi Bir Listeme Yapmak İstiyorum Bunu Nasıl yapabilirim..

 

[Zeki Gürsoy]

Aşağıdaki kodu yeni bir Excel dosyasında deneyin...

Sub test()
    Dim a%, b%, c%, d%, say&
    Dim maxA%, maxB%, maxC%
    
    maxA = 1
    maxB = 1
    maxC = 3
    
    For a = 1 To maxA
        For b = 1 To maxB
            For c = 1 To maxC
                For d = 1 To 255
                    say = say + 1
                    Cells(say, "a") = a & "." & b & "." & c & "." & d
                Next d
            Next c
        Next b
    Next a
End Sub

 

[wkerim]

Aşağıdaki kodu yeni bir Excel dosyasında deneyin...

Sub test()
    Dim a%, b%, c%, d%, say&
    Dim maxA%, maxB%, maxC%
    
    maxA = 1
    maxB = 1
    maxC = 3
    
    For a = 1 To maxA
        For b = 1 To maxB
            For c = 1 To maxC
                For d = 1 To 255
                    say = say + 1
                    Cells(say, "a") = a & "." & b & "." & c & "." & d
                Next d
            Next c
        Next b
    Next a
End Sub

kod çalişiyor tşk...

a.b.c.d <<------ c ve d 'de çalişiyor bunun a ve b için çalişmasida lazım kurcaladım ama yapamadım... bunu ekyleyebilirmisiniz

 

[Zeki Gürsoy]

maxA, maxB, maxC değişkenlerine dikkat edin.

maxA, birinci grubun sonunu ifade eder. Örneğin, maxA' nın değerini 3 olarak değiştirirseniz birinci grup listeniz en fazla 3 ile biter. Yani "3.x.x.xxx"

maxB ikinci grubun, maxC de üçüncü grubun üst limimitini gösterir.