Định dạng cho 1 vài cột trong tất cả các sheet

[kimdong80]

Chào mọi người.Mong mọi người giúp mình vấn đề này. Mình muốn định dạng cột A và cột D theo dạng text. Mà định dạng cho tất cả các sheet luôn.Mở thêm sheet mới cũng giống như vậy luôn

 

[Po_Pikachu]

Bạn nhấn vào Sheet đầu tiên trên thanh tên sheet -> giữ phím Shift rồi nhấn tiếp tên shee cuối cùng trong danh sách tên sheet (Mục đích để chọn toàn bộ sheet thành 1 Group).
Rồi bạn quét chọn cột A và cột D chọn Format Cells -> Text.. Vậy là xong.
Thân.

 

[kimdong80]

cám ơn bạn.Nhưng ý mình muốn còn nhiều hơn nữa. Đó là khi chèn thêm sheet mới thì cũng định dạng như vậy luôn.Vì mỗi workbook của mình gồm rất nhiều sheet mà đến ngày hoặc khi cần làm gì đó mới chèn thêm vô

 

[Pozsi]

Cái này thì e rằng botay rồi! Mỗi lần chèn 1 sheet mới thì Excel điều chèn vào 1 trang trắng hoàn toàn cả, không có cách nào Insert tự động như vậy được đâu.

 

[mythuat4p]

Ai bảo thế. Pozsi lừa bạn rồi. Làm được đó. Thử tìm hiểu xem. Hehe

 

[ChanhTQ@]

Cụ thể là thế này

Ai bảo thế. Pozsi lừa bạn rồi. Làm được đó. Thử tìm hiểu xem. Hehe

Option Explicit
Private Sub Workbook_NewSheet(ByVal Sh As Object)
 FormatColumnsAllSheets
 MsgBox "Thanks!"
End Sub

Private Sub Workbook_WindowActivate(ByVal Wn As Window)
   FormatColumnsAllSheets
   MsgBox "Xin Cam On!"
End Sub

[B]Sub FormatColumnsAllSheets()[/B]
 Dim Sh As Worksheet
 
 For Each Sh In Sheets
    Range("A:A,D:D").NumberFormat = "@"
 Next Sh
 
[B]End Sub[/B]