задать ширину столбца

[Iskin]

Columns("C:E").Select
    Selection.ColumnWidth = 15

Подскажите правильный код, для задания ширины столбца с определенным значением (например 15), и для автоширины (т.е. в зависимости от цифр в ячейке). Выше указанный код не срабатывает, после запуска запроса данных
Спасибо.

[Serge_Bliznykov]

  Dim col As Range
  For Each col In Columns("C:E")
      'col.AutoFit ' это для автоширины
      col.ColumnWidth = 15 ' это для задания ширины 15
  Next

[Iskin]

спасибо, но тоже не сработало. у меня в таблицу через макрос1 подгружается запрос, видимо он по своему меняет ширину.

Sub Макрос1()
    ActiveWorkbook.RefreshAll

    Dim col As Range
  For Each col In Columns("C:E")
      col.AutoFit 
   
  Next
    
End Sub

что тут можно сделать?

[Serge_Bliznykov]

Сообщение от Iskin

что тут можно сделать?

понятия не имею. приложите тестовый файл, где не работает.

у меня работает:
TestWidth.xlsm.zip

p.s. а столбцы C, D, E нормальные? Там нет объединённых ячеек, структуры и т.п. ?

[Iskin]

Приложил, но без самого файла запроса. Код отрабатывает, но когда подгружаю запрос то ширина опять меняется. Так-то не критично, просто хотелось понять почему)

[Serge_Bliznykov]

Сообщение от Iskin

но когда подгружаю запрос то ширина опять меняется.

очевидно же - в подгрузке данных задаётся и ширина столбца.

[Iskin]

я в этом редакторе не нашел такой настройки.

[IgorGO]

что тут можно сделать?

назначить ширину столбцов, после того как отработал макрос загрузки таблицы

[Iskin]

Sub Макрос1()
ActiveWorkbook.RefreshAll
    Dim col As Range
  For Each col In Columns("C:E")
      Next
 
End Sub

так и делаю. Может какую то паузу прописать?

[Serge_Bliznykov]

Сообщение от Iskin

так и делаю. Может какую то паузу прописать?

так убрать обновление данных, тогда работает?