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.
Have you found helpful examples, solutions or ideas-in-work, please consider the
following:
• Citation of *actual page* you are going to using is welcome.
• Have you saw "Value Added" examples you are going to incorporate to your
profitable blog, daily job or any money making venture: How about online donation?
↗Ana & Vlade Divac Foundation
Hvala!