Okręt podwodny ColumnWidths ()
Ciemnawy targ Jako Pasmo, cel Pasmo
Na Błąd Życiorys Następnie
Ustalony targ = Application.InputBox ("Zadawalać wybiórka the pasmo ty chcieć kolumna szerokość dla", Pisać Na Maszynie: =8)
Na Błąd Rozpoczynający (0)
Jeżeli targ Być Okręt podwodny Wtedy Wychodzić Okręt podwodny
Application.ScreenUpdating = Fałszywy
Ustalony targ = targ. Rząd (1)
Z Worksheets.Add (póżniej: =Worksheets (Worksheets.Count))
Dla Targ cel W targ. Komórka
. Komórka ((1), cel. Kolumna) = cel.EntireColumn.ColumnWidth
Następnie
Końcówka Z
Application.ScreenUpdating = Prawdziwy
Końcówka Okręt podwodny
|