kako napraviti u excelu button i kad se klikne na njega da se upiše recimo u A1 broj 5 ili bilo koji drugi broj......ili ako je nekom lakše napraviti jedan primjer excela pa mi poslati mailom,ako je tako lakše,nego mi objasniti.......
Prvo snimi macro koji bu odradil taj zadatak.
Otvori glavni izbornik, excel options, popular, upali "Show Developer tab in the Ribbon"
Na developer tabu klikni "insert" i odaberi "button" (prvi po redu), klikni na poziciju gdje ga hočeš staviti () i pojavil se bu izbornik di odabereš svoju macro naredbu.
izvor
When shit turns to gold, the poor will be born without ass
a koja je naredba recimo da upiše broj 5 u A1
Snimi makro naredbu:
view / macros / record macro
obavi sve kaj trebaš u tablici (upiši 5 u polje A1 u ovom slučaju)
view / macros / stop recording
I tu naredbu onda dodjeliš svom gumbu.
When shit turns to gold, the poor will be born without ass
prilikom snimanja upišem 5 u A1 i stisnem enter da mi selektuje ispod čeliju A2 ,završim snimanje i napravim button,......i sad kad njega kliknem upiše se broj 5 u A1 i kad ga ponovo kliknem upiše se broj 5 u A2 i tu mi sad nastaje problem,...kako napraviti da se to nastavi da nemoram ručno svaki put stisnuti na tastaturi tipku enter.......
aj ovak, na excel 2007 makro za upisivanje broja 5 u čeliju A1 izgleda ovako:
prva linija upisuje broj u A1Sub Macro1()
Range("A1").FormulaR1C1 = "5"
Range("A1").Select
End Sub
druga linija odabire A1 nakon unosa
tebi vjerovatno kad pritisneš enter odabere A2 i zabilježi u makro naredbu.
Znači, odi na view macros /edit i ispred ".Select" upiši polje koje želiš da ti ostane označeno nakon unosa, u ovom slučaju opet ("A1")
When shit turns to gold, the poor will be born without ass
možda sam ja malo i loše postavio pitanje,Izvorno postao V3rt!g(o)
u principu mi treba macronaredba koja upiše broj u selektiranu čeliju može i u stupcu A i kad upiše taj broj da se selektira čelija ispod i da se tu onda ako se ponovo klikne taj button ponovo upiše taj broj.........trebam napraviti takvih 7 buttona sa različitim brojevima i kad ih kliknem da mi se u stupcu A ispisuju jedan ispod drugog........
ok. znaći ova piše broj u trenutnu čeliju i bira sljedeću ispod:
ActiveCell.FormulaR1C1 = "x"
Selection.Offset(1, 0).Select
umjesto crvenog x stavi svoj broj.
Upali prozor za makro naredbe, upiši novi naziv, stisni create i kopiraj naredbu.
When shit turns to gold, the poor will be born without ass
to sam trebao,....... hvala ti na pomoći.....
ovo sam riješio ,ali ako može još jedna mala pomoć (ako je to izvedivo).........kada ubacim u formulu "-1" umjesto 1,...ActiveCell.FormulaR1C1 = "x"
Selection.Offset(-1, 0).Select
tada se upiše broj i selektira čelija iznad i dalje se mogu upisivati iznad brojevi,i to radi ako se krene iz nižih redova,ali kad dođe do prvog reda dalje ne može.
Da li postoji način ili formula da kad se upiše broj u A1 prvi red ,da se upiše broj i da ide automatski na drugo mjesto ,a da ostaje ta čelija u prvom redu označena za drugi broj i tako dalje,........u principu obrnut redosljed ,neide novi broj dolje nego novi broj je uvijek na vrhu.
ak sam dobro skužil primjer:
?Range("A1").FormulaR1C1 = "x"
Selection.Offset(1, 0).Select
When shit turns to gold, the poor will be born without ass
inaće u excelu kad se upiše broj i stisne enter oznaći se čelija ispod i piše se ispod drugi broj..........mene zanima jel može suprotno,.....znaći kad se upiše broj u A1 stisne enter on prelazi u drugi red A2,a A1 ostaje selektiran za upis novog broja i tako dalje,odnosno novi broj je uvijek na vrhu,a stari idu niže,.......da li je to izvedivo i dal postoji takva naredba da se može koristiti za button.........
primjer
button koji ima naredbu da upiše br.5 u A1
drugi button (recimo br 6) kad se klikne on prebacuje ovaj broj 5 iz A1 u A2 i u A1 upisuje 6
itd.
ako imaš kakvu ideju,može i drugačije,nemora ovako kako sam ja zamislio,........
e, sad je malo jasnije
Cijela kolona ide dolje, a u A1 ide novi broj. (ovo je za 20 redova, A20 povećaj po želji)Range("A1:A20").Select
Selection.Cut
Selection.Offset(1, 0).Select
ActiveSheet.Paste
Range("A1").FormulaR1C1 = "x"
Range("A1").Select
Ili, ak tipkovnicom upisuješ broj u A1, trebaš gumb samo za pomicanje kolone dolje:
Range("A1:A20").Select
Selection.Cut
Selection.Offset(1, 0).Select
ActiveSheet.Paste
Range("A1").Select
Zadnji uredio V3rt!g(o) : 23-01-2013 u 21:26
When shit turns to gold, the poor will be born without ass
toliko se mučim,a ti to lijepo riješiš....svaka čast
evo mene opet ,..dugo me nije bilo
ovo zadnje riješenje za koje sam mislio da je dobro ima novi problem,.......kad napravim button sa tom makronaredbom to funkcionira odlično ,....međutim imam jedan excel u koji se upisuju brojevi u stupac A ,a u ostalim stupcima se automatski upisuju brojevi pomoću IF funkcija,....i kad taj butoon napravim u tom excelu to nefunkcionira ,tj brojevi se upisuju u stupac A,ali u ostalom dijelu exela se neizvršavaju If funkcije,
p.s onaj gornji button gdje brojevi se upisuju ispod funkcionira sa tim IF funkcijama u ostalim čelijama,ali ovaj gdje novi broj bude na vrhu ne,odnosno izbacuje grešku#REF! u tim čelijama sa if funkcijama
Ovaj zadnji macro miče čeliju, pa se mijenjaju i formule koje se odnose na nju.
podesi ga da umjesto cut/paste, koristi copy/paste/
Selection.Cut zamijeni sa Selection.Copy
Ili probaj indirect funkciju.
naprimjer, formulu koja se odnosi na A1
promijeni ovako:Code:=IF(A1)=1;TRUE;FALSE)
Sad bi se stalno trebala odnositi na A1, bez obzira kamo se podaci iz A1 micaliCode:=IF(INDIRECT("A1")=1;TRUE;FALSE)
When shit turns to gold, the poor will be born without ass
gdje da stavim indirect npr u ovim formulama
=IF(AND(A2>0;A2<7);A2;0)
=IF(OR(A3=0;A3=8;A3=11);A3;0)
mislim da bu jednostavnije promjeniti macro u Selection.Copy
When shit turns to gold, the poor will be born without ass
jednostavnije je,ali mi iz nekog razloga usporeno to izvršava,....nekad moram čekati i po pola minute da upiše broj,......al, dobro zadovoljan sam i sa dosadašnjim rješenjem iako mi se više dopada da novi brojevi budu gore,........
jedino da prije svake čelije pišeš indirect :/ drugačije neznam..
pola minute da upiše broj?? To je puno. Ak ti nije problem, možeš poslati tablicu na privat, da vidim...=IF(OR(INDIRECT("A3")=0;INDIRECT("A3")=8;INDIRECT( "A3")=11);INDIRECT("A3");0)
When shit turns to gold, the poor will be born without ass
probao na drugom računalu i nije toliko,.......pa na svom laptopu deinstalirao program (excel) i ponovo instalirao i sad je prihvatljivo.........i radi mi sve ok....
treba bih još jednu pomoć oko buttona
sad imam nekoliko čelija u kojima su neki rezultati dobiveni if funkcijama,...sad mi je želja napraviti zbroj višednevnih rezultata.......
zamislio sam to pomoću buttona koji bi zbrajao rezultate,pa me zanima pomoć oko naredba za taj button...
htio bih slijedeće da recimo :
rezultat iz A1(koji se mijenja svaki dan) zbroji sa vrijednosti iz D1 i tu vrijednost iz D1 zamjeni sa tim novim brojem(zbrojem)
rezultet iz B1 zbroji sa vrijednosti iz D2 i tu vrijednost iz D2 zamijeni sa tim novim brojem(zbrojem)
itd...
na taj način kad god imam novi rezultat u A1,B1 itd,i kliknem button poveća mi se za toliko u D1,D2 ,pa bi imao rezultat ukupnog rada.
ako može pomoć oko naredbe za button za dvije čelije,a ja ću dopuniti za koliko im treba,a ima ih puno pa mi je zato teško na drugi način računati.
ili neki drugi prijedlog........
Pravila postanja
Odgovori uz citat
Bookmarks