Centar za edukaciju-BiH



#1 27.05.2015 22:01
dex Van mreze
Super Moderator
Registrovan od:23.02.2012
Postovi:625


Predmet:Popunjavanje combo boxa
PreuzmiIzvorni kôd (vbnet):
  1.     Dim list As String
  2.     Dim broj As Integer
  3.     Sheets("Sheet2").Select
  4.     ActiveSheet.Range("A3").Select
  5.    
  6.     ActiveSheet.Range(Selection, Selection.End(xlDown)).Select
  7.    
  8.     broj = Selection.Count + 2
  9.     list = "sheet2!A3:A" & broj
  10.     ComboBox1.ListFillRange = list
  11.     Sheets("Sheet1").Select


Prilozi:
Informacije o tipu datoteke za:zip  Book1.zip
Preuzimanja:363
Velicina datoteke:11.24 KB

Ovaj post je ureden 1 puta. Posljednja izmjena 27.05.2015 22:08 od strane dexxxl. ↑  ↓

#2 28.05.2015 13:22
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,696


Predmet:Re: Popunjavanje combo boxa
hvala na odgovoru. U startu ovo radi meni na nerazuman nacin. To nije do tebe vec do mene. Ja cu sada malo to proucavati pa ako necu razumjeti javicu ti se za pomoc i objasnjenje.
Proucicu malo po internetu:
select range u desno do zadnje celije sa podacima i select range prema dolje do zadnje kucice sa podacima. Zbunjuje me zadnja kucica i range do zadnje kucice isto tako me zbunjuje kada dodamo .adress . To sam istrazivao po internetu pa malo sada proucavam.
U konacnici zahvaljujem na pomoci i javicu se ako zatrebam dodatnu informaciju
zivot je moja domovina.
↑  ↓

#3 28.05.2015 14:26
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Popunjavanje combo boxa
Kod se da objasniti red po red ako ti bude trebalo ne brini.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#4 28.05.2015 14:45
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Popunjavanje combo boxa
Ja neznam jeli bilo kakvo pitanje ali u ovim vecim verzijama exela moze se napraviti lista i na drugi nacin.
Pokusat cu objasniti.

Kliknimo na celiju A1.
kliknimo na tab Data te na data validation.
Kada se otvori dialo prozor u combu allow odaberemo list.
Kliknimo u tekst polje source.
Sada selektujmo nasu listu negdje gdje smo je napisali.
Moze biti i u drugom situ.
Kliknimo sad u na komandni taster OK.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#5 28.05.2015 14:57
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Popunjavanje combo boxa
Moze se ovo napraviti i na ovakav nacin:
PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub CommandButton1_Click()
  2.    ComboBox1.list = Array("podatak1", "Podatak2", "Podatak3", "Podatak4")
  3.  End Sub

Ovo vazi samo ako korisnik nemoze dodavati nove stavke.
Ako treba dodavati onda je kod od @dexxxl mjerodavan a ovaj moj ne pije vode.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#6 29.05.2015 11:55
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,696


Predmet:Re: Popunjavanje combo boxa
jbg, radi ovo od dexxxl ali kada ja stavim u svoj primjer onda mi javi gresku u liniji:
ComboBox1.ListFillRange = list
greska je iz razloga , a siguran sam u to, zato sto mi je combobox1 smjesten na userform1, a ne na sheet. Dakle koristim formu na kojoj je combobox i treba ga popunjavati sa dva razlicita sheeta
nakon tocke combobox1. nudi mi
.list
.listCount
.listIndex
.listRows
.listStyle

nema .ListFillRange
onda sam probao ovo:
ComboBox1.list = Array(list)
pa sam dobio ovo u combobox1:
"sheet2!A3:A"

ps. znam da cete se sada smijati tamo za svojim racunalom i to prepricavati svojim kompjuterskim znancima al bas me briga. hocu nauciti i nije me sram.
zivot je moja domovina.
↑  ↓

#7 29.05.2015 12:18
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Postovi:1,828


Predmet:Re: Popunjavanje combo boxa
kod nas se kaze NE J**E PAMETNI VEC UPORNI.
Izvinite za tockice ali nisam znao kako da vam napisem ovo drugacije.
Ovaj post je ureden 1 puta. Posljednja izmjena 29.05.2015 12:19 od strane Gjoreski. ↑  ↓

