Print side | Luk vindue

Indsæt kanter omkring celler

Udskrevet fra: Dansk Regneark Forum
Kategori: Hjælp til regneark.
Forum navn: Makro og VBA
Forum beskrivelse: Hjælp til Makroer og VBA-programmering
Web-adresse: https://forum.excel-regneark.dk/forum_posts.asp?TID=3597
Udskrevet den: 19.Feb.2025 kl. 00:03


Emne: Indsæt kanter omkring celler
Besked fra: KlausMW
Emne: Indsæt kanter omkring celler
Posteringsdato: 25.Aug.2018 kl. 22:16

Indsæt kanter omkring celler

 

Jeg vil gerne have at VBA udfylder kanter på de celler som det kopier fra et andet ark, kopieringen er dynamisk, ikke alle ark har lige mange rækker, men har altid kolonner fra A til G.

Nogle har 2 rækker andre 50.

Nogle der kan hjælpe?

 

KW


Svar:
Besked fra: Blichfeldt
Posteringsdato: 28.Aug.2018 kl. 10:21
Hvis di kopiere med et macro loop, så brug nedenstående
Det er bare en macro optagelse for en enkelt celle.
 
Da jeg ikke ved hvordan du kopiere data over, så er det det nærmeste jeg kan komme.
Ellers kan du selv optage en marco med præcis det du ønsker af kanter, og så tilpasse det i løkken.
 
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    With Selection.Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    With Selection.Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .ColorIndex = 0
        .TintAndShade = 0
        .Weight = xlThin
    End With
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
 
 


Print side | Luk vindue