Макрос Excel VBA игнорирует команду ширины столбца

Question

Все Когда я пишу следующий код Excel VBA, макрос применяет ширину столбцов 10,86 ко всему листу и игнорирует термины, относящиеся к столбцам (A, B, C). Может ли кто-нибудь помочь? аванс

Columns("A:A").Select
Selection.ColumnWidth = 17.86

Columns("B:C").Select
Selection.ColumnWidth = 19.86

Columns("D:I").Select
Selection.ColumnWidth = 10.86

Answer 1

Если вы избавитесь от операторов Select, все будет работать правильно. Ссылка ниже является хорошим обсуждением того, как избегать операторов Select в VBA.

Как не использовать Select в Excel VBA

Columns("A:A").ColumnWidth = 17.86

Columns("B:C").ColumnWidth = 19.86

Columns("D:I").ColumnWidth = 10.86

Answer 2

, если нет другого кода, который изменяет выбор, это не должно происходить
попробуйте этот код, он устанавливает ширину в активном листе

Dim ws As Worksheet 
Set ws = ActiveSheet
With ws
    .Columns("A:A").ColumnWidth = 17.86
    .Columns("B:C").ColumnWidth = 19.86
    .Columns("D:I").ColumnWidth = 10.86
End With