Telefonszámunk: 1-472-0679

[Resolved] Feltételes formázás makróval

Kezdőlap Fórumok Excel programozás [Resolved] Feltételes formázás makróval

Topic Resolution: Resolved
3 bejegyzés megtekintése - 1-3 / 3
  • Szerző
    Bejegyzés
  • #4503
    Névtelen

      Kedves Imre!

      Excel automatizáló tanfolyamon jártam nálad a minap, próbálkozom is, de egy problémán nem tudok átlendülni.
      Feltételes formázást szeretnék másolni. Az alábbi kód született, hogy soronként legalább másoljon, de a formula részen nem tudok segíteni, nincs ötletem ☹

      Egy 13 cellából álló tartomány leszürkülne, ha a 14. cella 1-es. De azt az 1-est mindig az aktuális sorból kéne kivennie, eddig csak oda jutottam, hogy a tartományt szépen görgeti a for paranccsal, de a feltétel nem mozdul.
      Ha ebben tudnál ötletet adni, azt nagyon megköszönném. Mellékelve zippelve a teszt file


      Sub Szürke()

      Selection.FormatConditions.Add Type:=xlExpression, Formula1:=”=$N$3=1″

      End Sub

      Üdvözlettel
      Kozma Krisztián

      #4509
      horvimi
      Adminisztrátor

        Szia!

        Egy kicsit trükközni kell. Egy változóba kiolvasom az aktuális sor N oszlopából a cella címét, és azt varázsolom be a felt. formázás képletébe.

        Sub Szürke()
        '
        ' Szürke Makró
        
            Dim a As Integer
            Dim b As String
        
            For a = 3 To 14
        
            Range(Cells(a, 1), Cells(a, 13)).Select
            b = Cells(a, 14).Address
            Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=" & b & "=1"
            ....

        A plusz sorokat tedd be és cseréld ki, és jó lesz!

        Imre

        #4518
        Névtelen

          Kedves Imre!

          Nagyon szépen köszönöm a segítséged. Sikerrel jártam.
          Mondanám, hogy hasonló irányban próbálkoztam, de így az életben nem tudtam volna összepakolni.
          Már keresek is egy makrótanfolyamot a honlapon! ?

          Üdvözlettel
          Kozma Krisztián

        3 bejegyzés megtekintése - 1-3 / 3
        • Be kell jelentkezni a hozzászóláshoz.