Srodne teme

14.04.2024. Re: Gde je Kejt? (samo pogrešni odgovori)
28.05.2004. Pravljenje Excel plugin-a u Delphi-ju
08.01.2005. phpForms v1.0.3 cnk Null DGT
02.04.2011. Problem sa Excelom...
25.03.2013. [Excel] Unos datuma
03.02.2006. Kako pozvati php fajl koji obradjuje podatke iz f..
08.02.2006. Kako da iz forme kopiram $username u neki drugi f..
21.03.2006. [Excel] Kako onemoguciti Excel da brise 0 na poce..
18.12.2006. Formular u okviru formulara. Da li je moguce?
04.03.2007. VB.NET i Excel 2000 izvestaji problem

Navigacija

Brisanje liste

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

[Excel] User form pomocu VB

[es] :: Visual Basic 6 :: [Excel] User form pomocu VB

[ Pregleda: 7896 | Odgovora: 14 ] > FB > Twit

Autor

iognjen
><>>>>>><<

Član broj: 23903
Poruke: 37
80.74.160.*

Profil

[Excel] User form pomocu VB

^{28.04.2007. u 17:38 - pre 206 meseci}

Pozdrav,

Da li bi neko mogao da mi objasni na nekom jednostavnom primeru pravljenje user forma uz pomoc VB. Znaci postupno, šta se prvo radi. Da li se nacrta oblik forme, a potom piše kod? Hteo bih da napravim User Form pomoću kojeg ću unositi podatke u tabelu excela red po red, naravno u više kolona. Ali za početak neka to bude primer za jednu. Nadam se da ste razumeli moj problem. U svakom slučaju unapred se zahvaljujem!!

Odgovor na temu

steve585
Stevan Stanić
Project Manager
Zagreb

Član broj: 131815
Poruke: 281
212.91.115.*

+1 Profil

Re: [Excel] User form pomocu VB

^{29.04.2007. u 10:59 - pre 206 meseci}

Ovo je moguće napraviti u samom Excel-u. Otvori excel->iz kontrolne trake izaberi Visual Basic tools->kreiraj jedno komandno dugme na Sheet1->klikni na Visual Basic Editor, te upiši kod:

Code:
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

U Visual Basic Editor-u klikni na Insert->UserForm
Na UserForm napravi npr. dva TextBox-a (TextBox1 i TextBox2) i CommandButton (cmdUnos).

Još je potrebno izvršiti unos koda za komadno dugme cmdUnos

Code:
Private Sub cmdUnos_Click()
Sheet1.Cells(2,2)=TextBox1.Text
Sheet1.Cells(2,3)=TextBox2.Text
End Sub

_{Edit : Dodati code tagovi}

_{[Ovu poruku je menjao Marko_L dana 09.05.2007. u 21:43 GMT+1]}

steve585

Odgovor na temu

iognjen
><>>>>>><<

Član broj: 23903
Poruke: 37
*.dialup.neobee.net.

Profil

Re: [Excel] User form pomocu VB

^{29.04.2007. u 21:36 - pre 206 meseci}

Poz,

Ovo je super, hvala steve585. Ali ja bih išao još malo dalje, treba mi prelazak u idući red sa brisanjem stanja formulara. Što će reći u obrazac unesem npr brojeve 1 i 2, stisnem ok on unese to u red, ja potom pritisnem taster npr clear form i unosim podatke za novi red itd....

Odgovor na temu

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

Član broj: 25683
Poruke: 2268
212.200.27.*

Sajt: www.gowi.rs

+109 Profil

Re: [Excel] User form pomocu VB

^{30.04.2007. u 13:24 - pre 206 meseci}

Tutorial za rad sa formama u Excelu http://www.exceltip.com/st/Cre...ms_in_Microsoft_Excel/629.html

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu

steve585
Stevan Stanić
Project Manager
Zagreb

Član broj: 131815
Poruke: 281
*.net.t-com.hr.

+1 Profil

Re: [Excel] User form pomocu VB

^{06.05.2007. u 09:31 - pre 206 meseci}

Da li ti je tutorijal pomogao da središ problem?

steve585

Odgovor na temu

