Tạo Đường Kẻ Cho Bảng Tổng Hợp (1 người xem)

[quykh]

Chào Các AC, em có file này nhờ các AC giúp tạo đường kẻ, fill màu, định dạng số trong sheet TongHop khi nhấn Nút RUN. Mong Các AC xem file TH1. Cám Ơn Các AC

 

[quykh]

Sao chưa thấy Ac nào giúp em . Em xin đưa file này lên cho các AC thấy rỏ. Trong sheet BC, khi nhấn nút RUN thì từ Cell A5 đến Cell E59 có đường kẻ và bôi màu, còn Cell F5 đến H59 thì không có, và trong các sheet chi tiết nhập, Xuất đã định dạng số hàng trăm, hàng nghàn sao trong sheet BC thì lại không định dạng. Mong các AC giúp đỡ!!!!

 

[quykh]

Mong các AC giúp đỡ em bài #2. Cám Ơn

 

[qtm1987]

Bạn thêm đoạn code sau vào thử xem, sửa lại code cho Run là Assign Macro > chọn sub "Start"

Sub Start()
Call BaoCaoNhapXuatTon
Call TrangTriBangTinh
End Sub

Sub TrangTriBangTinh()
Dim sArray, r As Integer
With Sheets("BC")
    sArray = .Range(.[A5], .[A65536].End(xlUp)).Resize(, 8)
    r = UBound(sArray, 1)
.Range("A5:H65536").ClearFormats
'Ke khung cho bang tinh
With .Range("A5:" & "H" & r + 4)
    .Borders(xlDiagonalDown).LineStyle = xlNone
    .Borders(xlDiagonalUp).LineStyle = xlNone
    .Borders(xlEdgeLeft).LineStyle = xlContinuous
    .Borders(xlEdgeBottom).LineStyle = xlContinuous
    .Borders(xlEdgeRight).LineStyle = xlContinuous
    .Borders(xlInsideVertical).LineStyle = xlContinuous
    .Borders(xlInsideHorizontal).LineStyle = xlContinuous
    .VerticalAlignment = xlCenter
End With
'To mau vung chon
With .Range("A5:" & "E" & r + 4).Interior
    .Pattern = xlSolid
    .PatternColorIndex = xlAutomatic
    .ThemeColor = xlThemeColorAccent1
    .TintAndShade = 0.799981688894314
    .PatternTintAndShade = 0
End With
'Dinh dang cot E,F,G,H
.Range("E5:" & "H" & r + 4).NumberFormat = "#,##0.00"
End With

End Sub

 

[quykh]

Cám ơn bạn mình đã thử chạy code của bạn, nhưng bị lỗi ở đoạn: ThemeColor = xlThemeColorAccent1,
và lại mất đường kẻ trên cùng của tiêu đề.
Mình thấy hồi trước các AC trên DD, viết cho mình không cần code cho Border và Pattern mà vẫn có đường kẻ và bôi màu.

 

[qtm1987]

Phần code tô màu bạn có thể dùng Record Marco ghi lại để lấy code (mình dùng excel 2007 sợ mã màu này bạn dùng excel 2003 không có sẽ báo lỗi). Còn như bạn nói không cần code mà vẫn tô màu kẻ dòng được thì dùng Conditional Formatting chọn vùng rồi đặt điều kiện là ok thôi. Mình thấy code dùng thay đổi tùy theo ý mình dễ hơn chứ bạn.