Frage : Wie kann ich die gegenwärtigen Spaltenbreiten eines Excel-Arbeitsblattes anzeigen?

In Excel 2003, möchte ich in der Lage sein, ein einzelnes Arbeitsblatt vorzuwählen, und ein Makro dann laufen zu lassen, das ein neues Arbeitsblatt und eine Anzeige in Reihe 1 die Spaltenbreiten des vorgewählten worksheet. verursachen würde

Antwort : Wie kann ich die gegenwärtigen Spaltenbreiten eines Excel-Arbeitsblattes anzeigen?

Wenn Sie die Werte zusammenbringen möchten, die durch das Format-… Zellen-… Spaltenbreite-Menüeinzelteil berichtet werden, dann tut das folgende Makro so. Es bittet den Benutzer, eine Strecke der Zellen vorzuwählen, die die gewünschten Spalten umfaßt. Es fügt dann ein Arbeitsblatt am Ende des Arbeitsbuches hinzu, um die Spaltenbreiten anzuzeigen.

Brad

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

VorColumnWidths () Schwaches targ als Strecke, cel als Strecke Auf Störungs-Zusammenfassung zunächst Targ = Application.InputBox einstellen („die Strecke bitte vorwählen, die Sie über Spaltenbreiten für berichten möchten“, schreiben: =8) Auf Störung Goto- 0 Wenn targ nichts dann ist, Unterseeboot herausnehmen Application.ScreenUpdating = falsch Targ = targ einstellen. Reihen (1) Mit Worksheets.Add (nachher: =Worksheets (Worksheets.Count)) Für jeden cel im targ. Zellen . Zellen (1, cel. Spalte) = cel.EntireColumn.ColumnWidth Zunächst Ende mit Application.ScreenUpdating = richten aus Enden-Unterseeboot