[ milemile2 @ 20.08.2009. 17:09 ] @
Kako da aktivnu celiju radnog lista oznacim odredjenom bojom kako bi bila uocljivija?
[ timmy @ 20.08.2009. 18:19 ] @
Nisam siguran da je bas neophodno ali evo probaj sa sledecim kodom koji postavljas
u pozadini onog lista na kome zelis da aktivna celija bude crvene boje.

Code:

Dim oldColor As Variant
Dim oldPattern As Variant
Dim oldCell As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
    If InStr(Target.Address, ":") = 0 Then
        oldCell.Interior.Color = oldColor
        oldCell.Interior.Pattern = oldPattern
        oldColor = Target.Interior.Color
        oldPattern = Target.Interior.Pattern
        Target.Interior.Color = 255
        Set oldCell = Target
    End If
End Sub


Pozdrav
[ 3okc @ 22.08.2009. 19:44 ] @
Ja sam ovo rešavao korisničkom funkcijom, uz uslovno formatiranje -- kako bi kodiranje bilo što jednostavnije.

Naime, s obzirom da je neophodno koristiti događaj Selection Change, važno je da imaš što manje proračuna.

Tako, dovoljna ti je samo funkcija kojom vraćaš adresu aktivne ćelije
Code:

Private Function selActual() As String

    selActual = ActiveCell.Address
End Function


a kao funkciju za uslovno formatiranje nad opsegom gde će se ovo videti, uneseš nešto poput
Code:

=ADDRESS(ROW();COLUMN())=selActual()


I, za kraj, na promenu selekcije treba osvežiti vrednost f-je

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    ActiveSheet.Calculate
End Sub


Ipak, ovo neće biti dobro rešenje ako u radnom listu imaš mnogo funkcija jer se i one osvežavaju sa svakom promenom kursora.
[ milemile2 @ 22.08.2009. 21:40 ] @
Prvi predlog funkcionise, drugi cu da testiram. Hvala!