VBA. Изменение формата столбцов

[Artsiom]

Доброго времени суток.
Записал маааленький макрос, теперь пытаюсь понять, почему он не работает?

Private Sub Workbook_Open()
    Range("D:D,E:E").Select
    Selection.NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
    Selection.NumberFormat = "_(* #,##0.00_);_(* (#,##0.00);_(* ""-""??_);_(@_)"
    Columns("B:B").Select
    Selection.NumberFormat = "m/d/yyyy"
    With Selection
        .HorizontalAlignment = xlCenter
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
    End With
End Sub

Идея такая, отформатировать столбцы D и E в финансовый тип без буквы р - рублей в конце, потом столбец В привести в короткий формат даты и выровнять его по центру.

Он не срабатывает как нужно, т.е. с начала меняет Д и Е на финансовый, потом меняет В на короткий формат даты, потом меняет Д и Е на короткий формат даты.
Не понимаю.

[Artsiom]

Хм, кажется понял.
У меня строка 1 и 3 имеют "объединить и поместить в центре".
Похоже из-за этого...

А можно как ни будь указать диапазон типа:
Весь столбец D, кроме D1 и D3?

[IgorGO]

Range("D2,D4:D" & Rows.Count)

[Artsiom]

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

Range("D2,D4:D" & Rows.Count)

Всё равно ругается на этот диапазон...

Придумал вариант:

Private Sub Workbook_Open()

    Set D = Range("D5", ActiveSheet.Range("D65536").End(xlUp))
    Set E = Range("E5", ActiveSheet.Range("E65536").End(xlUp))
    Set B = Range("B5", ActiveSheet.Range("B65536").End(xlUp))

    Range(D, E).Select
    Selection.NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
    Selection.NumberFormat = "_(* #,##0.00_);_(* (#,##0.00);_(* ""-""??_);_(@_)"
    
    Columns(B).Select
    Selection.NumberFormat = "m/d/yyyy"
    With Selection
        .HorizontalAlignment = xlCenter
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
    End With
    
End Sub

Но что-то ему не нравится Columns(B).Select

[IgorGO]

правильно ругается, ерунда написана.
а где в Вашем варианте то, что предлагал я?

[Artsiom]

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

правильно ругается, ерунда написана.
а где в Вашем варианте то, что предлагал я?

Вот

Private Sub Workbook_Open()
    Set B = Range("B2,B4:B" & Rows.Count)
 
    Columns(B).Select
    Selection.NumberFormat = "m/d/yyyy"
    With Selection
        .HorizontalAlignment = xlCenter
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
    End With
End Sub

Ругается на Columns(B).Select

[Artsiom]

Всё идеально, всё работает, спасибо
Вдруг кому нужно будет:

Private Sub Workbook_Open()

    Set D = Range("D6", ActiveSheet.Range("D65536").End(xlUp))
    Set E = Range("E6", ActiveSheet.Range("E65536").End(xlUp))
    
    Range(D, E).Select
    Selection.NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"
    Selection.NumberFormat = "_(* #,##0.00_);_(* (#,##0.00);_(* ""-""??_);_(@_)"
    
    Set F = Range("F6", ActiveSheet.Range("F65536").End(xlUp))
    Set H = Range("H6", ActiveSheet.Range("H65536").End(xlUp))
    Range(F, H).Select
    With Selection
        .HorizontalAlignment = xlLeft
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
    End With
    
    Range("B2,B6:B" & Rows.Count).Select
    Selection.NumberFormat = "m/d/yyyy"
    With Selection
        .HorizontalAlignment = xlCenter
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
    End With
    
End Sub

[Aleksandr H.]

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

Selection.NumberFormat = "_($* #,##0.00_);_($* (#,##0.00);_($* ""-""??_);_(@_)"

без етой строки не работает?

[Artsiom]

Хм, посмотрел - работает и без неё.
Я записал макрос и посмотрел код, там уже это было.