Excel 2000.
Есть макрос:

Sub Макрос4()
Columns("E:E").Select
Selection.NumberFormat = "@"
With Selection
.HorizontalAlignment = xlLeft
.VerticalAlignment = xlCenter
' .WrapText = False
' .Orientation = 0
' .AddIndent = False
.IndentLevel = 2
' .MergeCells = False
End With
End Sub

Форматирует столбик "Е" как текст с отступом 2 символа.

Вот кусок кода:

Set RS = BD.OpenRecordset(s)
kolPol = RS.Fields.Count - 1
For j = 0 To kolPol
Columns(j + c + NumZ).Select
Select Case RS(j).Type
Case 3 ' число
Case 8 'дата
Selection.NumberFormat = "mm/dd/yyyy"
Selection.HorizontalAlignment = xlCenter
Case 10 'строковый
Selection.NumberFormat = "@"
If RS(j).Name = "Fio" Then
Selection.HorizontalAlignment = xlLeft
Selection.IndentLevel = 2
Else
Selection.HorizontalAlignment = xlCenter
End If

End Select
Selection.VerticalAlignment = xlCenter
Next j

Всё форматируется правильно, кроме столбца,
на который выпадает поле "Fio" - вместо отступа слева
он центрируется по горизонтали!

А почему?

Вместо
Columns(j + c + NumZ).Select
и
Selection.NumberFormat = "@"
If RS(j).Name = "Fio" Then
Selection.HorizontalAlignment = xlLeft
Selection.IndentLevel = 2

написал

Dim rCol AS Range
.....
Set rCol = Columns(j + c + NumZ)
....
rCol.NumberFormat = "@"
....

Всё равно не форматирует!
Как быть?

Конечно там в коде немного утрировано.

Set rCol = ктототамнепомню.Columns(i)

и далее

rCol.NumberFormat = "@"
.........
rCol.HorizontalAlignment = xlLeft
rCol.IndentLevel = 2

Всё точно попадает в i-тый столбик
нужного листа, но прижима влево и
отступа в 2 символа нет и в помине.

Возник ещё вопрос:
как установить ширину колонки в зависимости
от содержимого.
Например у QueryTables есть AdjustColumnWidth=True
А у столбцов есть подобное?

White Owl
А ты уверен что "ктототамнепомню." написан правильно?

Конечно уверен. Всё остальное ведь работает.
И в пошаговом режиме проверял.

Не знаю как повесить картинку для наглядности,
просто прикрепил её.

А rCol.AutoFit - выдаёт ошибку, мол к Range
это свойство неприменимо.