Xin các thầy giúp em rút gọn macro định dang bảng tính (1 người xem)

[gamegamegamegame]

em có ghi một macro định dạng
kẻ khung
chỉnh font
chinh cở chử
chinh kích thước hàng
canh giữa
em muống rút gọn code lại thì phải viết như thế nào ạ
mông được góp ý

 

[giangleloi]

em có ghi một macro định dạng
kẻ khung
chỉnh font
chinh cở chử
chinh kích thước hàng
canh giữa
em muống rút gọn code lại thì phải viết như thế nào ạ
mông được góp ý

Thử đoạn code này xem:

Sub dinhdang()
With [B2:E6]
    .Borders.LineStyle = xlContinuous
    .Font.Name = "Times New Roman"
    .Font.Size = 11
    .Rows.AutoFit
    .HorizontalAlignment = xlCenter
End With
End Sub

 

[gamegamegamegame]

Thử đoạn code này xem:

Sub dinhdang()
With [B2:E6]
    .Borders.LineStyle = xlContinuous
    .Font.Name = "Times New Roman"
    .Font.Size = 11
    .Rows.AutoFit
    .HorizontalAlignment = xlCenter
End With
End Sub

dạ được rồi
cho em hỏi thêm một vấn đề nữa nha
vd : nếu tự B6 TRỞ XUỐNG MÀ CÓ DỮ LIỆU THÌ CODE SẼ TỰ ĐỘNG ĐỊNH DẠNG NHƯ Ở TRÊN THÌ CÓ LÀM ĐƯỢC KO Ạ

 

[giangleloi]

dạ được rồi
cho em hỏi thêm một vấn đề nữa nha
vd : nếu tự B6 TRỞ XUỐNG MÀ CÓ DỮ LIỆU THÌ CODE SẼ TỰ ĐỘNG ĐỊNH DẠNG NHƯ Ở TRÊN THÌ CÓ LÀM ĐƯỢC KO Ạ

Thì lúc này mình phải xác định dòng cuối. Kiểu như thế này:

Sub dinhdang()
Dim lr
lr = Range("B" & Rows.Count).End(3).Row
With Range("B2:E" & lr)
    .Borders.LineStyle = xlContinuous
    .Font.Name = "Times New Roman"
    .Font.Size = 11
    .Rows.AutoFit
    .HorizontalAlignment = xlCenter
End With

 

[gamegamegamegame]

Thì lúc này mình phải xác định dòng cuối. Kiểu như thế này:

Sub dinhdang()
Dim lr
lr = Range("B" & Rows.Count).End(3).Row
With Range("B2:E" & lr)
    .Borders.LineStyle = xlContinuous
    .Font.Name = "Times New Roman"
    .Font.Size = 11
    .Rows.AutoFit
    .HorizontalAlignment = xlCenter
End With

dạ cảm ơn em làm đc rồi

 

[dangkhoa1227]

Cho mình hỏi nếu dữ liệu trên 20 000 dòng thì lúc này dòng code .HorizontalAlignment = xlCenter rất chậm, có cách nào cải thiện tốc độ nhanh hơn không ạ ?

 

[tuan.1985]

Em đã xử được ròi
Nhờ mod xoá giúp bài viết này ah

 

[tuan.1985]

Sau khi thử được sheet 1 okie thì em đung phải vấn đề như sau, chi tiết xem file đính kèm, em mô tả ngắn như bên dưới
Nhờ anh chị giúp đỡ em với

File có 2 sheet chính
Sheet RU và PU
Sheet RU nhập ký tự cột B thì stt tự động lấy cho ra ở cột A

Và như vậy cột STT ở sheet PU tự động lấy theo STT ở sheet RU

Em đã gắn code kẻ dòng tự động khi nhập ký tự ở cột B sheet RU => đã chạy ngon lành

Bên sheet PU em cũng gắn code tương tự nhưng nhập ký tự ở cột B sheet RU thì stt bên sheet PU cũng nhảy nhưng hok ăn kẻ dòng

Chi tiết ở file đính kèm
nhờ anh chị hỗ trợ giúp e

 

[VetMini]

Em đã xử được ròi
Nhờ mod xoá giúp bài viết này ah

Sau khi thử được sheet 1 okie thì em đung phải vấn đề như sau, chi tiết xem file đính kèm, em mô tả ngắn như bên dưới
Nhờ anh chị giúp đỡ em với

File có 2 sheet chính
Sheet RU và PU
Sheet RU nhập ký tự cột B thì stt tự động lấy cho ra ở cột A

Và như vậy cột STT ở sheet PU tự động lấy theo STT ở sheet RU

Em đã gắn code kẻ dòng tự động khi nhập ký tự ở cột B sheet RU => đã chạy ngon lành

Bên sheet PU em cũng gắn code tương tự nhưng nhập ký tự ở cột B sheet RU thì stt bên sheet PU cũng nhảy nhưng hok ăn kẻ dòng

Chi tiết ở file đính kèm
nhờ anh chị hỗ trợ giúp e

Tôi là người rất tự phụ mà phải cúi mình chào người ngang ngược như bạn.
Tự dưng xen vào thớt của người ta để hỏi chuyện của mình, hỏi xong rồi đồi xoá, rồi lại vào hỏi nữa.
Bạn làm như thớt của người ta là tờ giấy nháp của bạn vậy.

 

[giaiphap]

Sau khi thử được sheet 1 okie thì em đung phải vấn đề như sau, chi tiết xem file đính kèm, em mô tả ngắn như bên dưới
Nhờ anh chị giúp đỡ em với

File có 2 sheet chính
Sheet RU và PU
Sheet RU nhập ký tự cột B thì stt tự động lấy cho ra ở cột A

Và như vậy cột STT ở sheet PU tự động lấy theo STT ở sheet RU

Em đã gắn code kẻ dòng tự động khi nhập ký tự ở cột B sheet RU => đã chạy ngon lành

Bên sheet PU em cũng gắn code tương tự nhưng nhập ký tự ở cột B sheet RU thì stt bên sheet PU cũng nhảy nhưng hok ăn kẻ dòng

Chi tiết ở file đính kèm
nhờ anh chị hỗ trợ giúp e

Bạn xem file đúng ý bạn chưa

 

[tuan.1985]

Mình test thử thì chỉ nhảy stt, kẻ dòng ở sheet RU, còn sheet PU chỉ nhảy stt mà kg tự động kẻ dòng
Mong các bạn hỗ trợ giúp với ah