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

Excel kurser

Vi har et stort udvalg af Excel kurser. Find lige det kursus der passer dig lige her.

Se alle Excel kurser

Flere spørgsmål fra Excel kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Identificér og hent del af tekststreng Af TheLibrarian i Excel	1	I dag 16:49	I dag 21:00
Ændre nuller til ovenstående tekst Af boro23 i Excel	4	20/11/202410:44	20/11/202412:08
HVIS med datoer Af HHA i Excel	6	20/11/202408:31	20/11/202412:51
Numerisk liste Af AND i Excel	8	19/11/202414:05	19/11/202423:31
Ændre nuller til ovenstående tal Af boro23 i Excel	3	19/11/202409:39	19/11/202411:51

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