Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

EXCEL-Ceo red iz sheeta kao Lst1.AddItem

[es] :: Office :: Excel :: EXCEL-Ceo red iz sheeta kao Lst1.AddItem

[ Pregleda: 1830 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Å tampanje RSS

neptuncokg
Predrag M
racunovodja
Kragujevac

Član broj: 230353
Poruke: 326
*.dynamic.isp.telekom.rs.



+9 Profil

icon EXCEL-Ceo red iz sheeta kao Lst1.AddItem31.05.2010. u 03:47 - pre 137 meseci
Pokusavam da dodam stavku u ListBox, i to tako da ceo jedan red iz sheeta bude AddItem. LisBox ima 15 kolona, i u sheetu ima 15 kolona. Ovaj kod ne prolazi:
P = Sheets("AAA").Rows(101) '101. red u sheetu AAA
R = lst1.ListCount - 1 'naredni red u LST
lst1.List(R, 0) = p ' naredni red, 1. kolona

Jedino upise ceo red u sve kolone (bas onako kako ja hocu) kad zadam:

lst1.list = P , ali tada prvo obrise ceo lst, sve redove, pa upise novi red pod indexom 1

A i tada mi brojeve iz sheeta upise kao "0", iako su u sheetu "0.00". !

Ako idem preko AddItem metode, onda upise samo podatak u prvu (nultu) kolonu. Zaista ne znam kako ovo da resim. Hvala unapred.
 
Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2195
*.wimax.verat.net.

Sajt: www.gowi.rs


+96 Profil

icon Re: EXCEL-Ceo red iz sheeta kao Lst1.AddItem01.06.2010. u 08:17 - pre 137 meseci
AddItem metoda dodaje prazan red u listu, ali kao što si primetio i kako piše u helpu, AddItem upisuje vrednost samo u prvu kolonu. Za ListBox (ComboBox) sa više kolona prvo pozovi AddItem da dobiješ novu stavku, a onda dodeli vrednosti kolonama u listbox-u koristeći svojstva List ili Column. Neka je rw broj reda koji dodaješ u listu, a clLast poslednja kolona iz reda koja treba da se doda u listbox-u

Code:

  Me.ListBox1.AddItem sh.Cells(rw, 1).Text ' Nova stavka u listi
  For cl = 1 To clLast - 1                         ' Popunjavanje ostalih kolona za stavku
     Me.ListBox1.Column(cl, Me.ListBox1.ListCount - 1) = sh.Cells(rw, cl + 1).Text
  Next cl
  rw = rw + 1


Obrati pažnju da indeksi u Listbox kontroli počinju od 0, a ne kao na radnom listu od 1. Zato ovo +1 i -1
Nije to loše Rembrante, samo što ne bi dodao još malo boje?
Prikačeni fajlovi
 
Odgovor na temu

neptuncokg
Predrag M
racunovodja
Kragujevac

Član broj: 230353
Poruke: 326
*.dynamic.isp.telekom.rs.



+9 Profil

icon Re: EXCEL-Ceo red iz sheeta kao Lst1.AddItem01.06.2010. u 10:35 - pre 137 meseci
Mislim da sam razumeo. Na zalost, kod mene prijavljuje gresku u kodu, kad pokusam da odradim proceduru. Pozdrav i hvala.
Prikačeni fajlovi
 
Odgovor na temu

FOX028
Visoka tehnicka skola strukovnih studija
Kosovska Mitrovica

Član broj: 258986
Poruke: 847

Sajt: https://www.facebook.com/..


+47 Profil

icon Re: EXCEL-Ceo red iz sheeta kao Lst1.AddItem01.06.2010. u 10:58 - pre 137 meseci
kod mene radi, ali tek kad sam zamenio umesto 1 stavio sam 0, verovatno zato sto index pocinje od 0 a index 1 ne postoji.

Me.ListBox1.ListIndex = 0
 
Odgovor na temu

neptuncokg
Predrag M
racunovodja
Kragujevac

Član broj: 230353
Poruke: 326
*.dynamic.isp.telekom.rs.



+9 Profil

icon Re: EXCEL-Ceo red iz sheeta kao Lst1.AddItem01.06.2010. u 11:15 - pre 137 meseci
I kod mene - to je to. Hvala
 
Odgovor na temu

[es] :: Office :: Excel :: EXCEL-Ceo red iz sheeta kao Lst1.AddItem

[ Pregleda: 1830 | Odgovora: 4 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.