Kako da aktivnu celiju radnog lista oznacim odredjenom bojom kako bi bila uocljivija?
Potpis
Milan K.
Hoću da mi se aktivna ćelija prikazuje u drugoj boji
Zaključano
Zakačeno
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.
Pozdrav
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
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
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
a kao funkciju za uslovno formatiranje nad opsegom gde će se ovo videti, uneseš nešto poput
I, za kraj, na promenu selekcije treba osvežiti vrednost f-je
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.
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
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()
=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
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.
Potpis
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!
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!
Prvi predlog funkcionise, drugi cu da testiram. Hvala!
Potpis
Milan K.