CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

swamboo Seniormester

23. november 2022 - 21:14 Der er 3 kommentarer og
3 løsninger

Width er ikke Width, men Width?!?

Jeg er forvirret.

Jeg skriver:
Columns("G:G").ColumnWidth = 1.44

Men skriver jeg:
MsgBox (Columns("g").Width)
så bliver svaret 12

og holder jeg musen over feltet, så får jeg tallet 20 pixels.

Hvordan sætter jeg og udlæser jeg samme tal - så er jeg egentlig lige glad om det er pix, tommer eller noget andet - bare noget jeg kan regne med begge steder.... 😁

På forhånd tak!!! 😎

Synes godt om

store-morten Ekspert

24. november 2022 - 01:00 #1

Columns("G:G").ColumnWidth = 1.44

'Men skriver du:
MsgBox (Columns("G").ColumnWidth)
'så bliver svaret 1.45

1.44 kan ikke bruges! Det rettes automatisk af Excel til 1.45

Synes godt om

1 synes godt om dette

Dan Elgaard Ekspert

24. november 2022 - 12:22 #2

.Width giver bredden i points, og er en 'Read-Only' egenskab.

.ColumnWidth giver bredden i normal tegn (antallet af 0, der kan være i cellen).
Denne egenskab kan både læses og skrives - aftså skjal du benytte .ColumnWidth

Synes godt om

1 synes godt om dette

jens48 Ekspert

24. november 2022 - 14:17 #3

Men du kan undgå en smule af forvirringen, hvis du går ind i File - Options - Advanced og under Display sætter "Ruler units" til millimeter i stedet for Default Units. Så vil værdien du får når du kører musen over feltet være lig med det du skrev i makroen

Synes godt om

1 synes godt om dette

swamboo Seniormester

24. november 2022 - 21:50 #4

SUPER!!!! 3 perfekte svar. 1000 tak

Tillægsspørgsmål:
Hvis man vil have flere kolonner talt sammen, virker dette ikke:

MsgBox (Columns("A:G").ColumnWidth)

Kan man gøre noget smart, udover at tælle dem enkeltvis?

Synes godt om

jens48 Ekspert

24. november 2022 - 22:41 #5

Du kan mærke A1:G1 op og køre denne makro:

Sub test()
Dim c As Range
x = 0
For Each c In Selection
x = x + c.ColumnWidth
Next
MsgBox (x)
End Sub

Synes godt om

store-morten Ekspert

24. november 2022 - 22:44 #6

Dim i As Integer

For Kol = 1 To 7
KolTotal = KolTotal + (Columns(Kol).ColumnWidth)
Next
MsgBox KolTotal

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

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Vagtliste med rul mellem skifter Af Klaus W i Excel	0	I dag 13:33	-
Formelhjælp Af boro23 i Excel	3	I dag 10:54	I dag 12:56
Hvis(og()) på baggrund af STØRSTE() og FORSKYDNING() Af AnnaS i Excel	5	I går 13:47	I dag 14:47
Bil benzin regnskab ? Af fimo i Excel	14	17/04/202414:04	I dag 12:22
Kombinere tal og timer og minutter Af mefa i Excel	6	16/04/202414:38	16/04/202418:07

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