Tạo Broder, Bold cho bảng tính có tính CO DÃN. (1 người xem)

[Hong.Van]

Em chào thầy cô & anh chị
Về việc Broder & bold cho bảng tính thì em cũng đã làm bằng CF
Giờ em muốn biết thêm về code, em đã Record Macro, nhưng do bảng tính của em có tính co dãn từ dòng thứ 9 trở xuống, vì thế Record chưa đạt hiệu quả. Thầy cô & anh chị làm mẫu giúp em bài này, để em áp dụng vào thực tế.

Ý muốn của em như sau:
1/ Bold đậm các dòng 9, 34, 40, 46
2/ Đóng khung bảng tính:
a/ Đường Line xung quanh bảng tính & line đứng: nét liền
b/ Đường line ngang: nét đứt quãng
c/riêng dòng cộng thì đóng khung nét liền

Ở File đính kèm: Sheet1 : chưa Broder & Bold, Sheet2 : minh họa Broder & Bold
Em cảm ơn!

 

[viehoai]

Em chào thầy cô & anh chị
Về việc Broder & bold cho bảng tính thì em cũng đã làm bằng CF
Giờ em muốn biết thêm về code, em đã Record Macro, nhưng do bảng tính của em có tính co dãn từ dòng thứ 9 trở xuống, vì thế Record chưa đạt hiệu quả. Thầy cô & anh chị làm mẫu giúp em bài này, để em áp dụng vào thực tế.

Ý muốn của em như sau:
1/ Bold đậm các dòng 9, 34, 40, 46
2/ Đóng khung bảng tính:
a/ Đường Line xung quanh bảng tính & line đứng: nét liền
b/ Đường line ngang: nét đứt quãng
c/riêng dòng cộng thì đóng khung nét liền

Ở File đính kèm: Sheet1 : chưa Broder & Bold, Sheet2 : minh họa Broder & Bold
Em cảm ơn!

1. Quét vùng A9:M45, dùng CF với công thức: =AND(ISTEXT($A9);$A9<>"")
2. Đóng khung đã có sẵn cần gì code bạn, chỉ vài giây là xong mà
Nếu thích code thì bạn xem code sau và tùy theo nhu cầu củ bạn để thay đổi

Sub Macro1()
    With Range("A9:M" & Sheet1.Range("M65500").End(xlUp).Row - 1).Borders
        .LineStyle = xlContinuous
        .Weight = xlThin
    End With
    
     With Range("A9:M" & Sheet1.Range("M65500").End(xlUp).Row - 1).Borders(xlInsideHorizontal)
        .LineStyle = xlContinuous
        .Weight = xlHairline
    End With
End Sub

 

[Quang_Hải]

Em chào thầy cô & anh chị
Về việc Broder & bold cho bảng tính thì em cũng đã làm bằng CF
Giờ em muốn biết thêm về code, em đã Record Macro, nhưng do bảng tính của em có tính co dãn từ dòng thứ 9 trở xuống, vì thế Record chưa đạt hiệu quả. Thầy cô & anh chị làm mẫu giúp em bài này, để em áp dụng vào thực tế.

Ý muốn của em như sau:
1/ Bold đậm các dòng 9, 34, 40, 46
2/ Đóng khung bảng tính:
a/ Đường Line xung quanh bảng tính & line đứng: nét liền
b/ Đường line ngang: nét đứt quãng
c/riêng dòng cộng thì đóng khung nét liền

...
Chăc bạn muốn thế này

 

[SA_DQ]

Thì còn 1 cách khác nữa, đó là bạn định dạng sẵn với bảng tính số liệu dãn hết cỡ

nhưng do bảng tính của em có tính co dãn từ dòng thứ 9 trở xuống, vì thế Record chưa đạt hiệu quả.

Ý mình là, hiện tại số liệu của bạn chỉ tới dòng 46 & dòng này đang chứa tồng của cột

Bạn đem dòng này xuống tới dòng max + 9 nào đó;
Cần chú í rằng, các công thức tổng trong hàng cuối này ta có thể lập bằng cách khác, để uyễn chuyển hơn trong sử dụng, như sau:

Thực ra trị đang chứa trong [E46] =SUM(E9:E45)/2

Nên nếu giả dụ bạn đem dòng này xuống dòng 199 thì công thức vẫn chỉ là =SUM(E9:E198)/2

Như vậy fần công thức đã OK;
Việc còn lại macro chỉ là ẩn đi các dòng (đã được bạn format) từ dòng 198 tới dòng dưới dòng cuối có dữ liệu

Cụ thể:

(*) Sau khi đã đem dòng 46 xuống dòng 200; macro chỉ làm nhiệm vụ ẩn đi dòng 46 đến dòng 199;

(Còn chuyện xác định dòng cuối chứa dữ liệu là tầm tay của bạn, fải không nào?!

Chuyện này mình hay giả quyết với các hoá đơn mua bán hàng hoá với số mặt hàng khôgn cố định.

Thực hiện fương án này bạn sẽ có trỡ ngại gì không?