cellen vierkant maken

[Eflux]

Beste mensen,

Hoe kan ik de cellen zo instellen dat de rijhoogte en de kolom breedte gelijk zijn aan elkaar. M.a.w. hoe kan ik vierkante cellen maken.
Alvast bedankt,
Eflux

 

[Wigi]

Sub SquareCells()
    Dim i As Integer
    For i = 1 To 4
        With ActiveSheet
            .Columns.ColumnWidth = .Columns("A").ColumnWidth / .Columns("A").Width * .Rows(1).Height
        End With
    Next
End Sub

Bron: http://excel-tips.blogspot.com/2004/12/square-cells-in-excel.html na even te Googlen.

Wigi

 

[Eflux]

Sub SquareCells()
    Dim i As Integer
    For i = 1 To 4
        With ActiveSheet
            .Columns.ColumnWidth = .Columns("A").ColumnWidth / .Columns("A").Width * .Rows(1).Height
        End With
    Next
End Sub

Bron: http://excel-tips.blogspot.com/2004/12/square-cells-in-excel.html na even te Googlen.

Wigi

Bedank voor de snelle ractie.
Helaas ben ik helemaal niet goed bekend met VBA Ik weet niet hoe en waar ik bovenstaan moet plaatsen en ook weet ik niet hoe ik het moet toepassen

Met vr.gr.
Eflux

 

[Wigi]

Ga naar Extra > Macro's... > Visual Basic Editor (Alt-F11) (Tools > Macro's... > Visual Basic Editor).

Zie dat je in de Project Explorer in jouw bestand zit.

Doe Invoegen > Module (Insert > Module).

Plak de code.

Sluit VBE met het kruisje bijvoorbeeld.

In jouw bestandje, ga naar Extra > Macro's... > Macro'sr (Alt-F8) (Tools > Macro's... > Macro's)

Voer de macro uit die er nu bij gekomen is in het lijstje.

Wigi

 

[Eflux]

Ga naar Extra > Macro's... > Visual Basic Editor (Alt-F11) (Tools > Macro's... > Visual Basic Editor).

Zie dat je in de Project Explorer in jouw bestand zit.

Doe Invoegen > Module (Insert > Module).

Plak de code.

Sluit VBE met het kruisje bijvoorbeeld.

In jouw bestandje, ga naar Extra > Macro's... > Macro'sr (Alt-F8) (Tools > Macro's... > Macro's)

Voer de macro uit die er nu bij gekomen is in het lijstje.

Wigi

Wigi het is gelukt ! Ik heb nu een heel blad met vierkantjes. Maar nu wil ik grootte van de vierkantjes wijzigen en toch vierkantjes behouden m.a.w. de vierkantjes met een bepaalde factor groter maken, hoe doe ik dat? De waardes van rij hoogte en kolom breedte zijn verschillend.
vrg Eflux

 

[Wigi]

Maak rij 1 hoger en run de code opnieuw.

 

[Eflux]

Maak rij 1 hoger en run de code opnieuw.

 

[Eflux]

Ik heb de code aangepast maar er gebeurd niets. Ik krijg wel een aantal mededelingen over veiligheidscertificaten en zo.
Het word voor mij toch te moeilijk. Ga proberen om op de ouderwetse manier verder te gaan en de verhouding tussen kolom en rij op het oog te schatten. Misschien is een cursus VBA voor Dummies een goede investereing
In ieder geval mijn hartelijke dank.
Vr.gr.
Eflux

 

[Wigi]

Als het eerste gelukt is, wil dit zeggen dat je de code kan uitvoeren.

Dan tussen de 1 van rij 1 en de 2 van rij 2 klikken, en slepen naar beneden.

Dan code nog eens uitvoeren.

Zou geen probleem mogen zijn.

Wigi