Notifikationer

Markér alle som læst Log ud

hejhejhej Nybegynder

12. juni 2004 - 11:21 Der er 2 kommentarer og
1 løsning

Lav en linie i det valgt område vha en makro.

Jeg har brug for en makro som tegner en streg i midten af det første markerede felt til det sidste markerede felt.
I mit program har man kun mulighed for at markere én søjle af gangen.
Jeg har forsøgt med flg som ikke virker:

'*****************
Set omr = Selection
startRow = omr.Row
slutRow = omr.Row + omr.Rows.Count - 1
startCol = omr.Column
XPosStart = Cells(startRow, startCol).top
YPostStart = Cells(startRow, startCol).top
XPosEnd = Cells(slutRow, startCol).top
YPostEnd = Cells(slutRow, startCol).top
ActiveSheet.Shapes.AddLine(XPosStart, YPostStart, XPosEnd, YPostEnd).Select

'*****************

Synes godt om

bak Forsker

12. juni 2004 - 12:35 #1

Sub makro2()
Dim omr As Range
Dim Midt, Bund As Range
Set omr = Selection
Set Bund = Cells(omr.Row + omr.Rows.Count, omr.Column)
Midt = (omr.Offset(0, 1).Left - omr.Left) / 2
ActiveSheet.Shapes.AddLine omr.Left + Midt, omr.Top, omr.Left + Midt, Bund.Top
End Sub

Synes godt om

hejhejhej Nybegynder

12. juni 2004 - 19:37 #2

det virker. Men hvad betyder omr.Offset(0, 1).Left

Synes godt om

bak Forsker

12. juni 2004 - 20:54 #3

Denne linie finder den sidste merkerede celle + 1
Set Bund = Cells(omr.Row + omr.Rows.Count, omr.Column)

Denne linie tager venstre kant af cellen tilhøjre for markeringen og trækker venstre kant af markeringen fra. Dette tal divederes med 2 for at finde midten.
Midt = (omr.Offset(0, 1).Left - omr.Left) / 2
dvs at omr.Offset(0, 1).Left giver venstre kant på nabocellen (offset(0, 1))

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Excel kurser

Excel kurser for alle niveauer og behov – find det kursus, der passer til dig

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Ændre tal i en celle Af xvid i Excel	1	04/09/202616:05	04/09/202616:54
Kan Excel selv beregne alder? Af leahcim i Excel	7	31/08/202610:24	04/09/202602:08
problem med mailbesked Af Pestilensen i Excel	3	24/08/202611:16	28/08/202612:55
Sætte billeder ind i google sheets ark ud fra elev nummer Af lurup i Excel	18	17/08/202615:14	05/09/202622:04
Gemme største værdi Af Lemming@privat.dk i Excel	2	07/08/202622:13	08/08/202609:03

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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS