zxz 09.11.2010 00:33
Predmet:Exel trikovi

U celiju A1 Unesite =L1*M1

U celije A2-A11 Upisite brojeve od 1 do 10
U celije B1 do K1 Unesite 1 do 10

Selektujte celije A1-K11 i idite u data te odaberite opciju table.
U row input cell unesite L1
a column input cell unsite M1 i kliknite na OK.

zxz 09.11.2010 00:55
Predmet:Re: Exel trikovi

Upisite u celije A1 do A10 nasumice neke brojeve.
U celiju B1 Upisite Sledece:
=REPT("I";A1)
Koprajte ovo u sve celije B1-B10

Imate diagramski prikaz vrijednosti
Ukoliko vam se pojavi greska onda kucajte zarez umjesto tacka-zarez.
=REPT("I",A1)

zxz 09.11.2010 01:21
Predmet:Re: Exel trikovi

Usidravanje celije:
Cesto puta imate u Nekoj celiji napisanu formulu napr.
=A1*B1
E sad opcijom vuci spusti kopirate formulu duzinom kolone i dobit cete:
=A1*B1;=A2*B2;=A3*B3
Problem nastaje kada zellite napr da vam ostane A1 celija a Celija B1 da se mijenja B1 b2 B3 itd.
Tada Napisite Ovako:
=$A$1*B1

zxz 09.11.2010 01:49
Predmet:Re: Exel trikovi

PremjeÅ¡tanje i kopiranje ćelija

Jedna od neotkrivenih mogućnosti u Excelu je sposobnost premjeÅ¡tanja i kopiranja ćelija povlačenjem granice ćelije. Ako želite premjestiti neku ćeliju na drugo mjesto, obilježite ćeliju, držite Shift tipku stisnutu i povucite granicu ćelije do odabranog mjesta gdje želite premjestiti ćeliju. Ako ne budete držali Shift, ćelija će zamijeniti drugu ćeliju, a ako držite Ctrl tipku dok prevlačite granicu ćelije, ćelija će se kopirati na odabrano mjesto. Ovo sve navedeno također vrijedi za stupac, redak ili viÅ¡e obilježenih ćelija.

zxz 27.05.2012 16:18
Predmet:Naredbe Trim i Proper

Ukoliko u nekoj koloni imate popis napr. nekih naziva te ako ta kolona ima cak i negdje praznih mjesta u nazivima a nije ni pisana sa pocetnim velikim slovom.
To mozete lagano popraviti sa ove dvije naradbe.
Primjer:
A------------------B
Sarajevo =Trim(Proper(A1))
mostar
mostar
zenica

Ako u koloni b upisemo gore navedenu formulu u koloni be ce mo dobiti nazive sa prvim velikim slovom i bez praznih mjesta ispred.

zxz 27.05.2012 16:30
Predmet:Kako razdvojiti ime i prezime u dvije kolone

Ukoliko imamo u exelovoj koloni ispisano ime i prezime a zeljeli bi da to razdvojimo u dvije kolone onda to mozemo na sljedeci nacin:

ABC
1Karič Nedim =LEFT(A1;FIND(" ";A1)-1) =MID(A1;LEN(B1)+2;100)
2Jović Dragan =LEFT(A2;FIND(" ";A2)-1) =MID(A2;LEN(B2)+2;100)

Na ovaj nacin dobit cemo u koloni b prezima a u koloni c Ime.
Ukoloko imamo neke rijecvi koje su vece od 100 karaktera onda treba povecati u mid duzinu karaktera.

zxz 27.05.2012 23:45
Predmet:Sabiranje Kolona ili redova

Cesto puta imate potrebu sabrati neke kolone ili redove u exelu.
Dobro imate za to proceduru SUM medjutim ima tu jedan proble ako imate mnogo polja.
Naime ako u nekom polju unesete neki nenumericki znak a to se desi pa to polje bude vidjeno kao strin naredba sum ce ga jednostavno ignorisati a vi cete dobiti netacan zbir i necete biti nicim upozoreni.
Ova procedura radi upravo to.
Prilikom sabiranja polja upozorava vas ako neko polje nije numericko.
Trebate samo ovu proceduru staviti u neki modul i pozivati je umjesto procedure sum.
PreuzmiIzvorni kôd (Visual Basic):
  1. Function Saberi(Polja As Range)
  2. Dim Skupina As Range
  3. Dim Polje As Object
  4. Dim Vrijednost
  5. Dim Zbir As Double
  6. Dim Celija As String
  7.  
  8. Set Skupina = Polja
  9. Saberi = 0
  10. For Each Polje In Skupina.Cells
  11.  
  12. Vrijednost = Polje
  13. If IsNumeric(Polje) Then
  14. Zbir = Zbir + Vrijednost
  15. Else
  16. Celija = Polje.Address
  17. MsgBox Celija & " Nije numericko"
  18. GoTo Kraj
  19. End If
  20. Next
  21. Saberi = Zbir
  22. Exit Function
  23. Kraj:
  24. Saberi = Celija
  25. End Function

zxz 02.06.2012 18:35
Predmet:Kalendar u exelu

Ovu proceduru kopirajte u neki modul.

