2010-07-20 14:28:34 +0000 2010-07-20 14:28:34 +0000
57
57
Advertisement

Hoe maak je cellen perfecte vierkanten in Excel?

Advertisement

In Microsoft Excel,

wil ik de hoogte van de eerste drie rijen en de eerste vier kolommen (12 cellen in de linkerbovenhoek) zo maken dat deze cellen vierkanten zijn. *Hoe kan dit? *

  • *

Verrassend genoeg zegt Excel:

Row height: 15
Column width: 8.43

Dus, deze zijn niet op dezelfde schaal.

Het maken van beide geeft me het volgende:

*Nu, wat moet ik nu doen? *

Advertisement
Advertisement

Antwoorden (21)

50
50
50
2012-08-26 00:38:19 +0000

Nog een manier…verander je zicht op de paginaopmaak. Dit verandert de rasterschaal in inches, en dan kunt u specifiek zowel de hoogte als de breedte op dezelfde waarde instellen (bijv. 25 inches). IMO-paginaopmaak is de beste standaardweergave voor het werken aan het uiterlijk van de spreadsheet.

Hier is een voorbeeld met de werkelijke afmetingen voor beide aanzichten:

15
15
15
2010-09-17 10:25:08 +0000

Selecteer alle (of de rijen/kolommen die je nodig hebt) en sleep dan om de grootte aan te passen aan de gewenste grootte.

  1. 1. Sleep de rand van een kolomkop om de kolombreedte aan te passen. Er verschijnt een tooltip met het exacte aantal pixels.
  2. Onthoud de pixelwaarde!
  3. 3. Sleep de rand van een rij om de hoogte van de rij aan te passen, het werkt op dezelfde manier.
  4. Sleep naar dezelfde pixelwaarde.

Klaar!

8
Advertisement
8
8
2010-07-20 21:04:17 +0000
Advertisement

De kolombreedte van Excel wordt gemeten aan de hand van het aantal nullen (0) dat in de cel kan passen bij de Normale stijl. Om te converteren naar punten (hoe de rijhoogte wordt gemeten), zie http://www.dailydoseofexcel.com/archives/2004/06/01/column-widths-in-points/

Als u niet exact hoeft te zijn, kijk dan gewoon even. Als u wel dichterbij moet zijn dan de oogbol, zet dan een vierkantje van de werkbalk Tekenen op uw vel en maak er een maat van. Als je het 10 x 10 wilt, gebruik dan de volgende code:

sheet1.Shapes(1).Height = 10
sheet1.Shapes(1).Width = 10
sheet1.Shapes(1).Top = sheet1.Shapes(1).TopLeftCell.Top
sheet1.Shapes(1).Left = sheet1.Shapes(1).TopLeftCell.Left

. Dan kun je handmatig de grootte van je rij en kolom aanpassen aan het vierkant en de hoogte en kolombreedte aflezen.

6
6
6
2013-05-23 01:44:59 +0000

VBA lijkt een beetje overdreven voor zo'n eenvoudige uitkomst… Als u klikt en vasthoudt wanneer u gaat slepen om de grootte van de rij/kolommen te wijzigen, wordt de grootte in pixels tussen haakjes weergegeven. Deze eenheden zijn niet geschaald en dus als je de rij- en kolomgrootte op gelijke pixels instelt, zijn ze vierkant. Natuurlijk is dit een handmatig proces… maar je kunt de equivalente maten vinden en dan een reeks rijen/kolommen selecteren en alle maten in één keer instellen.

3
Advertisement
3
3
2019-03-05 07:42:49 +0000
Advertisement

De volgende code werkte voor mij

Sub Grid_Squares()
    With Cells(1, 1)
        Cells.RowHeight = .Width
        Cells.ColumnWidth = .ColumnWidth
    End With
End Sub

Resultaat:

3
3
3
2012-08-25 22:29:04 +0000

Je moet je ervan bewust zijn dat wat wiskundig een vierkant is en wat visueel een vierkant is, verschillend zijn. Niet alle monitoren zijn op dezelfde manier gemaakt. Meestal zijn pixels breder dan ze hoog zijn.

Kijk naar het volgende plaatje:

Elk rood, groen en blauw subpixel vormen de hele pixel. Zoals je kunt zien is de combinatie van de 3 breder dan de hoogte van 1 subpixel. In de meeste gevallen is het verschil subtiel, en de meeste mensen merken het misschien niet. Maar in sommige gevallen merken mensen het wel.