#8 29.05.2015 12:29
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Postovi:10,611


Predmet:Re: Popunjavanje combo boxa
Otkuda ti to da cemo se smijati.
Ne desava se to samo tebi. Toliko da znas da ne raspravljamo o tome.
Samo si nam trebao napisati da je cobo na formi.
Idemo dalje.
Evo @dexxxl kod samo prepravljen za formu.
Na dogadjaj on enter forme stavi ovaj kod:

PreuzmiIzvorni kôd (Visual Basic):
  1. Private Sub ComboBox1_Enter()
  2.     Dim rang As Range
  3.     Dim Celija
  4.    
  5.     Sheets("Sheet2").Select
  6.     ActiveSheet.Range("A3").Select
  7.    
  8.     ActiveSheet.Range(Selection, Selection.End(xlDown)).Select
  9.     Set rang = Selection
  10.     For Each Celija In rang.Cells
  11.     ComboBox1.AddItem Celija
  12.     Next Celija
  13. End Sub

Ovaj kod ide na modul forme.
Ako ne uspijes pisi.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.
↑  ↓

#9 29.05.2015 13:14
Avko Van mreze
Administrator
Registrovan od:28.05.2014
Postovi:4,696


Predmet:Re: Popunjavanje combo boxa
ćek, ćek, ćekaj Å¡ta ti ono Private Sub ComboBox1_Enter()
e to moram isto prouciti ovaj enter mi je zanimljiv
u medjuvremenu ja nesto napravio i to radi:
PreuzmiIzvorni kôd (Visual Basic):
  1.     comboBox1.Clear 'ovo da izbrise item iz comboboxa ako ih je bilo
  2.    Dim LastRow As Long 'zadnji red
  3.    Dim rng As Range 'range
  4.    Dim ws As Worksheet 'ovo mi se svida nemoram pisati svaki put worksheet
  5.    
  6.     Set ws = Worksheets("ImeList")
  7.     ws.Select 'vidis napisem samo ws umjesto worksheet
  8.    With ws
  9.         LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row 'nade zadnji upotrebljeni red u stupcu A
  10.        Set rng = Range("A3:A" & LastRow) ' rangira u stupcu A od A3 do zadnjeg reda
  11.        Me.combobox1.list = rng.Cells.Value ' stavi u combobox na formi (Me) sve vrijednosti ranga
  12.    End With
  13.     Set ws = Worksheets("List1")
  14.     ws.Select 'vrati me na prvi list
sada cu isprobati od zxz, kod zato jer ima onu "famoznu" petlju For Each koja mi se svida, misteriozna je, a sigurno je kod manji i brze radi.
htio sam ja da uopce program ne upotrebljava Select ali izgleda da nemoze to. Trazio sam razliku izmedju Select i Activate i kazu(google prevoditelj):

Activate :čine Navedeni list aktivnu list, a može se primijeniti samo na jednom listu
Select: omogućiti izboru proÅ¡irenje trenutno odabrane listove uključiti određeni list, npr
Sheets(Array("Sheet3", "Sheet2")).Select
eto hvala na trudu i vama i meni i hvala gjoreskom na smijehu
zivot je moja domovina.
Ovaj post je ureden 1 puta. Posljednja izmjena 29.05.2015 13:17 od strane Avko. ↑  ↓

#10 29.05.2015 14:40
dex Van mreze
Super Moderator
Registrovan od:23.02.2012
Postovi:625


Predmet:Re: Popunjavanje combo boxa
Citat:

ćek, ćek, ćekaj Å¡ta ti ono Private Sub ComboBox1_Enter()
e to moram isto prouciti ovaj enter mi je zanimljiv

U VBA editoru odeš na tvoju user formu

Desni klik na komponentu, pa View Code

Otvara ti se prozor za unos koda. U gornjem desnom uglu imaš kombo iz koga biraš
Na koji dogadjaj će da se aktivira kod.
↑  ↓

Stranice (2):1,2


Sva vremena su GMT +01:00. Trenutno vrijeme: 10: 47 am.