iognjen
><>>>>>><<

Član broj: 23903
Poruke: 37
80.74.160.*

Profil

Re: [Excel] User form pomocu VB

^{06.05.2007. u 21:11 - pre 206 meseci}

http://static.elitesecurity.org/coolsquare.gif

@steve 585

Hvala na pitanju, ovaj primer je nesto sto liči na rešenje mog problema, samo što je to celina koju moram da skontam deo po deo. Meni je bilo mnogo lakše uz onaj tvoj primer da shvatim kako to radi. Pokušavam da nađem još neke primere na netu pa ih polako raskrckavam. U svakom slučaju nastavak tečaja koji si ti započeo je dobrodošao, so if you wish to continue ....

U svakom slučaju hvala!!!

Odgovor na temu

steve585
Stevan Stanić
Project Manager
Zagreb

Član broj: 131815
Poruke: 281
*.net.t-com.hr.

+1 Profil

Re: [Excel] User form pomocu VB

^{06.05.2007. u 22:58 - pre 206 meseci}

Da bi unosi podatke red po red potrebno je da ispitaš koji je posljednji red u koji je upisana određena vrijednost. Za ovo ti je najbolje odrediti jednu kolonu u koju će se unositi vrijednost, nešto kao autonumber. Dakle svaki put kada se klikne na dugme cmdUnos izvršiti će se unos vrijednosti u autonumber ćeliju.

Za ovo ti je potreban sljedeći kod:

Pretpostavimo da je kolona A rezervirana za unos autonber vrijednosti, te da si u ćeliju ("A1") unjeo naziv kolone "AutoNum"

Code:
Private sub cmdUnos ()
***********************************************
//Potrebno je ispitati u koliko redova je već napravljen unos
***********************************************
i=1
  Do while sheet1.cells(i, 1)<>""
     i=i+1
  Loop

**********************************************************
//Sada kada znaš koliko redova posjeduje unos možeš pristupiti unosu u ćelije
**********************************************************
Sheet1.cells(i, 2)=Textbox1.Text
Sheet1.cells(i,3)=Textbox2.Text
End Sub

Kao što vidiš bitno ti je naći vrijednost promjenjive i.

Drugi način za ovo je da kreiraš jedan npr. hidden TextBox (Name=hidtxt) čija će inicijalna vrijednost biti 1.
U tom slučaju kod za komandno dugme unos izgledao bi ovako:

Code:
Private sub cmdUnos()
i=val(hidtxt)
Sheet1.cells(i+1,2)=Textbox1.Text
Sheet1.cells(i+1,3)=Textbox2.Text
j=i+1
hidtxt.Text=j
End Sub

To je to. Ti sad vidi šta ti više odgovara.

_{Edit : Dodati code tagovi}

_{[Ovu poruku je menjao Marko_L dana 09.05.2007. u 21:44 GMT+1]}

steve585

Odgovor na temu

planerso
planerso
SERBIA

Član broj: 135977
Poruke: 59
*.66.eunet.yu.

Profil

Re: [Excel] User form pomocu VB

^{09.05.2007. u 05:53 - pre 206 meseci}

Pozdrav,

Kako u User Fomu postaviti dva Combobox-a, prvi i drugi, tako da kada se odabere neka stavka u prvom, odmah se menja ponuda izbora u drugom u zavisnosti od izabrane stavke u prvom. Npr u prvom izaberem opštinu, a u drugom dobijem samo izbor mesta koja pripadaju izabranoj opštini.

Hvala!

Odgovor na temu

steve585
Stevan Stanić
Project Manager
Zagreb

Član broj: 131815
Poruke: 281
212.91.117.*

+1 Profil

Re: [Excel] User form pomocu VB

^{09.05.2007. u 19:18 - pre 206 meseci}

Možeš koristiti Select Case za granjanje.

Npr.

Sam si rekao da imaš dva ComboBox-a.

Code:
Private Sub ComboBox1_Click()

Select Case ComboBox1.ListIndex
  Case 0
    With ComboBox2
      .AddItem "Grad1"
      .AddItem "Grad2"
      .AddItem "Grad3"
    End With
   Case 1
     With ComboBox2
       .AddItem "Klub1"
       .AddItem "Klub2"
     End With
