üç elamanlı diziler nasıl olmalı (array)

[hsayar]

aslında nasıl anlatacğımada tam olarak bilmiyorum dilim döndüğünce anlatayım

arrElm(0) = (45, ahmet , kara)
arrElm(1) = (48, mehmet, atıl)
.............
şeklinde gidiyor şeklinde diziye alıp

combobox.additem arrelm listesini nasıl eklemeliyim
yalnız dizideki her elaman ayrı kolonda gözükecek (rowsource gibi)

doğrumu yazdım yanlışmı onuda bilmiyorum

 

[kulomer46]

Üç elemanlı dizi için,
arrElm(n1,n2,n3) = (45, ahmet , kara)

burada n1, n2 ve n3 rakamları birbirinden farklı olabilir. Bu n1, n2 ve n3 rakamları, 3 boyutlu dizimizin her boyutu için uzunluklarını ifade eder.

arrElm(0,0,0) = (45, ahmet , kara)
arrElm(0,0,1) = (48, mehmet, atıl)
arrElm(0,0,2) = (49, ali , ak)
arrElm(0,0,3) = (50, mehmetali, atılım)

Dört elemanlı dizi için,
arrElm(n1,n2,n3,n4) = (45, ahmet , kara,ömer)

Bu n1, n2, n3 ve n4 rakamları, 4 boyutlu dizimizin her boyutu için uzunluklarını ifade eder.

arrElm(0,0,0,1) = (45, ahmet , kara, atl&#305
arrElm(0,0,1,1) = (48, mehmet, atıl, mehmet)

Sonuç olarak diziler çok boyutlu olabilir. Ve her boyutun eleman sayısı farklı olarak belirlenebilir..

 

[hsayar]

teşekkürler hocam deneyelim....

 

[Zeki Gürsoy]

3 sütun ve 4 satır dizi bu da olabilir.

arr(3, 4)

 

[hsayar]

hocam yapmaya çalışıyorum ama beceremiyorum

mesala sayfa1 in
a,c,g,k sütunlarını
a nın son satırına kadar diziye hangi kodlar ile almalıyız tıkandım.

 

[kulomer46]

Aşağıdaki kod mantığı işini görür.. Belirttiğin excel sütunlarındaki değerleri diziye alıyor.. Ve mesaj kutusunda dizi hakkında bilgiler görüntüleniyor..

Sub aktar5()
Dim son, dizi()
son = Cells(65000, 1).End(xlUp).Row
ReDim dizi(son, 4)
For i = 1 To son
dizi(i, 1) = Cells(i, 1)
dizi(i, 2) = Cells(i, 3)
dizi(i, 3) = Cells(i, 7)
dizi(i, 4) = Cells(i, 11)
Next
MsgBox "Dizimiz 2 boyutludur.1. boyutu " & son & " elemanlı, 2. boyutu 4 elemanlıdır"
For i = 1 To son
For j = 1 To 4
MsgBox "Dizi(" & i & "," & j & ") = " & dizi(i, j)
Next
Next

End Sub

 

[kulomer46]

combobox1 e verilerini aktarmak içinde aşağıdaki kodları kullan..

Private Sub CommandButton1_Click()
ComboBox1.Clear
For i = 1 To 5
ComboBox1.AddItem "eee"
Next

For i = 1 To 5
ComboBox1.List(i - 1) = Cells(i, 1)
Next


For i = 1 To 5

ComboBox1.List(i - 1, 0) = Cells(i, 1)
ComboBox1.List(i - 1, 1) = Cells(i, 3)
ComboBox1.List(i - 1, 2) = Cells(i, 7)
ComboBox1.List(i - 1, 3) = Cells(i, 11)

Next


End Sub

 

[Haluk]

3 Boyutlu diziler için benden de iki alternatif:

Not: 2nci alternatif bence gayet başarılı bir yöntemdir.

.

 

[hsayar]

teşekkür ederim hoca sonuca ulaştım ama sizin örenmkleriniz her zamana benim için değerlidir.
http://www.excel.web.tr/showthread.php?t=44164

 

[ahmett46]

Tşk Hocam
işime yaradı ama bunu sadece combo içinde göstermemiz mümkün mü?

 

[hsayar]

9 mesajda verdiğim link userform initaslize comboya üç elaman alır

 

[ahmett46]

hocam tşk ler ama ben acemiyim 8 mesajdaki eklenmiş dosyada dğişiklik yapamazmısınız?

 

[hsayar]

siz bir örnek dosya eklerseniz comboda hangi satırlar hangi düzende gösterilecek bakarız
veriler açık çalışma kitabındanmı
yoksa kapalı çalkışma kitabındanmı ( ADODB.Connectiondan)
eğer kapalı kitap ise inceleyiniz;
http://www.excel.web.tr/showpost.php?p=239701&postcount=4
alınacak
bahsediyoruz

 

[ahmett46]

dosya ektedir

 

[hsayar]

hocam yanlış nalamadıysam siz

a1 = aaaa bbbb
a2 = cccc dddd eeee
...................
ise
comboboxta
sütun1/sütun/2sütun3
aaa / bbbb/ ...
ccc / dddd / eeee
yani comboada x hücresini parçalamak istiyorsunuz
ben çözüm getiremeyebilirim eğer öyle ise