Telefonszámunk: 1-472-0679

Escel beállítás lérdések

Kezdőlap Fórumok Excel témák Escel beállítás lérdések

Ennek a témakörnek tartalma 5 hozzászólás, 3 résztvevő. Utolsó frissítés:  Nosi 1 hónap, 2 hete telt el.

6 bejegyzés megtekintése - 1-6 / 6
  • Szerző
    Bejegyzés
  • #6776

    Nosi
    Felhasználó

    Sziasztok!

    Van-e mód a kijelölt aktív cellakeret színének módosítására?

    • A témakör módosításra került: 1 hónap, 2 hete telt el- Nosi.
    #6778

    delila
    Felhasználó

    Szia!

    Hogyne lenne. A Cellaformázás menüpontban, a Szegély fülön megadhatod a színt, a vonalvastagságot, és az elhelyezést is.

    Kati

    #6779

    Nosi
    Felhasználó

    Köszi de félreértettél!

    Az éppen aktuális aktív cella kijelölése érdekel.
    Hogy jobban látszódjon pl egy keresés eredménye.

    Itt is keresik a megoldást ugyan erre a problémára: https://tinyurl.hu/CyaX/

    • A hozzászólás módosításra került: 1 hónap, 2 hete telt el- Nosi.
    Attachments:
    You must be logged in to view attached files.
    #6782

    delila
    Felhasználó

    Valamikor régen kaptam a lenti makrót, amit ha a füzeted ThisWorkbook lapjához rendelsz, a füzeted minden lapján célkeresztbe teszi a kiválasztott cellát. 1 lap moduljába bemásolva csak azon a lapon működik.
    Próbáld ki egy üres füzetben, és ha megfelel, alkalmazhatod a “cél” füzetben.

    Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
        Cells.FormatConditions.Delete
        With Target
            With .EntireRow
                .FormatConditions.Add Type:=xlExpression, Formula1:="1"
                With .FormatConditions(1)
                    With .Borders(xlTop)
                        .LineStyle = xlContinuous
                        .Weight = xlThin
                        .ColorIndex = 5
                    End With
                    With .Borders(xlBottom)
                        .LineStyle = xlContinuous
                        .Weight = xlThin
                        .ColorIndex = 5
                    End With
                    .Interior.ColorIndex = 20
                End With
            End With
            With .EntireColumn
                .FormatConditions.Delete
                .FormatConditions.Add Type:=xlExpression, Formula1:="1"
                With .FormatConditions(1)
                    With .Borders(xlLeft)
                        .LineStyle = xlContinuous
                        .Weight = xlThin
                        .ColorIndex = 5
                    End With
                    With .Borders(xlRight)
                        .LineStyle = xlContinuous
                        .Weight = xlThin
                        .ColorIndex = 5
                    End With
                        .Interior.ColorIndex = 20
                    End With
            End With
    
            .FormatConditions.Delete
            .FormatConditions.Add Type:=xlExpression, Formula1:="1"
            .FormatConditions(1).Interior.ColorIndex = 36
        End With
    End Sub
    #6783

    horvimi
    Adminisztrátor

    Szia!

    Nincs rá natív megoldás tudtommal.
    Delila eseménykezelő makrójával, vagy az általad megadott linkről elérhető CP add-In-el oldható meg.
    Utóbbi a jobb megoldás, ami szintén makró, csak beépülő, ezért nem kell makróval külön foglalkoznod minden fájlban.

    Imre

    #6784

    Nosi
    Felhasználó

    Köszönöm mindenkinek a segítséget!

    Sajnos egyiket sincs módomban alkalmazni, mert munkahelyi gépen nem örülnének neki.
    Ezt a makrós dolgot meg nem is igazán tudom hol és hogyan tudnám alkalmazni, bár lehet beszélek a rendszergazdával, mert sokunkat zavar ez a probléma, köztük őt is. 🙂

    Még egyszer köszönöm mindenkinek a segítséget, nem gondoltam volna, hogy erre nincs natív megoldás.

    Tamás

    • A hozzászólás módosításra került: 1 hónap, 2 hete telt el- Nosi.
6 bejegyzés megtekintése - 1-6 / 6

Be kell jelentkezni a hozzászóláshoz.