End Select
End Sub

Private Sub ComboBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
ComboBox1.Clear
ComboBox2.Clear

ComboBox1.AddItem "Opstina"
ComboBox1.AddItem "Klub"

End Sub

_{Edit : Dodati code tagovi}

_{[Ovu poruku je menjao Marko_L dana 09.05.2007. u 21:42 GMT+1]}

steve585

Odgovor na temu

planerso
planerso
SERBIA

Član broj: 135977
Poruke: 59
*.108.eunet.yu.

Profil

Re: [Excel] User form pomocu VB

^{10.05.2007. u 08:35 - pre 206 meseci}

Pozdrav,

zahvaljujem na trudu, ali mi je potrebna pomoc. Naime, ja sam pravio combobox-ove tako sto sam u tabeli u excelu otkucao sve clanove niza, obelezio sam ih i dao ime tom nizu za obe liste. Te nazive sam stavio u RowSource svakog Comboboxa, ovaj nacin koji si mi poslao u ovom slucaju ne funkcionise. Sta dalje?
Ako mozes da mi das resenje da se uklopis u ovu situaciju u kojoj sam, ili mi preporuci nacin na koji da pripremim Comboboxove da bi funkcionisalo ovo tvoj vec ponudjeno resenje.

Hvala.

Odgovor na temu

steve585
Stevan Stanić
Project Manager
Zagreb

Član broj: 131815
Poruke: 281
62.159.241.*

+1 Profil

Re: [Excel] User form pomocu VB

^{10.05.2007. u 10:02 - pre 206 meseci}

Molim te pošalji screenshot što si dosada napravio.

steve585

Odgovor na temu

planerso
planerso
SERBIA

Član broj: 135977
Poruke: 59
*.107.eunet.yu.

Profil

Re: [Excel] User form pomocu VB

^{10.05.2007. u 12:25 - pre 206 meseci}

Evo ga ceo fajl, user form je u visual basicu, jos ga nisam linkovao komandnim dugmetom. Pored ostalog imam problem i sa tasterom clear, koji bas i nece da radi. Ako mozes koriguj taj deo. Unapred se zahvaljujem. Liste za Combobox su kucane belim tekstom tako da se nevide odmah, ali ja mislim da ces ih lako naci. Ako jos nesto treba javi. Hvala.

_{[Ovu poruku je menjao planerso dana 10.05.2007. u 13:35 GMT+1]}

Prikačeni fajlovi

VB izvodjacki.xls

VB izvodjacki.xls - 86k

Odgovor na temu

steve585
Stevan Stanić
Project Manager
Zagreb

Član broj: 131815
Poruke: 281
212.15.185.*

+1 Profil

Re: [Excel] User form pomocu VB

^{10.05.2007. u 19:28 - pre 206 meseci}

OK! Ono što si želio trebalo bi da sada radi. Naravno napravio sam određene promjene i to:

1)
Kreirane su četiri kolone Apatin, Kozara, Subotica, Odžaci. U kolonu Apatin ubacio sam naselja iz gazdinstva Apatin, u kolonu Kozara ubacio sam naselja iz gazdinstva Kozara itd... (Bar mislim da sam ih dobro razvrstao, ti svakako provjeri i razvrstaj to na pravi način) Zašto? Prirodno se nameće da su gazdinstva domene naselja, te ih tako treba postaviti lakše je kasnije manipulirati podacima.

2) Za drugi Combo izbacio sam RowSource, jednostavno nije bio više potreban

3) Ovaj kod je dodan na drugi ComboBox:

Private Sub gj_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
gj.Clear

Select Case uprava.ListIndex
Case 0
i = 1
Do While Sheet4.Cells(i, 134) <> ""
i = i + 1
Naselja = Sheet4.Cells(i, 134)

