1- listbox1 den seçim yapıldığında o öğrenciye ait bilgiler listbox2 de listelensin. Listeleme şekli alt alta olacak. Örneğin; listbox1 de metin mert adlı öğrenci seçildi ise onun aldığı kitapların listesi listbox2 de alt alta listelensin. Listeleme aralığı ise dörder sütundur.
H:K
L:O
P:S
..... devamla
D:W ye kadardır.
2- Listbox2 ye aktarılan kitaplardan seçim yapıldığında listbox2 nin hemen altındaki textbox kutularına aktarılsın, ve de buradan değiştirme, silme işlemi yapabilabilsin. listbox2 den nasıl değiştirme ve silme işlemi yapılabilir.
listbox2 de alt alta listelemek için şöyle bir kod buldum.. ama uyarlayamadım.
Dim MyArray(9, 4)
Dim i As Single, j As Single
ListBox2.ColumnCount = 4
ListBox2.RowSource = ""
ListBox2.ColumnWidths = "80;80;80;80"
For i = 0 To 9
j = i * 2 + 1
MyArray(i, 0) = Cells(1, j)
MyArray(i, 1) = Cells(1, j + 1)
Next i
ListBox2.List() = MyArray
H:K
L:O
P:S
..... devamla
D:W ye kadardır.
2- Listbox2 ye aktarılan kitaplardan seçim yapıldığında listbox2 nin hemen altındaki textbox kutularına aktarılsın, ve de buradan değiştirme, silme işlemi yapabilabilsin. listbox2 den nasıl değiştirme ve silme işlemi yapılabilir.
listbox2 de alt alta listelemek için şöyle bir kod buldum.. ama uyarlayamadım.
Dim MyArray(9, 4)
Dim i As Single, j As Single
ListBox2.ColumnCount = 4
ListBox2.RowSource = ""
ListBox2.ColumnWidths = "80;80;80;80"
For i = 0 To 9
j = i * 2 + 1
MyArray(i, 0) = Cells(1, j)
MyArray(i, 1) = Cells(1, j + 1)
Next i
ListBox2.List() = MyArray
