zxz 29.01.2019 01:23
Predmet:Re: Uvjetno oblikovanje ćelije - Excel

evo kod

PreuzmiIzvorni kôd (Visual Basic):
  1. Dim Stara_Vrijednost
  2.  
  3. Private Sub Worksheet_Change(ByVal Target As Range)
  4. Nova_Vrijednost = Target.Value
  5.  
  6. If Stara_Vrijednost <> Nova_Vrijednost Then
  7. Target.Interior.ColorIndex = 37
  8. End If
  9. End Sub
  10.  
  11.  
  12. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  13. If Target.Value <> Empty Then
  14. Stara_Vrijednost = Target.Value
  15. End If
  16. End Sub

Dado 28.01.2019 14:11
Predmet:Uvjetno oblikovanje ćelije - Excel

Pozdrav za sve članove. Interesira me kako da uvjetno oblikujem ćeliju u excelu tako da mi ćelija bude obojena ukoliko dođe do promjene vrijednosti u ćeliji u prethodna 24 sata ili nekom drugom vremenskom periodu.

Dado 29.01.2019 08:04
Predmet:Re: Uvjetno oblikovanje ćelije - Excel

Hvala zzx. Ubacio sam ovaj kod u excel radni list, radi. Sad me zanima kada protekne izvjesni vremenski period na primjer 24 sata, hoće li ćelija koja je promjenila boju a nije nakon toga bilo promjena vrijednosti, ostati bez boje ili ?

zxz 29.01.2019 09:04
Predmet:Re: Uvjetno oblikovanje ćelije - Excel

E to nece.
Nisam ja bas to tako niti razumio ali se moze i to napraviti,

Dado 29.01.2019 09:17
Predmet:Re: Uvjetno oblikovanje ćelije - Excel

Ma vjerovatno nisam ni ja bio jasan u prvom javljanju.

zxz 30.01.2019 11:23
Predmet:Re: Uvjetno oblikovanje ćelije - Excel

Odnosi se samo na jedno polje koje odaberes.
PreuzmiIzvorni kôd (Visual Basic):
  1. Option Explicit
  2. Dim Stara_Vrijednost
  3.  
  4. Private Sub Worksheet_Activate()
  5. Dim Putanja As String
  6. Dim tmp As String
  7. Dim dat(2) As Long
  8. Dim Datum As Date
  9. Dim STemp() As String
  10.  
  11. Putanja = ActiveWorkbook.Path
  12.  
  13. Open Putanja & "\dat.sys" For Input As #1
  14. Line Input #1, tmp
  15. Close #1
  16. STemp = Split(tmp, "|")
  17. Datum = STemp(1)
  18. dat(1) = Datum
  19. dat(2) = Now
  20. dat(0) = dat(2) - dat(1)
  21. If dat(0) > 0 Then
  22. Me.Range(STemp(0)).Interior.ColorIndex = 0
  23. End If
  24. End Sub
  25.  
  26. Private Sub Worksheet_Change(ByVal Target As Range)
  27. Dim Nova_Vrijednost
  28. Dim Putanja As String
  29. Dim Polje As String
  30.  
  31. Nova_Vrijednost = Target.Value
  32.  
  33. If Stara_Vrijednost <> Nova_Vrijednost Then
  34. Target.Interior.ColorIndex = 37
  35. Putanja = ActiveWorkbook.Path
  36. Open Putanja & "\dat.sys" For Output As #1
  37. Polje = Target.Address
  38.  
  39. Print #1, Polje & "|" & Now
  40. 'Me.Range(Polje).Value = 44
  41. Close #1
  42. End If
  43.  
  44. End Sub
  45.  
  46.  
  47. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  48. On Error Resume Next
  49. If Target.Value <> Empty Then
  50. Stara_Vrijednost = Target.Value
  51. End If
  52. End Sub

Dado 30.01.2019 15:30
Predmet:Re: Uvjetno oblikovanje ćelije - Excel

Pošto sam ja totalni laik za ovo, gdje odabirem-mijenjam polje u ovom kodu. Hvala još jednom.

zxz 30.01.2019 17:11
Predmet:Re: Uvjetno oblikovanje ćelije - Excel

Nista ne treba mijenjati samo treba iskopirati u modul sita u kojem zelis da se to obavlja.
File trebas prije zapisati tako da se zna putanja na kojoj ce se formirati jos jedan file.

Dado 30.01.2019 18:56
Predmet:Re: Uvjetno oblikovanje ćelije - Excel

Ok, hvala. Bunilo me je ovo "Odnosi se samo na jedno polje koje odaberes".

Za koji bi vremenski period polje koje je "poplavilo" trebalo da opet bude bez boje.

Dado 30.01.2019 19:12
Predmet:Re: Uvjetno oblikovanje ćelije - Excel

Prilikom promjene datuma ili?