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
  • #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, 1 month telt el-Nosi.
      • A témakör módosításra került: 3 years, 3 months telt el-horvimi.
      #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: 4 years, 1 month 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: 4 years, 1 month telt el-Nosi.
              6 bejegyzés megtekintése - 1-6 / 6
              • Be kell jelentkezni a hozzászóláshoz.