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

Molim pomoć oko pisanja makroa

[es] :: Office :: Excel :: Molim pomoć oko pisanja makroa

[ Pregleda: 2952 | Odgovora: 7 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

orion92
sremska mitrovica

Član broj: 262545
Poruke: 20
*.dynamic.isp.telekom.rs.



Profil

icon Molim pomoć oko pisanja makroa20.06.2010. u 08:55 - pre 169 meseci
Totalni sam početnik u ovom poslu i smislio sam nešto u excelu što mi može olakšati rad.
Pitanje br. 1
Naime imama recimo 100 sheet-ova koji su jednaki ali sa razlićitim sadržajem i u svakom sheet-u imam isto polje recimo A1 u kome se nalazi neki broj i neko slovo.
recimo da je to ćelija A1 i da u njoj stoji recimo a-27-tz.

Svaki sheet je neki račun za nekog klijenta recimo.
Onaj broj gore je broj računa (a-27-tz) u u tom broju je bitan broj recimo 27 koji je vezan isključivo za jednu firmu.
Tako da firma X ima broj 35 a firma Y ia broj 56 i jedan od brojeva računa za firmu Y glasi recimo e-56-ts
I takođe na svakom sheet-u tj računu imam i polje recimo da je to B1 u kojem je iznos računa
Pored svega ovoga imam recimo sheet koji se zove SUMA
Meni treba da uradim recimo dugme za jednu firmu koje će raditi sledeće:
Proveri onih 100 sheet-ova i kaže ako se u nekom sheet-u u polju A1 u onom broju gore napisanom nalazi broj 27 onda u kolonu u sheet-u SUMA koja je vezana za firmu X naprimer kolona A kaži da je sadržaj ćelije A1 u sheet-u SUMA jednak sadržaju B1 iz sheeta u kome se nalazi traženo polje A1 koje sadrži broj 27 i tako dalje .
Tj sadržaj A2 sheeta SUMA bi trebalo da bude = B1 is sledećeg sheet-a u kome se nalazi poilje A1 koje sadrži broj 27


Nadam se da je ovo jasno formulisano kao pitanje.

Video sam neke delove koje bih mogao da iskoristim na ovom forumu ali kažem da sam početnik i sintaksa mi baš ne ide od ruke.
Tj petlje su mi sve jasne ali ne znam kako da definišem ono što mi treba.
Pitanje br. 2
Kako se dodaju dugmići u makroima.
prokljuvio sam da mi u polju formule treba =EMBED("Forms.CommandButton.1";"") ali mi sada treba kakoa da to povežem sa makroom i kako da napišem ime dugmetu i definišem šta treba da uradi kada se klikne jednom ili dva pita.
U ostalom da li postoji neki tutorial koji bi mi mogao pomoći oko ovakvih stvari ili da tražim po forumima odgovore.
Pitanje br. 3
Iako odgovor na ovo pitanje ću imati delimično i u odgovoru na pitanje br 1 ako ga dobijem ipak ću napisati ono što me konkretno zanima.
Slično pitanje ako imam recimo 250 sheet-s sa brojevima 1,2,3 i tako do 250
U jednom sheetu koji se zove opet SUMA imama kolonu u kojoj piše: ako polje A1 u sheet 1 ima vrednost 25 onda je A1u sheetu SUMA = polju B2 iz sheeta1
A ako nije onda proverava sledeći sheet i tako upisuje samo B1 od onog sheeta čije je polje A1 =25

ja znam da bi to trrebalo da izgleda ovako odprilike
IF I=1 to 250
if sheet (I) cell (A,1)=25 then
J=J+1
Sheet (SUMA) cell (A,J)=Sheet (I) cell (B,2)
end IF
next I

E sada ja znam kako se pišu petelj toliko sam se setio iz srednje škole ali ne znam sintaksu odnosno gde treba zagrada a gde navodnici, zarez i ostalo pa ne bi bilo loše da me neko uputi na tutorial gde mogu to da naučim i da mi napiše i makro za ovo treće pitanje.
 
Odgovor na temu

Ivek33

Član broj: 66174
Poruke: 2898



+66 Profil

icon Re: Molim pomoć oko pisanja makroa20.06.2010. u 14:06 - pre 169 meseci
Citat:
Totalni sam početnik ..........kakoa da to povežem sa makroom i kako da napišem ime dugmetu
Puno pitanja odjednom za početnika ;-)

