Listbox1.AddItem poravnanje

Listbox1.AddItem poravnanje 02.11.2007. u 18:37 · pre 231 mesec #1

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?

Potpis

steve585

DS1.gif5.21k

Re: Listbox1.AddItem poravnanje 02.11.2007. u 20:25 · pre 231 mesec #2

jedno resenje je da koristite fontove fiksne sirine (npr courier) drugo resenje je da npr umesto listbox koristite msflexgrid

Potpis

Nijedan nepušač još nije preživeo.

Re: Listbox1.AddItem poravnanje 02.11.2007. u 21:10 · pre 231 mesec #3

Flex ne dolazi u obzir, radi se o VBA aplikaciji, tamo nisam nikada koristio Flex objekt.

Moze li pojasnjenje vezano za fontove.

Potpis

steve585

Re: Listbox1.AddItem poravnanje 02.11.2007. u 21:45 · pre 231 mesec #4

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

Potpis

steve585

Re: Listbox1.AddItem poravnanje 11.11.2007. u 18:28 · pre 230 meseci #5

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

Potpis

zxz

Re: Listbox1.AddItem poravnanje 12.11.2007. u 16:44 · pre 230 meseci #6

Idjea stoji, ali problem je sto i jedna i druga kolona trebaju biti poravnate na lijevo., a ne samo jedna od njih.

Potpis

steve585

Forum kao aplikacija na telefonu

Srodne teme