gj.AddItem Naselja
Loop
Case 1
i = 1
Do While Sheet4.Cells(i, 135) <> ""
i = i + 1
Naselja = Sheet4.Cells(i, 135)
gj.AddItem Naselja
Loop
Case 2
i = 1
Do While Sheet4.Cells(i, 136) <> ""
i = i + 1
Naselja = Sheet4.Cells(i, 136)
gj.AddItem Naselja
Loop
Case 3
i = 1
Do While Sheet4.Cells(i, 137) <> ""
i = i + 1
Naselja = Sheet4.Cells(i, 137)
gj.AddItem Naselja
Loop
End Select
End Sub

4) Brisanje ti nije išlo zato što si napisao:
"Textbox" umjesto "TextBox" malo b, veliko B
"Combobox" umjesto "ComboBox" malo b, veliko B

I to je to. Ovo sam probao i sada radi. Pozdrav!

Poslati ću i fajl u novoj poruci

steve585

Prikačeni fajlovi

VB izvodjacki.xls

VB izvodjacki.xls - 91.5k

Odgovor na temu

planerso
planerso
SERBIA

Član broj: 135977
Poruke: 59
*.76.eunet.yu.

Profil

Re: [Excel] User form pomocu VB

^{11.05.2007. u 06:01 - pre 206 meseci}

Svaka cast na trudu i vremenu, mnogo hvala. Ovo mi je bas pomoglo. Ja cu i dalje nastaviti sa radom, pa ako bude jos pitanja znam kome cu da se obratim. Jos jedno hvala Steve585.

Odgovor na temu

3okc
Χoᴘᴦoѡ

Član broj: 811
Poruke: 1319

Jabber: 3okc@elitesecurity.org

+116 Profil

Re: [Excel] User form pomocu VB

^{15.07.2007. u 17:24 - pre 204 meseci}

Citat:

[Excel] User form pomocu VB 28.04.2007. u 18:38

Pozdrav,

Da li bi neko mogao da mi objasni na nekom jednostavnom primeru pravljenje user forma uz pomoc VB. Znaci postupno, šta se prvo radi. Da li se nacrta oblik forme, a potom piše kod? Hteo bih da napravim User Form pomoću kojeg ću unositi podatke u tabelu excela red po red, naravno u više kolona. Ali za početak neka to bude primer za jednu. Nadam se da ste razumeli moj problem. U svakom slučaju unapred se zahvaljujem!!

Citat:

Re: [Excel] User form pomocu VB 29.04.2007. u 11:59

Ovo je moguće napraviti u samom Excel-u. Otvori excel->iz kontrolne trake izaberi Visual Basic tools->kreiraj jedno komandno dugme na Sheet1->klikni na Visual Basic Editor, te upiši kod:

Ne bih da "kvarim žurku".. ;-)
ali ako već nije neophodno pisati rešenje u VB, Excel već ima ovaj alat, zove se Data Form.

Iz menija Data klikneš na Form..., i ako već imaš tabelu sa podacima - sve lepo radi. U slučaju da krećeš od nule, pre nego što ga aktiviraš moraš kreirati zaglavlja tabele i kursor ti mora biti "u blizini" zaglavlja (znači na samoj ćeliji ili ne više od 1 ćelije izvan opsega zaglavlja), odgovoriš na pitanje sa YES (hoćeš da se koristi to zaglavlje) i možeš da počneš sa unosom.

Postoji i mogućnost brze pretrage/filtriranja unetih podataka u odnosu na jedan ili više poznatih.

Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!

Odgovor na temu

[es] :: Visual Basic 6 :: [Excel] User form pomocu VB

[ Pregleda: 7896 | Odgovora: 14 ] > FB > Twit

Srodne teme

14.04.2024. Re: Gde je Kejt? (samo pogrešni odgovori)
28.05.2004. Pravljenje Excel plugin-a u Delphi-ju
08.01.2005. phpForms v1.0.3 cnk Null DGT
02.04.2011. Problem sa Excelom...
25.03.2013. [Excel] Unos datuma
03.02.2006. Kako pozvati php fajl koji obradjuje podatke iz f..
08.02.2006. Kako da iz forme kopiram $username u neki drugi f..
21.03.2006. [Excel] Kako onemoguciti Excel da brise 0 na poce..
18.12.2006. Formular u okviru formulara. Da li je moguce?
04.03.2007. VB.NET i Excel 2000 izvestaji problem

Navigacija

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