[ 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.
Copyright (C) 2001-2025 by www.elitesecurity.org. All rights reserved.