Định dạng bảng tính (tô màu nền, đậm chữ, kẻ khung, gộp ô...) ?

[Hoàng Nhật Phương]

Xin chào các bạn,
Như tiêu điều OT đã nêu , nhờ các bạn giúp đỡ OT đoạn code định dạng bảng tính từ sheet "DL BAN_DAU" sang giống như sheet "KQ MONG_MUON" với ạ

(Xin phép gỡ file kèm và hỏi lại sau do giải thích mô tả chưa rõ ràng ạ)

 

[HeSanbi]

Mời OT tham khảo Code:

Sub FormatAllSV()
  Dim Arr, A
  On Error Resume Next
  Arr = Array("DL BAN_DAU")
  For Each A In Arr
    Application.CutCopyMode = False
    ThisWorkbook.Worksheets("KQ MONG_MUON").Cells.Copy
    ThisWorkbook.Worksheets(A).Activate
    Cells.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = True
    [A1].Select
  Next
End Sub

 

[Hoàng Nhật Phương]

Mời OT tham khảo Code:

Sub FormatAllSV()
  Dim Arr, A
  Arr = Array("DL BAN_DAU")
  For Each A In Arr
    Application.CutCopyMode = False
    ThisWorkbook.Worksheets("KQ MONG_MUON").Cells.Copy
    ThisWorkbook.Worksheets(A).Activate
    Cells.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
    SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = True
    [A1].Select
  Next
End Sub

Cảm ơn HeSanbi đã giúp đỡ, thực tế thì không có sheet KQ MONG_MUON đâu ạ.
Với lại dữ liệu DL BAN_DAU thì rất đa dạng lúc thì gộp ô dòng này lúc thì gộp ô dòng khác nhưng có quy định rõ ràng như OT đã nêu ở sheet KQ MONG_MUON đó ạ , vì nếu dữ liệu luôn cố định như vậy thì OT cũng đã làm một cái sheet định dạng sẵn rồi copy sang như cách trên ạ.
Rất mong tiếp tục nhận được sự giúp đỡ của các bạn và mọi người.

 

[HeSanbi]

Vậy OT đành chờ người khác thôi, lười xem File