iCentar » Forum » Racunari i oprema » Softver i operativni sistemi » Ms office » Exel trikovi

iCentar → Racunari i oprema → Softver i operativni sistemi → Ms office → Exel trikovi

Pretrazi
Tim
Registriraj se
Vazni alati
Razno. veze
- Oznaci forume kao procitane
- Smjernice
Aktivne teme ...
- u posljednja 24 sata
- od moje posljednje posjete
Vijesti (RSS, ...)
- RSS 2.0
- RSS 1.0
- OPML
- Klipfolio
- Atom 1.0
Prijavi se

Odgovori na temu

Korisnicko ime:

Adresa e-poste:

Sigurnosna provjera:
Unesite znakove na slici. Ovo bi trebalo izbjeci nezeljenu postu.

Predmet:

Objavi:

Pomoc

Boja

Velicina

vise smajlica

[quote=zxz]Ovu proceduru kopirajte u neki modul.

[code=vb]Function Kalendar()
Dim WKS As Worksheet
Dim StrMjesec As String
Dim Mjesec As Integer
Dim Adresa(1 To 2) As String
Dim Polje As Range
Dim Red(1 To 2) As Integer
Dim Kolona(1 To 2) As Integer
Dim K(1 To 2) As Integer
Dim Celija As Range
Dim Dan As Integer
Dim Datum As Date
Dim Ime As String
 
Set WKS = Worksheets.Add
Ime = "Kalendar" & Mid(WKS.Name, 6)
WKS.Name = Ime
ActiveWindow.DisplayGridlines = False
With Cells
.ColumnWidth = 6#
.Font.Size = 8
End With
K(2) = 1

For Mjesec = 1 To 12
StrMjesec = Choose(Mjesec, "Januar", "Februar", "Mart", "April", "Maj", "Juni", "Juli", _
              "August", "Septembar", "Oktobar", "Novembar", "Decembar")
 
K(1) = Mjesec Mod 3
If K(1) = 0 Then K(1) = 3
Kolona(2) = K(1) * 7
Kolona(1) = Kolona(2) - 6
Red(2) = K(2) * 8
Red(1) = Red(2) - 7
Set Polje = WKS.Cells(Red(1), Kolona(1))
Adresa(1) = Polje.Address
Set Polje = WKS.Cells(Red(1), Kolona(2))
Adresa(2) = Polje.Address
Set Polje = Range(Adresa(1), Adresa(2))
Polje.Merge
Polje.Value = StrMjesec
Polje.HorizontalAlignment = xlCenter
Polje.Interior.ColorIndex = 6
Polje.Font.Bold = True
Pol****rderAround LineStyle:=xlContinuous
Red(1) = Red(1) + 1
Set Polje = WKS.Cells(Red(1), Kolona(1))
Adresa(1) = Polje.Address
Set Polje = WKS.Cells(Red(1), Kolona(2))
Adresa(2) = Polje.Address
Range(Adresa(1), Adresa(2)).BorderAround LineStyle:=xlContinuous
Range(Adresa(1), Adresa(2)).Interior.ColorIndex = 1
Range(Adresa(1), Adresa(2)).Font.ColorIndex = 2
Dan = 0
  For Each Celija In Range(Adresa(1), Adresa(2))
  Dan = Dan + 1
  Datum = DateSerial(Year(Date), Mjesec, Dan)
  With Celija
  .Value = Datum
  .NumberFormat = "ddd"
  End With
  Next Celija
Red(1) = Red(1) + 1
Set Polje = WKS.Cells(Red(1), Kolona(1))
Adresa(1) = Polje.Address
Set Polje = WKS.Cells(Red(2), Kolona(2))
Adresa(2) = Polje.Address
Dan = 0
 Range(Adresa(1), Adresa(2)).BorderAround LineStyle:=xlContinuous
 Range(Adresa(1), Adresa(2)).Interior.ColorIndex = 15
    For Each Celija In Range(Adresa(1), Adresa(2))
    Dan = Dan + 1
    Datum = DateSerial(Year(Date), Mjesec, Dan)
       If Month(Datum) = Mjesec Then
              With Celija
              .Value = Datum
              .NumberFormat = "dd"
              If Datum = Date Then
              Celija.BorderAround LineStyle:=xlContinuous
              'Celija.Interior.ColorIndex = 9
              Celija.Select
              End If
              End With
       End If
    Next Celija
