Új hozzászólás Aktív témák

• #46141 tomi_x tag Fferi50 #46134

  Új Válasz 2021-02-22 11:22:13 #46141

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  tomi_x

  tag

  válasz Fferi50 #46134 üzenetére

  Köszi, tökéletesen működik.

  Viszont most a formázásnál akadtam meg.
  A feladat az lenne, hogy ha a sorszám megegyezik a következővel akkor bizonyos cellák tartalma ne látszódjon, ha nem egyezik meg akkor pedig kap egy alsó szegélyt a sor.
  Az alábbi kóddal próbálkoztam:
  For i = 2 To utolso_sor_formazas
        kovetkezo_sor = i + 1
        elozo_sor = i - 1
        If Worksheets(1).Cells(i, 1).Value = Worksheets(1).Cells(kovetkezo_sor, 1) Then
            Worksheets(1).Range("I" & i & ":O" & i).Select
            With Selection.Font
            .ThemeColor = xlThemeColorDark1
            .TintAndShade = 0
            End With
        Else
            Worksheets(1).Range("a" & i & ":O" & i).Select
            MsgBox "várj" 'jó tartomány van-e kijelölve
            Selection.Borders(xlDiagonalDown).LineStyle = xlNone
            Selection.Borders(xlDiagonalUp).LineStyle = xlNone
            Selection.Borders(xlEdgeLeft).LineStyle = xlNone
            Selection.Borders(xlEdgeTop).LineStyle = xlNone
            With Selection.Borders(xlEdgeBottom)
                .LineStyle = xlContinuous
                .ColorIndex = 0
                .TintAndShade = 0
                .Weight = xlMedium
            End With
            Selection.Borders(xlEdgeRight).LineStyle = xlNone
            Selection.Borders(xlInsideVertical).LineStyle = xlNone
            Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
          End If
    Next
  
  Ennek sajna ilyen az eredménye:
  

  Ötlet hogy 4. , 5. sornál miért nem hajtja végre a szegélyezést ?

Új hozzászólás Aktív témák