2
Advertisement
2
2
2016-06-22 12:01:01 +0000
Advertisement

Eigenlijk had ik in het verleden hetzelfde probleem. Wat voor mij het beste werkt is de volgende VBA-code. Ik vond de lineaire relatie door alleen maar trial and error.

De code werkt voor enkele cellen, maar ook voor een selectie. In het laatste geval zijn de vierkantjes gebaseerd op de totale selectiebreedte of -hoogte.

Sub MakeCellSquareByColumn()
    Selection.RowHeight = Selection.Width / Selection.Columns.Count
    Selection.ColumnWidth = (((Selection.Width / Selection.Columns.Count) / 0.75 - 5) / 7)
End Sub

Sub MakeCellSquareByRow()
    Selection.ColumnWidth = (((Selection.Height / Selection.Rows.Count) / 0.75 - 5) / 7)
    Selection.RowHeight = Selection.Height / Selection.Rows.Count
End Sub

Je kunt deze macro’s in een Module plaatsen en er knoppen aan toewijzen in de sneltoets

Merk op dat de vierkantjes verdwijnen (door een veranderende kolombreedte) wanneer je het lettertype of de lettergrootte verandert. Dit komt door de manier waarop Excel de kolombreedte berekent. Zie: https://support.microsoft.com/en-us/help/214123/description-of-how-column-widths-are-determined-in-excel ](https://support.microsoft.com/en-us/help/214123/description-of-how-column-widths-are-determined-in-excel)

2
2
2
2015-07-09 15:40:09 +0000

Ik heb bepaald dat er een vierkant kan worden gemaakt met een verhouding van 7,25 rijhoogte voor elke 1,0 punt van de kolombreedte.

2
Advertisement
2
2
2010-07-20 15:08:29 +0000
Advertisement

Als u het voor het hele vel wilt doen, kunt u deze truc gebruiken - wat misschien toch nuttig is: klik op het vakje links van kolomkop A om alle cellen te selecteren; klik op en sleep een van de kolomkopverdelers naar de gewenste grootte, met vermelding van het aantal pixels voor de resulterende celbreedte (ik gebruik Excel 2007, die dit laat zien); doe hetzelfde voor een van de rij-etiketverdelers, waarbij het overeenkomt met de kolombreedte door middel van pixels. Dit zou alle cellen in de bladvakken moeten maken. Wat natuurlijk niet is wat je vroeg, maar ik had gehoopt dat deze truc zou werken met een subset van cellen. Helaas niet.

2
2
2
2012-08-18 10:46:07 +0000

Hier is een VBA-oplossing.

Private Sub MakeSquareCells()

'// Create graph paper in Excel see http://www.erlandsendata.no/english/index.php?d=envbawssetrowcol if you want cm or inches

    Set Cursheet = ActiveSheet

    'don't drive the person crazy watching you work
    UpdateScreen = Application.ScreenUpdating
    Application.ScreenUpdating = False
    With wksToHaveSquareCells
        .Columns.ColumnWidth = 5 '// minimum 2, max 400 ; above 7 --> zoom doesn't work nice
        .Rows.EntireRow.RowHeight = .Cells(1).Width
        '// ActiveWindow.Zoom = true
    End With

    Application.ScreenUpdating = UpdateScreen
    Cursheet.Activate '// Reactivate sheet that has been active at entrance of this subroutine

End Sub
1
1
1
2014-04-23 17:32:44 +0000

Ik gebruik een verhouding van 5-1/3, rijhoogte tot kolombreedte.

Maak bijvoorbeeld een rij 53,33 hoog, en de kolombreedte 10, of 106,66 en 20, respectievelijk, en je bent dicht genoeg bij het overheidswerk.

1
1
1
2010-07-20 14:45:36 +0000

Selecteer eerst de cellen die u wilt vergroten of verkleinen. Ga vervolgens op het tabblad Home naar het vakje Cells en klik op de optie Format. Hier kunt u de Row Height en Column Width van de geselecteerde cellen naar wens wijzigen.

1
1
1
2019-04-12 21:02:13 +0000

Ik geloof dat dit de eenvoudigste oplossing is…

