Текст ячейки не центрируется по горизонтали

Пользователь

Сообщений: 7 Регистрация: 01.01.1970

19.06.2013 12:50:28

Здравствуйте,проблема следующая : текст ячейки не центрируется по горизонтали. При этом никакой ошибки не возникает, по вертикали все центрируется.. В чем может быть ошибка? Код :

Код

Sub ВыравниваниеАкта()

Dim MyCell As Range
Set MyCell = Range("A6:N12"  ;)  
With MyCell.Font
 .Name = "Times New Roman"
 .Size = 14
 .Bold = True
End With

With MyCell.HorizontalAlignment = xlCenter
 MyCell.VerticalAlignment = xlCenter
End With

End Sub

Прикрепленные файлы

Акт.xls (31 КБ)

Hugo

Пользователь

Сообщений: 23800 Регистрация: 22.12.2012

19.06.2013 12:57:10

Код

Sub ВыравниваниеАкта()
    Application.ScreenUpdating = False

    Dim MyCell As Range
    Set MyCell = Range("A6:N12")
    With MyCell.Font
        .Name = "Times New Roman"
        .Size = 14
        .Bold = True
    End With

    For Each c In MyCell.Cells
        c.HorizontalAlignment = xlCenter
        c.VerticalAlignment = xlCenter
    Next

End Sub

LVL

Пользователь

Сообщений: 904 Регистрация: 01.01.1970

19.06.2013 12:58:42

Код

Sub ВыравниваниеАкта()

Dim MyCell As Range
Set MyCell = Range("A6:N12")
With MyCell.Font
    .Name = "Times New Roman"
    .Size = 14
    .Bold = True
End With

With MyCell
    .HorizontalAlignment = xlCenter
    .VerticalAlignment = xlCenter
End With

End Sub

А теперь найдите отличие?

Alex3004 Пользователь Сообщений: 7 Регистрация: 01.01.1970	#4 19.06.2013 13:11:16 Благодарю, отличие нашел