Telefonszámunk: 1-472-0679

[Resolved] Escel beállítás lérdések

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

Topic Resolution: Resolved
6 bejegyzés megtekintése - 1-6 / 6
  • Szerző
    Bejegyzés
  • 2020-02-19-10:57 #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: 4 years, 10 months telt el-Nosi.
      • A témakör módosításra került: 3 years, 12 months telt el-horvimi.
      2020-02-19-12:42 #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

        2020-02-19-13:18 #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: 4 years, 10 months telt el-Nosi.
          Attachments:
          You must be logged in to view attached files.
          2020-02-19-14:23 #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
            2020-02-19-20:29 #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

              2020-02-20-07:02 #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: 4 years, 10 months telt el-Nosi.
              • Szerző
                Bejegyzés
              6 bejegyzés megtekintése - 1-6 / 6
              • Be kell jelentkezni a hozzászóláshoz.