PreuzmiIzvorni kôd (Visual Basic):
  1. Function Kalendar()
  2. Dim WKS As Worksheet
  3. Dim StrMjesec As String
  4. Dim Mjesec As Integer
  5. Dim Adresa(1 To 2) As String
  6. Dim Polje As Range
  7. Dim Red(1 To 2) As Integer
  8. Dim Kolona(1 To 2) As Integer
  9. Dim K(1 To 2) As Integer
  10. Dim Celija As Range
  11. Dim Dan As Integer
  12. Dim Datum As Date
  13. Dim Ime As String
  14.  
  15. Set WKS = Worksheets.Add
  16. Ime = "Kalendar" & Mid(WKS.Name, 6)
  17. WKS.Name = Ime
  18. ActiveWindow.DisplayGridlines = False
  19. With Cells
  20. .ColumnWidth = 6#
  21. .Font.Size = 8
  22. End With
  23. K(2) = 1
  24.  
  25. For Mjesec = 1 To 12
  26. StrMjesec = Choose(Mjesec, "Januar", "Februar", "Mart", "April", "Maj", "Juni", "Juli", _
  27.               "August", "Septembar", "Oktobar", "Novembar", "Decembar")
  28.  
  29. K(1) = Mjesec Mod 3
  30. If K(1) = 0 Then K(1) = 3
  31. Kolona(2) = K(1) * 7
  32. Kolona(1) = Kolona(2) - 6
  33. Red(2) = K(2) * 8
  34. Red(1) = Red(2) - 7
  35. Set Polje = WKS.Cells(Red(1), Kolona(1))
  36. Adresa(1) = Polje.Address
  37. Set Polje = WKS.Cells(Red(1), Kolona(2))
  38. Adresa(2) = Polje.Address
  39. Set Polje = Range(Adresa(1), Adresa(2))
  40. Polje.Merge
  41. Polje.Value = StrMjesec
  42. Polje.HorizontalAlignment = xlCenter
  43. Polje.Interior.ColorIndex = 6
  44. Polje.Font.Bold = True
  45. Pol****rderAround LineStyle:=xlContinuous
  46. Red(1) = Red(1) + 1
  47. Set Polje = WKS.Cells(Red(1), Kolona(1))
  48. Adresa(1) = Polje.Address
  49. Set Polje = WKS.Cells(Red(1), Kolona(2))
  50. Adresa(2) = Polje.Address
  51. Range(Adresa(1), Adresa(2)).BorderAround LineStyle:=xlContinuous
  52. Range(Adresa(1), Adresa(2)).Interior.ColorIndex = 1
  53. Range(Adresa(1), Adresa(2)).Font.ColorIndex = 2
  54. Dan = 0
  55.   For Each Celija In Range(Adresa(1), Adresa(2))
  56.   Dan = Dan + 1
  57.   Datum = DateSerial(Year(Date), Mjesec, Dan)
  58.   With Celija
  59.   .Value = Datum
  60.   .NumberFormat = "ddd"
  61.   End With
  62.   Next Celija
  63. Red(1) = Red(1) + 1
  64. Set Polje = WKS.Cells(Red(1), Kolona(1))
  65. Adresa(1) = Polje.Address
  66. Set Polje = WKS.Cells(Red(2), Kolona(2))
  67. Adresa(2) = Polje.Address
  68. Dan = 0
  69.  Range(Adresa(1), Adresa(2)).BorderAround LineStyle:=xlContinuous
  70.  Range(Adresa(1), Adresa(2)).Interior.ColorIndex = 15
  71.     For Each Celija In Range(Adresa(1), Adresa(2))
  72.     Dan = Dan + 1
  73.     Datum = DateSerial(Year(Date), Mjesec, Dan)
  74.        If Month(Datum) = Mjesec Then
  75.               With Celija
  76.               .Value = Datum
  77.               .NumberFormat = "dd"
  78.               If Datum = Date Then
  79.               Celija.BorderAround LineStyle:=xlContinuous
  80.               'Celija.Interior.ColorIndex = 9
  81.              Celija.Select
  82.               End If
  83.               End With
  84.        End If
  85.     Next Celija
  86. If K(1) = 3 Then
  87. K(2) = K(2) + 1
  88. End If
  89. Next Mjesec
  90.    
  91. End Function

zxz 24.04.2013 21:40
Predmet:Proeorjentacija redova u kolone

Obiljetite opseg podataka koji želite da preorijentišete i pritisnite copy. otvorite novi Sheet. Komandom Edit / Paste nalijepite iskopirani blok u prvi prazan list.
Idite na edit-->Paste special te odaberite opciju Transpose.

zxz 28.09.2013 17:37
Predmet:Croshair

Ukoliko koristite ovu proceduru ona ce vam pomoci da vidite red i kolonu u odnosu na poziciju na aktivnu celiju.
PreuzmiIzvorni kôd (Visual Basic):
  1. Const HLColor As Long = 13434879
  2.  
  3.  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  4.  Dim r As Range, rcol As Range, rrow As Range
  5.  Set r = Me.Range("A1:Z500")
  6.  If Intersect(Target, r) Is Nothing Then Exit Sub
  7.  Set rcol = Intersect(r, Target.EntireColumn)
  8.  Set rrow = Intersect(r, Target.EntireRow)
  9.  With Target
  10.  If .Count > 1 Then Exit Sub
  11.  r.FormatConditions.Delete
  12.  With rrow
  13.  .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
  14.  .FormatConditions(1).Interior.Color = HLColor
  15.  End With
  16.  With rcol
  17.  .FormatConditions.Delete
  18.  .FormatConditions.Add Type:=xlExpression, Formula1:="TRUE"
  19.  .FormatConditions(1).Interior.Color = HLColor
  20.  End With
  21.  .FormatConditions.Delete
  22.  End With
  23.  End Sub