Nisi rekao koji je Excel u pitanju. Toolbar "Forms" na sebi sadrži ikonu za kreiranje buttona kojega možeš povezati sa Makronaredbom. Design View (na toolbaru za kontrole) ikona služi za prebacivanje u mod za editiranje. Inače desni klik na button i mijenjaš mu naziv, u propertisima ima toga još.
Tebi treba knjiga za početnike Osnove Makronaredbi u Excelu osim ako se ne nađe netko tko će ti sve što tražiš detaljno pojasniti u podužem postu.
Neću ti baš puno pomoći ali i to je nešto za početak, od mene evo malo osnova Izvođenje makronaredbe

btw: pretraži detaljnije ovaj forum
 
Odgovor na temu

orion92
sremska mitrovica

Član broj: 262545
Poruke: 20
*.dynamic.isp.telekom.rs.



Profil

icon Re: Molim pomoć oko pisanja makroa20.06.2010. u 21:35 - pre 169 meseci
Pa ako je baš bitno koji je excel u pitanju evo neka bude recimo 2003 mada koristim paralelno i 2010 ali mi se office 2003 više sviđa jer sam navikao na njega.
Pa kada sam rekao početnik nisam baš početnik razumeme se ponešto u neke stvari. Od nedavno sam se počeo malo ozbiljnije udubljivati u temu office pa sam sada došao do excella kojeg veoma cenim. VB nije problem ako znaš sintaksu šta se i kako piše u određenom programu.
Kao što sam naveo i u postu sa onom petljom koja bi mi radila posao samo me zanimaju detalji tj kako se i šta piše.
Mislim da sam sa onom petljom pogodio u suštinu mada može i sa loop da odradi ali ja sam nekako navikao na for I
Ok nadao sam se da ni ovakav odgovor neću dobiti uzgred hvala bar na ovome. A sada ko zna da mi tačno odgovori na pitanje ili da me bar uputi na mesto gde to mogu da pročitam bio bih mu zahvalan.
 
Odgovor na temu

neptuncokg
Predrag M
racunovodja
Kragujevac

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



+9 Profil

icon Re: Molim pomoć oko pisanja makroa21.06.2010. u 01:02 - pre 169 meseci
Ako si raspoložen da čitaš, evo jednog malog priručnika sa Googl-a
Prikačeni fajlovi
 
Odgovor na temu

FOX028
Visoka tehnicka skola strukovnih studija
Kosovska Mitrovica

Član broj: 258986
Poruke: 850

Sajt: https://www.zile028.com


+49 Profil

icon Re: Molim pomoć oko pisanja makroa21.06.2010. u 12:35 - pre 169 meseci
Nadam se da je ovo resenje tvog 1 i 3 pitanja
Prikačeni fajlovi
 
Odgovor na temu

orion92
sremska mitrovica

Član broj: 262545
Poruke: 20
*.dynamic.isp.telekom.rs.



Profil

icon Re: Molim pomoć oko pisanja makroa21.06.2010. u 20:19 - pre 169 meseci
Hvala svima na odgovorima aposebno za onaj post gde su osnove programiranja.
Uz put sam našao i sajt tutoriali.org na kome megu da se skinu gomila tutoriala.
Takođe nađoh sajt www.ic.ims.hr gde je jako lepo objašnjeno sa sve slikama kako se radi sa makroima i komandama za sve office aplikacije. ko nije video neka pogleda ima baš detaljno o svemu.
hvala svima na pomoći napravio sam ono što sam želeo uz vašu pomoć.
Ovaj forum je za svaku pohvalu.
Svaka čast svima još jednom

