Predmet:Re: Uvjetno oblikovanje ćelije - Excel
Odnosi se samo na jedno polje koje odaberes.
PreuzmiIzvorni kôd (Visual Basic):Option Explicit
Dim Stara_Vrijednost
Private Sub Worksheet_Activate()
Dim Putanja As String
Dim tmp As String
Dim dat(2) As Long
Dim Datum As Date
Dim STemp() As String
Putanja = ActiveWorkbook.Path
Open Putanja & "\dat.sys" For Input As #1
Line Input #1, tmp
Close #1
STemp = Split(tmp, "|")
Datum = STemp(1)
dat(1) = Datum
dat(2) = Now
dat(0) = dat(2) - dat(1)
If dat(0) > 0 Then
Me.Range(STemp(0)).Interior.ColorIndex = 0
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Nova_Vrijednost
Dim Putanja As String
Dim Polje As String
Nova_Vrijednost = Target.Value
If Stara_Vrijednost <> Nova_Vrijednost Then
Target.Interior.ColorIndex = 37
Putanja = ActiveWorkbook.Path
Open Putanja & "\dat.sys" For Output As #1
Polje = Target.Address
Print #1, Polje & "|" & Now
'Me.Range(Polje).Value = 44
Close #1
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Target.Value <> Empty Then
Stara_Vrijednost = Target.Value
End If
End Sub
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.