Deze methode maakt gebruik van de Excel-liniaal en is dus begrijpelijker/gemakkelijker & nauwkeuriger voor rij- en kolomafmetingen.

  • Selecteer View op het Lint
  • Binnen Werkboek Weergave selecteer Paginaopmaak
  • Als de liniaal niet wordt weergegeven, selecteer dan het selectievakje Liniaal binnen de groep Weergeven.
  • Klik op de knop Alles selecteren (linksboven onder het naamboek)
  • Klik met de rechtermuisknop op een rij, selecteer de optie voor het aanpassen van de maat en voer vervolgens de gewenste meetwaarde in. Klik met de rechtermuisknop & herhaal voor een Kolom.

Dat is het echt. Het resultaat is wat lijkt op visueel perfecte vierkanten. Er is zelfs een optie om de maateenheden te wijzigen binnen de weergavegroep van het tabblad Geavanceerd in Excel-opties. Hopelijk is dit zeer nuttig! :)

1
1
1
2012-03-13 18:45:21 +0000

Ik wilde een perfect vierkant rooster maken voor een naaiproject en kreeg steeds weer allerlei rare antwoorden op deze vraag, dus ik besloot er zelf mee te spelen om het uit te zoeken. Ik ontdekte dat het onmogelijk is om een perfect vierkant te krijgen, maar ik kwam zo dicht als je kunt komen, gewoon een splinter af.

  1. Markeer de vierkanten die je wilt opmaken.
  2. Ga naar het formaat tabblad.
  3. Formatteer de kolombreedte op 12.43
  4. Formatteer vervolgens de celhoogte op 75,00.

Met behulp van een liniaal vond ik dat ik slechts een fractie af was op 7 en 10 inch lengte. Ik hoop dat dit helpt.

1
1
1
2013-05-04 11:43:44 +0000

Dit doet de truc vrij netjes met behulp van VBA. Stel een uniforme rowHeight in, gebruik dan de Width eigenschap (geeft de kolomgrootte in punten terug) en deel RowHeight erdoor om een eenheidsloze hoogte/breedte-verhouding te krijgen. Maak de nieuwe ColumnWidth die keer de originele ColumnWidth om alles vierkant te maken.

Sub makeSquares() 
Cells.RowHeight = 20
With Cells(1, 1)
W = .ColumnWidth
HWratio = .RowHeight / .Width
Cells.ColumnWidth = W * HWratio
End With
End Sub
0
0
0
2010-07-20 14:35:18 +0000

Klik en sleep op de rand tussen de rijen. Om meer dan eens een kolom/rij te herschikken, selecteer ze allemaal, klik met de rechtermuisknop en klik op “Rijhoogte…” en stel het in op dezelfde hoogte als de rijen breed zijn.

0
0
0
2014-07-07 06:47:18 +0000

Een eenvoudige oplossing

  • selecteer alle cellen
  • sleep de kolommen naar een gewenste pixelgrootte (je ziet de kolomgrootte in zowel punten als pixels terwijl je de kolommen versleept en verkleint)
  • herhaal voor rijen (kies hetzelfde aantal pixels)
  • dit moet je perfecte vierkante cellen over het werkblad geven
0
0
0
2014-09-08 23:12:32 +0000

Excel 2010 Aanpassen in de weergave Paginaopmaak en dan terug schakelen naar de normale weergave werkt niet. Ik heb kunnen valideren met behulp van de tekengereedschappen en het maken van een perfect vierkant in de Normale weergave. Dit is de eenvoudigste methode om vierkanten te maken van elke grootte.

Kolombreedte = 2,71 Rijhoogte = 18.

0
0
0
2018-08-17 06:06:31 +0000
  • Selecteer Alles - Ctrl+A
  • Klik met de rechtermuisknop op een willekeurige kolomkop en selecteer Kolombreedte
  • Voer waarde in = 4 > Ok
  • Daar zie je alle cellen in perfecte vierkante vorm.
0
0
0
2010-07-20 14:46:42 +0000
  • Selecteer de kolommen (klik op de A-kolom, houd dan shift ingedrukt en klik op het andere einde)

  • Klik met de rechtermuisknop op een van de kolommen, klik op Kolombreedte en voer dan een nieuwe waarde in.

  • U kunt hetzelfde doen met een rij, klik dan op Rijhoogte om de hoogte van een rij te krijgen.

0
0
0
2013-11-25 10:25:55 +0000

Als u rij & kolom vierkant wilt maken, selecteer dan alle cellen die u vierkant wilt maken en verander de hoogte van de rij in 28.8 EN verander de breedte van de kolom in 4.56.

Advertisement

Gerelateerde vragen

3
19
10
28
1
Advertisement