If K(1) = 3 Then
K(2) = K(2) + 1
End If
Next Mjesec
    
End Function[/code][/quote]

Povecaj velicinu · Smanji velicinu Provjeri duzinu

Opcije:

Pretvori smajlice u postu
Pretvori & quot; vokable & quot; u postu

Prilozi:

Upravljanje prilozima
Mozete priloziti 3 datoteke!

Posljednjih 15 postova u ovoj temi

Ova tema sadrzi vise od 15 postova. Kliknite ovdje da biste pogledali cijelu temu.

zxz (21.11.2019 22:44):

Predmet: Rad sa procentima

glavnica	procenat	iznos	formula
100	30%	30	=A2*(B2)
100	30%	70	=A3*(1-B3)
100	30%	130	=A4*(1+B4)

zxz (10.08.2018 09:03):

Predmet: SUMIFS funkcija

Ova funkcija saÅ¾ima ćelije u rasponu koji odgovara isporučenim kriterijima. MoÅ¾e se upotrijebiti za zbroj vrijednosti kada susjedne ćelije zadovoljavaju kriterije na temelju datuma, brojeva i teksta.

Sintakasa:
SUMIFS (sum_range, range1, criteria1, [range2], [criteria2], ...)

Primjer:

proiizvodjac	naziv	iznos
Vinodol	Grozdje	120
PromBos	Sljive	100
Vinodol	Grozdje	200
Plantaza	Jagode	180

=SUMIFS(C1:C4;A1:A4; "Vinodol";B1:B4; "Grozdje")

zxz (10.08.2018 08:59):

Predmet: SUMIF funkcija

Naredbu sum ste sigurno koristili ali postoje jos dvije naredbe sum i to sumif i sumifs.
SUMIF:

Sintaksa:
SUMIF(raspon;kriterij;[raspon_Sabiranja])
raspon Raspon ćelija koje Å¾elite vrednovati putem kriterija. Ćelije u svakom rasponu moraju biti brojevi ili nazivi, polja ili reference koje sadrÅ¾e brojeve. Prazne se i tekstne vrijednosti zanemaruju. Odabrani raspon moÅ¾e sadrÅ¾avati datume u standardnom obliku programa Excel (primjeri se nalaze u nastavku).

kriterij Kriteriji u obliku broja, izraza, reference ćelije, teksta ili funkcije koja definira koje će ćelije biti dodane. Primjerice, kriterije je moguće izraziti kao 120, ">180", B2, "32", "Sljive" .

raspon_Sabiranja Celije koje ce se zbrajati ako je uslov ispunjen.
Ukoliko se izostavi funkcija ce uzeti raspon celije kriterija.

Primjer:

proiizvodjac	naziv	iznos
Vinodol	Grozdje	120
PromBos	Sljive	100
Vinodol	Grozdje	200
Plantaza	Jagode	180

=SUMIF(A1:A4;"Plantaza";C1:C4)

zxz (08.08.2018 12:08):

Predmet: Upis teksta u celiju

Nekada vam zatreba da upisete u celiju napr 001.
Sta ce se desiti?
Exel ce to prepoznati kao broj i upisati 1.
da nebi isli na format celije mozete to upisati na ovaj nacin:
'001
' Znak znaci isto sto i formatiranje celije kao string

zxz (08.08.2018 11:24):

Predmet: Upis formule u celiju

Ova procedura ce vam pomoci tako sto cete uprostiti svoju formulu u nekoj celiji.
Naime desi vam se da morati pisati iff pa u njemu drugi iff u kojem i ne koristite mozda oba uvjeta i true i false ali nemozete bez njega.
Sto bi rekli iff u iffu.
Mozete u prvom ifu pozvati ovu proceduru umjesto iff i napisati formulu koju zelite.

