Xóa nhiều sheet cùng lúc trong excel (1 người xem)

[befaint]

Tự record macro làm cho 1 sheet rồi áp dụng cho các sheet khác.

 

[Decepticon]

Tự record macro làm cho 1 sheet rồi áp dụng cho các sheet khác.

mình tìm được macro rồi cơ mà làm sao để macro lưu lại trong excel như add-in bác nhỉ?

Attribute VB_Name = "Module1"
Sub PrintTitle()

Dim ws As Worksheet

For Each ws In ActiveWorkbook.Sheets

'For Each ws In ActiveWindow.SelectedSheets

If ws.Type = xlWorksheet Then

ws.PageSetup.PrintTitleRows = "$5:$6"

End If

Next

End Sub

 

[befaint]

tìm được macro

Đơn giản thế này thôi.
Gán phím tắt rồi lưu thành file.xlam là dùng thôi.

Sub setPrintTitle()
Const sRowsTitle = "$5:$6"
Dim ws as worksheet
For each ws in thisworkbook.Worksheets
ws.PageSetup.PrintTitleRows = sRowsTitle 
Next ws
End Sub

 

[Decepticon]

Đơn giản thế này thôi.
Gán phím tắt rồi lưu thành file.xlam là dùng thôi.

Sub setPrintTitle()
Const sRowsTitle = "$5:$6"
Dim ws as worksheet
For each ws in thisworkbook.Worksheets
ws.PageSetup.PrintTitleRows = sRowsTitle
Next ws
End Sub

tạo phím tắt ntn vậy bác, m vào mục custom ripbon ko thấy @@

 

[befaint]

tạo phím tắt ntn vậy bác, m vào mục custom ripbon ko thấy @@

b t tren mg i

 

[Decepticon]

b t tren mg i

không hiểu bác nhắn j @@

 

[haog]

bác Ba Tê ơi cho em hỏi nếu muốn để lại 3 sheet còn lại xóa hết các sheet khác thì core viết lại thể nào vậy bác. Mong bác chỉ em dùm, em cảm ơn bác.

Theo tôi, cứ sheet nào muốn xóa, bạn nhập vào ô A1 của sheet đó 1 văn bản hiếm. Sau đó sửa code của bác Ba Tê

Public Sub GPE()
' văn bản hiếm là "!@#$"
Application.DisplayAlerts = False
Dim Ws As Worksheet
For Each Ws In Worksheets
'    If Ws.Name <> "GPE" Then Ws.Delete    ''chuyển thành chú thích rồi
    If Ws.Range("A1") = "!@#$" Then Ws.Delete
Next Ws
Application.DisplayAlerts = True
End Sub

Chú ý là đã tính xóa nó đi thì nhập gì vào A1 chẳng được. Nhưng nếu là văn bản thường thì có thể sheets nào đó cũng cùng nội dung thì "chết"

 

[giaiphap]

không hiểu bác nhắn j @@

Bạn muốn người khác trả lời rõ ràng thì bạn phải viết rõ ràng trước đã (Do bạn viết tắt nên sẽ được trả lời bằng viết tắt).

 

[Decepticon]

Sorry các bác e bị quen tay ^^
Bác @giaiphap bổ sung tính năng tạo print tit nhiều sheet vào vn-tools bản mới nha bác. Kiểu giữ shift chọn các sheet cần tạo print tit rùi click vào button [tạo tits] hoặc phím tắt sẽ hiện ra một ô để nhập giá trị PrintTitleRows
ws.PageSetup.PrintTitleRows = "........."

Bạn muốn người khác trả lời rõ ràng thì bạn phải viết rõ ràng trước đã (Do bạn viết tắt nên sẽ được trả lời bằng viết tắt).
View attachment 266680