Otomatik dizi oluşturma

[mrcylmz_61]

Örneğin
başlangıç 5
bitiş 715
olacak şekilde bu aralıkta ki sayıları otomatik bir dizi oluşturmak istiyorum, kod ile nasıl yapabilirim?

 

[Haluk]

"Dizi" derken, bildiğimiz tek boyutlu "Array" mi?

.

 

[mrcylmz_61]

"Dizi" derken, bildiğimiz tek boyutlu "Array" mi?

.

evet, ama iki boyutlu bir diziye de ihtiyacım var. verdiğim sayılar için 1 er arttırarak dizide ki 1. sütunu dolduracağı, 2. veri sütunu ise bu sayıların 2 katı olacak şekilde. örn,
5 10
6 12
7 14
... ...
715 1430
gibi çoklu bir dizi. ama dediğim gibi hem tek hemde çoklu kod yazarsanız memnun olurum. çok teşekkürler.

 

[Haluk]

1 Boyutlu için örnek;

Sub Test()
    Dim myArr()
    
    For i = 5 To 715
        ReDim Preserve myArr(0 To i - 5)
        myArr(i - 5) = i
    Next
    
    MsgBox IsArray(myArr)
    MsgBox UBound(myArr)
End Sub

.

 

[mrcylmz_61]

1 Boyutlu için örnek;

Sub Test()
    Dim myArr()
   
    For i = 5 To 715
        ReDim Preserve myArr(0 To i - 5)
        myArr(i - 5) = i
    Next
   
    MsgBox IsArray(myArr)
    MsgBox UBound(myArr)
End Sub

.

Teşekkür ederim, çok boyutlu içinde yardımcı olursanız memnun olurum. iyi çalışmalar.

 

[Haluk]

Sub Test2()
    Dim myArr()
    
    For i = 5 To 715
        ReDim Preserve myArr(0 To 1, 0 To i - 5)
        myArr(0, i - 5) = i
        myArr(1, i - 5) = i * 2
    Next
    
    MsgBox IsArray(myArr)
    MsgBox myArr(0, 10) & vbCrLf & myArr(1, 10)
End Sub

.

 

[mrcylmz_61]

Sub Test2()
    Dim myArr()
   
    For i = 5 To 715
        ReDim Preserve myArr(0 To 1, 0 To i - 5)
        myArr(0, i - 5) = i
        myArr(1, i - 5) = i * 2
    Next
   
    MsgBox IsArray(myArr)
    MsgBox myArr(0, 10) & vbCrLf & myArr(1, 10)
End Sub

.

çok teşekkürler

 

[Haluk]

Kolay gelsin....

Bu arada, gereksiz yere mesajlardan alıntı yapmayın çünkü görüntü kirliliği oluyor.

Alttaki kutuya cevabınız yazın, "Cevabı Gönder" butonuna tıklayın sadece...

.