Avatar billede daki Juniormester
16. september 2005 - 12:47 Der er 6 kommentarer og
1 løsning

Macro til formatering af ark

Så skal jeg bruge en macro som gerne skulle gøre følgende for mig:

1. markere arket fra celle A1 til V? (hvor celle A? indeholder teksten TOTAL), og sætte kanter på det hele.
2. finde celle i A (hvor celle A? indeholder teksten 100 GRP.), og sætte fedskrift på hele linien.

/dan
Avatar billede bak Forsker
16. september 2005 - 13:48 #1
Sub Makro1()

Dim rgTotal As Range
Dim rg100 As Range
'
    Set rgTotal = Range("A1:A100").Find(What:="TOTAL")
    Range("A1:V" & rgTotal.Row).Borders.LineStyle = xlContinuous
    Set rg100 = Range("A1:A65536").Find(What:="100 GRP")
    rg100.EntireRow.Font.Bold = True
   
End Sub
Avatar billede daki Juniormester
16. september 2005 - 13:59 #2
Tak skal De have, det fungere bare perfekt.
Avatar billede bak Forsker
16. september 2005 - 14:00 #3
ok, du får lige et svar ;.)
Avatar billede daki Juniormester
16. september 2005 - 14:15 #4
Og svar accepteret :-)
Avatar billede daki Juniormester
16. september 2005 - 14:31 #5
Ups lige en lille ting,
Kan man via macro indsætte Sidehoved/Sidefod ?
Avatar billede bak Forsker
16. september 2005 - 15:23 #6
sådan feks.

With Sheets("Resultat").PageSetup
  .LeftHeader = "testtop"
  .LeftFooter = "testbund"
End With
Avatar billede daki Juniormester
16. september 2005 - 15:47 #7
Jo tak, så det i min macro efter en macroindspilning af div. sideopsætning.
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Seneste spørgsmål Seneste aktivitet
I går 21:00 Libre Office Impress Af Frank i Andre styresystemer
I går 11:47 VB script Af Jenshentze i Word
I går 11:21 Popup ved opstart Af mort1 i Windows
04/0918:50 Slet lokal konto Af ErikHg i Windows
04/0916:05 Ændre tal i en celle Af xvid i Excel