mình thắc mắc cách làm của yêu cầu 2 trong bài tập RecordMacro_Đinhang_Ketqua2

Chào bạn việc gọi các định dạng sẽ như sau

Sub dinhdang1
  code dinhdang1
end sụb
Sub dinhdang2
  code dinhdang2
end sụb
sub Dinhdang_tonghop
  call dinhdang1
  call dinhdang2
end sub

Việc gọi định dạng sẽ như sau call <Tên macro muốn gọi>

Hi thầy,

Mình đã làm sub gọi nhưng chỉ nhận được 1 kết quả về định dạng ngày khi gọi DinhDang_Tonghop

Vậy mình dsai ở đâu vậy ạ?

Sub DinhDang_Title()

'

' DinhDang_Title Macro

'

'

    Range("A1:D1").Select

    Selection.Style = "Title"

End Sub

Sub DinhDang_Accent1()

'

' DinhDang_Accent1 Macro

'

'

    Selection.Style = "20% - Accent1"

End Sub

Sub DinhDang_Border()

'

' DinhDang_Border Macro

'

'

    Selection.Borders(xlDiagonalDown).LineStyle = xlNone

    Selection.Borders(xlDiagonalUp).LineStyle = xlNone

    With Selection.Borders(xlEdgeLeft)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeTop)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeBottom)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlEdgeRight)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlInsideVertical)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

    With Selection.Borders(xlInsideHorizontal)

        .LineStyle = xlContinuous

        .ColorIndex = 0

        .TintAndShade = 0

        .Weight = xlThin

    End With

End Sub

Sub DinhDang_DuLieuNgay()

'

' DinhDang_DuLieuNgay Macro

'

'

    Range("C3:C12").Select

    Selection.NumberFormat = "mm/dd/yy;@"

End Sub

Sub DinhDang_TongHop()

Call DinhDang_Title

Call DinhDang_Accent1

Call DinhDang_Border

Call DinhDang_DuLieuNgay

End Sub

Hi Thầy,

Phần bài tập định dạng tập record macro.

sau khi đã record macro cho 1 vùng dữ liệu.

Sau đó muốn áp dụng phần macro cho vùng dữ liệu khác thì phải sửa lại đoạn code ạ?

Chào bạn thuỳ link đúng rồi nhé, bạn chỉ cần sửa lại vùng là xong

Em chào thầy ạ. Nếu áp dụng record có sẵn cho vùng data khác thì mình sửa lại vùng bằng cách nào cho nhanh chóng ạ.

Em cảm ơn Thầy.

Chào bạn bạn chọn lại vùng select  là được nhé. 

Sửa thẳng vùng Select trong cod phải ko thầy?