[ steve585 @ 02.11.2007. 17:37 ] @
u exel tabeli imam podatke sljedeceg izgleda:

Naziv Status
Stevan 1
Stevan_Stevan 2
Stevan Stevan 3
Stevan Stevan 2 Stevan 4

Na userform dodao sam Listbox koji ucitava podatke iz navedene tabele.
Ovo je kod:

Code:

Private Sub UserForm_Click()
i = 1
Do While Sheets(1).Cells(i, 1) <> ""
   i = i + 1
     DS1 = Sheets(1).Cells(i, 1)
     DS2 = Sheets(1).Cells(i, 2)
     
     DS = DS1 & vbTab & vbTab & vbTab & vbTab & DS2
       ListBox1.AddItem DS
Loop
End Sub


E sada kada se izvsi ucitavanje status podaci su rastrkani po Listbox-u (vidi sliku u prilogu), a zelio bih da budu u jednom stupcu.

Sta bi trebalo napraviti da Status podaci budu u jednom stupcu u Listbox-u?
[ BiF @ 02.11.2007. 19:25 ] @
jedno resenje je da koristite fontove fiksne sirine (npr courier) drugo resenje je da npr umesto listbox koristite msflexgrid
[ steve585 @ 02.11.2007. 20:10 ] @
Flex ne dolazi u obzir, radi se o VBA aplikaciji, tamo nisam nikada koristio Flex objekt.

Moze li pojasnjenje vezano za fontove.
[ steve585 @ 02.11.2007. 20:45 ] @
Imam rjesenje

Code:

i = 1
Do While Sheets(1).Cells(i, 1) <> ""
   i = i + 1
     DS1 = Sheets(1).Cells(i, 1)
     UserForm1.TextBox1.Text = DS1
     Duzina = TextBox1.TextLength
     Rezervirano = 20
     Razlika = Rezervirano - Duzina
     For j = 0 To Razlika
        UserForm1.TextBox1.Text = UserForm1.TextBox1 & "x"
     Next j
     DS1 = UserForm1.TextBox1.Text
     DS2 = Sheets(1).Cells(i, 2)
     
     DS = DS1 & vbTab & vbTab & vbTab & vbTab & DS2
       ListBox1.Font = "Courier"
       ListBox1.AddItem DS
Loop
[ izonic @ 11.11.2007. 17:28 ] @
Private Sub UserForm_Click()
dim Ds1 as string *15
dim Ds2 as string *15
i = 1
Do While Sheets(1).Cells(i, 1) <> ""
i = i + 1
RSet DS1 = Sheets(1).Cells(i, 1)
RSet DS2 = Sheets(1).Cells(i, 2)
'desno za lijevo Lset
DS = DS1 & DS2
ListBox1.AddItem DS
Loop
End Sub

[ steve585 @ 12.11.2007. 15:44 ] @
Idjea stoji, ali problem je sto i jedna i druga kolona trebaju biti poravnate na lijevo., a ne samo jedna od njih.