Søg
Avatar billede tavlen Nybegynder
06. marts 2001 - 09:47 Der er 14 kommentarer og
1 løsning

Excel : formatering med makro

Jeg vil i excel\"2000\" lave en makro der alt efter hvilken celle jeg står i markerer og understreger hele den tilhørende række.

Her er mit forslag som ikke virker er der nogen der ved hvordan det ellers skal lave

:)

LinieNR = ActiveCell.Row

x = LinieNR

   
    Rows(\"x\").Select
    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
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone

Jeg får meddelelsen:
Application-defined or object-defined error

mvh tavlen
Avatar billede janvogt Praktikant
06. marts 2001 - 09:59 #1
Det er ganske simpelt. Du behøver blot følgende:

ActiveCell.EntireRow.Select

i stedet for dine 3 første linier.
Resten ligner en makrooptagelse, så det burde være ok.

PS Hvis du kan bruge svaret må du gerne oprette det under \"regneark\" i stedet. Der har jeg lidt mere brug for pointene. :-)


Avatar billede tavlen Nybegynder
06. marts 2001 - 10:12 #2
Da det er et \"løn\" regneark for et helt år skal understregningen gentages hver 7.dag eller efter søndag. Dette forestiller jeg mig kunne løses med x = LinieNR.
Jeg vil så bruge x i Rows(\"x\").Select. Men er dette ikke muligt?
Avatar billede janvogt Praktikant
06. marts 2001 - 10:22 #3
Så vil jeg foreslå du bruger \'betinget formatering\" under FORMAT i menuen.

Brug:
Cell Value Is, Equal to, søndag
og så brug understregning af cellen som formatering.
Denne formatering kopieres så til relevante celler.

Jeg kan muligvis også give dig en formel, som konsekvent understreger hver 7. linie i arket.
Avatar billede tavlen Nybegynder
06. marts 2001 - 10:30 #4
Ok det ligner noget rigtigt
Kan jeg så formatere en celle på baggrund af en anden celles værdi.
Jeg skal jo bruge understregningen på hele rækker
Avatar billede janvogt Praktikant
06. marts 2001 - 10:40 #5
Hvis du bruger nedenstående under betinget formatering, vil den altid understrege hver 7. celle (hele rækken) uanset, hvor mange rækker du måtte sætte ind.

Formula Is, =MOD(ROW();7)=0
Avatar billede tavlen Nybegynder
06. marts 2001 - 10:49 #6
Jeg markerer det område jeg vil benytte vælger betinget formatering,Formlen er,=MOD(ROW();7)=0,OK
men der sker intet :?
Avatar billede janvogt Praktikant
06. marts 2001 - 10:54 #7
Har du husket at indsætte selve formateringen (understregningen)?

Nå, du har en dansk version. Hmm, mon ikke den hedder noget i retning af REST(RÆKKE();7)=0 så?

Kopier formateringen til hele det område du vil bruge.
Avatar billede janvogt Praktikant
06. marts 2001 - 10:58 #8
Du kan også sende mig arket på:
jan_vogt_hansen@hotmail.com

Så skal jeg eksperimentere lidt ...
Avatar billede tavlen Nybegynder
06. marts 2001 - 11:08 #9
hermed gjort :)
Avatar billede janvogt Praktikant
06. marts 2001 - 11:24 #10
Nu forstår jeg.

Den kræver vist lidt tid ...., men jeg tror nok nok jeg kan klare den. Jeg forventer at vende tilbage inden 13.30.

Avatar billede tavlen Nybegynder
06. marts 2001 - 11:26 #11
No Problem
Rart med lidt support
Avatar billede tavlen Nybegynder
06. marts 2001 - 11:41 #12
Jeg har nu fået det til at virke med betinget formatering, så hvis du ikke har noget at tilføje er pointene dine
Avatar billede janvogt Praktikant
06. marts 2001 - 12:15 #13
Se mail
Avatar billede tavlen Nybegynder
06. marts 2001 - 12:41 #14
afsluttet
Avatar billede janvogt Praktikant
06. marts 2001 - 12:54 #15
Overført til regneark-kategorien.

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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra Visual Basic kategorien

Titel Indlæg Oprettet Seneste aktivitet
Send mail fra "Outlook New" via VBA i excel Af lonmat i Visual Basic 5 29/08/202512:28 04/09/202515:48
Klik Event i MS Project Af per2edb i Visual Basic 0 05/08/202510:10 -
VBA koder lagt i MS project kolonner Af per2edb i Visual Basic 0 16/05/202512:31 -
Foto fra Word eller Excel Af MSchlamovitz i Visual Basic 1 22/04/202514:55 25/04/202511:21
Proxy server.. Af SommerFyr i Visual Basic 12 10/07/202417:34 12/07/202414:34
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 18:50 Slet lokal konto Af ErikHg i Windows
I dag 16:05 Ændre tal i en celle Af xvid i Excel
I dag 13:47 Dette er ikke en kommerciel session i Windows 11 Af eksmojo i Windows
31/0810:26 Synkronisering af kalender mellem computer, android telefon og iPhone Af Strawberry i Andre onlineløsninger
31/0810:24 Kan Excel selv beregne alder? Af leahcim i Excel
White papers
Flere white papers »