Vraag : Hoe kan ik de huidige kolombreedten van een aantekenvel van Excel tonen?

In Excel 2003, zou ik één enkel aantekenvel willen kunnen selecteren, en dan een macro in werking stellen die tot een nieuwe aantekenvel en een vertoning in rij 1 de kolombreedten van geselecteerde worksheet. zou leiden

Antwoord : Hoe kan ik de huidige kolombreedten van een aantekenvel van Excel tonen?

Als u de waarden wilt aanpassen door het het menupunt van de Breedte van de Kolom van de Cellen van het Formaat…… worden gemeld, dan zal de volgende macro die dit doen. Het vraagt de gebruiker om een waaier van cellen te selecteren die de gewenste kolommen omvat. Het zal dan een aantekenvel aan het eind van het werkboek toevoegen om de kolommenbreedten te tonen.

Spijker zonder kop

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14: 15: 16:

Sub ColumnWidths () Schemerige targ als Waaier, cel als Waaier Op Fout hervat daarna Plaats targ = Application.InputBox („te selecteren gelieve de waaier u kolommenbreedten voor“ wilt melden, Type: =8) Op Fout GoTo 0 Als targ niets toen is ga Sub weg Application.ScreenUpdating = Vals Reeks targ = targ. Rijen (1) Met Worksheets.Add (na: =Worksheets (Worksheets.Count)) Voor Elke cel in targ. Cellen . Cellen (1, cel. Kolom) = cel.EntireColumn.ColumnWidth Daarna Eind met Application.ScreenUpdating = Waar Sub van het eind