[es] - Hoću da mi se aktivna ćelija prikazuje u drugoj boji

milemile2
Milan Karanovic
Karan co.
Beograd

Član broj: 163031
Poruke: 14
*.adsl.eunet.rs.

Profil

Hoću da mi se aktivna ćelija prikazuje u drugoj boji

^{20.08.2009. u 17:09 - pre 178 meseci}

Kako da aktivnu celiju radnog lista oznacim odredjenom bojom kako bi bila uocljivija?

Milan K.

Odgovor na temu

timmy
Jovan Timotijevic

Moderator
Član broj: 37087
Poruke: 634

Sajt: www.e-tim.net

+89 Profil

Re: Hoću da mi se aktivna ćelija prikazuje u drugoj boji

^{20.08.2009. u 18:19 - pre 178 meseci}

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

Odgovor na temu

3okc
Χoᴘᴦoѡ

Moderator
Član broj: 811
Poruke: 1319

Jabber: 3okc@elitesecurity.org

+116 Profil

Re: Hoću da mi se aktivna ćelija prikazuje u drugoj boji

^{22.08.2009. u 19:44 - pre 178 meseci}

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!

Odgovor na temu

milemile2
Milan Karanovic
Karan co.
Beograd

Član broj: 163031
Poruke: 14
*.adsl.eunet.rs.

Profil

Re: Hoću da mi se aktivna ćelija prikazuje u drugoj boji

^{22.08.2009. u 21:40 - pre 178 meseci}

Prvi predlog funkcionise, drugi cu da testiram. Hvala!

Milan K.

Odgovor na temu