PreuzmiIzvorni kôd (Visual Basic):

Function UpisiFormulu(Formula As String, Celija As Range)
UpisiFormulu = Formula
End Function

dex (03.02.2018 22:46):

Predmet: Lista podataka koji zadovoljavaju uslov

Ponekad je potrebno iz tabele izdvojiti podatke po odredjenom kriterijumu. Nista slozeno, moze se resiti pomocu If, Vlookup, Index-Matchâ€¦
Malo slozenije ako treba izdvojiti vise podataka koji zadovoljavaju kriterijum. I to se resava ako postavimo funkciju if sa uslovom i razvucemo na dole. Kao rezultat dobijamo kolonu koja ima prepisanu vrednost za podatak koji zadovoljava uslov, a supljinu ako ne zadovoljava.

Sta uraditi ako nam treba rezultat bez supljina?
Ako koristimo kombinaciju Index-Match, ona nalazi samo prvu vrednost pojavljivanja uslova. Ideja je da razvlacenjem formule na dole pomeramo i oblast pretrage (pomocu funkcije Offset) za onoliko redova na dole gde je nadjena zadnja vrednost.
Pogledati primer. Jednostavnije je ako imenujemo oblasti kao na prvom sheetu. Na drugom imamo uradjeno i preko referenci, ako neko tako preferira. U celiji E3 biramo grad. Desno u kolonama G i H imamo i postupno razlozen postupak.
Ove greske #NA se lako uklanjaju pomocu finkcije IFerror, ali nisam hteo da komplikujem da stvari budu jasnije.

zxz (07.03.2017 21:27):

Predmet: Dani u sedmici

UpiÅ¡ite u polje A1 pon. Sad se pozicionirajte na polje A1 pa opcijum vuci idite do g1.
Probajte i sa rijcju jan te ponedjelja te januar itd.
Igrajte se malo.

zxz (07.03.2017 21:22):

Predmet: Stvaranje nizova

upisite u polje A1 1 a u a2 broj 2.
U polje a3 upisite =A1+A2
Pozicionirajte se na polje A3 te opcijom vuci kopirajte napr do a15.
E sad mozete eksperimentisati.
selektujte ipolja a1:A3 pa isto kopirajte.

zxz (07.03.2017 21:10):

Predmet: Dodjeljivanje imena regionu.

Selektujte kolonu a od a1 do a10. Kada ste je selektovali gore iznad u lijevom uglu fgdje vam pise A1 napisite Cijena.
Popunite polja od a1 do a10 nekim brojevima.
Pozicionirajte se na polje b1 te u njemu upisite =Sum(cijena).
Mozete selektovati i vise kolona i dodijeliti tom regionu neko svoje ime radi lakse daljnje obrade podataka.

zxz (07.03.2017 21:03):

Predmet: Kopiranje kolone u red

Selektujemo neku kolonu u ekscelu pa klinemo desnog misa i kada se pojavi skocni meni lijevim misem odaberemo opciju copy.
Sada kliknemo na neku praznu celiju lijevim pa desnim misem i kada se pojavi skocni meni kliknemo lijevim misem na paste specijal.
Pojavit ce se dialog boks u kome cemo cekirati opciju transpose te kliknuti na Ok.

zxz (01.09.2016 22:16):

Predmet: Kako dobiti zadnj dan u mjesecu

Zadnji dan u mjesecu dobiti cemo ako od prvog dana sledeceg mjeseca oduzmemo jedan dan.
Primjer za maj 2016.
=DATE(2016;6;1)-1

zxz (31.08.2016 19:34):

Predmet: VLOOKUP funkcija

VLOOKUP funkcija je skracenica od vertical look up. Postoji i HLOOKUP, Å¡to je znaci horizontal look up.

