Prikazi cijelu temu 30.01.2019 12:23
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.