Sub ColumnWidths ()
Тусклое targ как ряд, cel как ряд
На резюме ошибки затем
Установите targ = Application.InputBox («пожалуйста выберите ряд, котор вы хотите сообщить ширины колонок для», напечатайте на машинке: =8)
На ошибке переход 0
Если targ ничего после этого, то выходите подводная лодка
Application.ScreenUpdating = ложно
Установите targ = targ. Рядки (1)
С Worksheets.Add (поже: =Worksheets (Worksheets.Count))
Для каждого cel в targ. Клетки
. Клетки (1, cel. Колонка) = cel.EntireColumn.ColumnWidth
Затем
Конец с
Application.ScreenUpdating = True
Подводная лодка конца
|