Pomoću funkcije VLOOKUP moÅ¾emo pretraÅ¾ivati jedan redak ili stupac ili viÅ¡e njih (npr. tablicu). Radi se o znatno poboljÅ¡anoj verziji funkcije LOOKUP. Znači kad trebate pronaći neÅ¡to u tablici ili rasponu prema retku, koristite VLOOKUP, jednu od funkcija za traÅ¾enje i referenciranje.

Sintaksa:
VLOOKUP (lookup_value, table_array, col_index_num, [range_lookup])

Sintaksa vektorskog oblika funkcije VLOOKUP sadrÅ¾i sljedeće argumente:
vrijednost_pretraÅ¾ivanja (Obavezno). Vrijednost koju Å¾elite potraÅ¾iti. Ako polje tablice obuhvaća raspon ćelija B2:D7, vrijednost pretraÅ¾ivanja mora se nalaziti u koloni B. Vrijednost_pretraÅ¾ivanja moÅ¾e biti vrijednost ili referenca na ćeliju.
polje_tablice (Obavezno). Raspon ćelija koji će funkcija VLOOKUP traÅ¾iti za vrijednost pretraÅ¾ivanja i povratnu vrijednost. Prva kolona u rasponu ćelija mora sadrÅ¾avati vrijednost pretraÅ¾ivanja. U raspon ćelija mora biti uvrÅ¡tena i povratna vrijednost koju Å¾elite pronaći.
indeks_stupca ( Obavezno). Broj stupca (počevÅ¡i od 1 za krajnji lijevi stupac polja tablice) koji sadrÅ¾i povratnu vrijednost.
raspon_pretraÅ¾ivanja ( Neobavezno). Logička vrijednost koja određuje Å¾elite li da VLOOKUP pronađe vrijednost točnog ili djelomičnog podudaranja odnosno TRUE i FALSE
TRUE pretpostavlja da je prva kolona tablice sortirana brojčano ili abecedno te će zatim traÅ¾iti najbliÅ¾u vrijednost. To je zadana metoda ako sami ne navedete drugu.
FALSE traÅ¾i tačnu vrijednost u prvoj koloni.

zxz (31.08.2016 19:17):

Predmet: Iferror

Cesto puta pojavi vam se u nekoj celiji vrijednost #DIV/0!
To mozete sprijeciti ako napisete ispred svoje formule jos ovu naredbu.
Primjer:
=IFERROR(A1/B1;0)

U ovom slucaju dijelimo vrijednost iz celije A1 Na vrijjednost u celiji B1 a ako se pojavi greska onda ce se upisati nula ako ne onda ce ispisati vrijednost dijeljenja.

zxz (30.08.2016 22:54):

Predmet: Zapisivanje dokumenta bez formula

Ukoliko zelite da posaljete svoj dokument nekome ali bez formula u celijama nego samo rezultate onda je ova procedura krojena za vas.
Ne zaboravite samo prije pokretanja da zapisete vas izvorni dokument.
Ovu proceduru kopirajte u neki exelov modul i pokrenite.

PreuzmiIzvorni kôd (Visual Basic):

Function ZapisiBezFormula()
Dim Sit As Worksheet
On Error Resume Next
For Each Sit In Worksheets
With Sit.UsedRange
.Copy
.PasteSpecial xlPasteValues
End With
Next Sit
Application.CutCopyMode = False
Application.Dialogs(xlDialogSaveAs).Show
End Function

Za nejasnoce otvorite novu temu u ovom forumu i pitajte.
Ko pita taj ne skita.

zxz (30.08.2016 22:31):

Predmet: Ctrl + D

CTRL + D kopira ćeliju iznad celije u folusu.

Razno. veze

Aktivne teme ...

Vijesti (RSS, ...)

Kontakt

Sva vremena su GMT +01:00. Trenutno vrijeme: 1: 14 pm.

Centar za edukaciju-BiH

Glavni meni

Forumi

Linkovi

iCentar → Racunari i oprema → Softver i operativni sistemi → Ms office → Exel trikovi

Odgovori na temu

Posljednjih 15 postova u ovoj temi

Prijavi se

Izdvojeno