Još samo jedno me muči.

Sub er()
For i = 2 To 200
If InStr(Worksheets(i).Range("C10"), "-54-") Then
j = j + 1
Worksheets(1).Cells(1, j) = Worksheets(i).Range("G20")
End If
Next i
End Sub

znači proverava sve čelije C10 u sheetovima od 2 do 200 da li imaju broj -54- i dodeljuju sad nekoj ćeliji 1,j vrednost iz workshheta u kome je nađen broj -54- ćelije G20
E sada mene muči kako da napravim u ovoj petlji automatsku sumu tj da sve nađene vrednosti autoatski sabira i ispiše samo njihovu sumu nakom polju u sheetu 1 bez pisanja njihovih vrednosti kako sam i napravio u petlji.
pitanje br. 2
Imam recimo 5 sheets. sheets od 1-4 imaju u polju A1 neke brojeve recimo: 1,2,3,4
U sheet-u 1 imam u koloni A formulu koja povlači te brojeve.
recimo A1 je sada 1, A2 je sada 2, A3 je sada 3 i a4 je sada 5
Imama sada problem kako da kada traži neki broj u sheet-u a recimo broj 3 koji se sada nalazi u A3 da tu ćeliju posmatra kao vrednost a ne kao formulu koja se u njoj nalazi.
Znači ako formula daje neki rezultat u nekoj ćeliji kako da taj rezultat traži kao broj.
Jer ako ovako zadam komandu If InStr(Worksheets(1).Range("A1:A4"), "3") Then .... onda nće ništa naši jer su u tim poljima formule ane brojevi.
znam da se to ručno u formatiranju ćelije može uraditi ali mene zanima kako da to uradim za samu pretragu a da ništa ne menjam pri tome. odnosno koja je komanda za look in values ili kako se to kaže već.




[Ovu poruku je menjao orion92 dana 21.06.2010. u 23:01 GMT+1]
 
Odgovor na temu

FOX028
Visoka tehnicka skola strukovnih studija
Kosovska Mitrovica

Član broj: 258986
Poruke: 850

Sajt: https://www.zile028.com


+49 Profil

icon Re: Molim pomoć oko pisanja makroa22.06.2010. u 08:49 - pre 169 meseci
Pitanje 1.

Sub er()
For i = 2 To 200
If InStr(Worksheets(i).Range("C10"), "-54-") Then
Zbir = Zbir + Worksheets(i).Range("G20")
End If
Next i
Worksheets(1).Range("A1") = Zbir
End Sub

Pitanje 2.

Ono kako si ti pokusao naravno da nece da radi iako nisu koriscene formule u tim celijama, jer si mu zadao da proverava opseg ("A1:A4") a ne celiju, evo ti kod koji bi ti to sve odradio.

Sub pr()
'ova petlja u svakom ciklusu dodeljuje vrednost jedne celije
'unutar opsega ("A1:A4")
For Each a In Worksheets(1).Range("A1:A4")
If InStr(1, a.Value, "3") Then
'procedura koju treba izvrsiti ako je uslov ispunjen
End If
Next a
End Sub
 
Odgovor na temu

orion92
sremska mitrovica

Član broj: 262545
Poruke: 20
*.dynamic.isp.telekom.rs.



Profil

icon Re: Molim pomoć oko pisanja makroa22.06.2010. u 18:57 - pre 169 meseci
hvala puno na odgovoru sve je sada jasno
 
Odgovor na temu

[es] :: Office :: Excel :: Molim pomoć oko pisanja makroa

[ Pregleda: 2952 | Odgovora: 7 ] > FB > Twit

Postavi temu Odgovori

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