Tự động ẩn những dòng trống khi di chuyển qua sheet khác

[Nguyễn Diêu Hiền]

Xin chào các anh, chị, em trong diễn đàn!
Mình có file đính kèm. Một sheet DATABASE (chứa dữ liệu) và 1 sheet KET QUA (để xuất dữ liệu). Ở sheet KET QUA nếu các dòng từ số 8 đến 14 bị trống thì nó sẽ tự động ẩn khi mình di chuyển sang sheet khác và quay trở lại.
Mình muốn hỏi, bằng cách nào để thực hiện được lệnh ẩn hiện dòng tự động này, vì mình thấy ở đây không có lệnh VBA và cũng không cài đặt Myexcel.
File này vô tình mình có được và thấy rất hay, vì vậy mình muốn tìm hiểu để ứng dụng vào công việc
Xin chân thành cảm ơn!

 

[BuiQuangThuan]

Xin chào các anh, chị, em trong diễn đàn!
Mình có file đính kèm. Một sheet DATABASE (chứa dữ liệu) và 1 sheet KET QUA (để xuất dữ liệu). Ở sheet KET QUA nếu các dòng từ số 8 đến 14 bị trống thì nó sẽ tự động ẩn khi mình di chuyển sang sheet khác và quay trở lại.
Mình muốn hỏi, bằng cách nào để thực hiện được lệnh ẩn hiện dòng tự động này, vì mình thấy ở đây không có lệnh VBA và cũng không cài đặt Myexcel.
File này vô tình mình có được và thấy rất hay, vì vậy mình muốn tìm hiểu để ứng dụng vào công việc
Xin chân thành cảm ơn!

Nó có code trong này nè. File của bạn có vẻ bị nhiễm virut rồi sao á

 

[dungluyen2119]

Có code ẩn dòng rồi vậy các anh chị cho em xin cái code bỏ ẩn các dòng đã ẩn được không ạ.

 

[SA_DQ]

Sub UnHiddenRows()
 
 Sheets("CSDL").UsedRange.Rows.Hidden = False
End Sub

 

[Nguyễn Diêu Hiền]

View attachment 302340
Nó có code trong này nè. File của bạn có vẻ bị nhiễm virut rồi sao á

Cảm ơn bạn rất nhiều!
Mình đã tìm ra và đã làm được rồi. Cho mình hỏi: Mình muốn xóa các sheet22,23,24... thì phải làm sao?

 

[BuiQuangThuan]

Cảm ơn bạn rất nhiều!
Mình đã tìm ra và đã làm được rồi. Cho mình hỏi: Mình muốn xóa các sheet22,23,24... thì phải làm sao?
View attachment 302344

Không giám nghịch nhiều. Kiểm tra lại

 

[VetMini]

a = Application.DisplayAlerts
Application.DisplayAlerts = False
For Each sh In Sheets(Array("sheet22", "sheet23",...))
sh.Delete
Next sh
Application.DisplayAlerts = a

 

[ptm0412]

Cảm ơn bạn rất nhiều!
Mình đã tìm ra và đã làm được rồi. Cho mình hỏi: Mình muốn xóa các sheet22,23,24... thì phải làm sao?

Click chọn sheet 22 (Bên sheet, không phải bên VBA). Nhấn shift click chọn sheet cuối. Nhấn chuột phải delete sheet

 

[VetMini]

Click chọn sheet 22 (Bên sheet, không phải bên VBA). Nhấn shift click chọn sheet cuối. Nhấn chuột phải delete sheet

Bác hơi chủ quan rồi. Lỡ người ta đã dời sheets tùm lum vị trí rồi sao?

Chú thích:
Muốn làm kiểu trên, phải thu dọn các sheets ấy về một cụm trước.

 

[ptm0412]

Bác hơi chủ quan rồi. Lỡ người ta đã dời sheets tùm lum vị trí rồi sao?

Chú thích:
Muốn làm kiểu trên, phải thu dọn các sheets ấy về một cụm trước.

Áp dụng cụ thể cho file trên thôi anh.

 

[Nguyễn Diêu Hiền]

Không có nhiều phản hồi. Kiểm tra lại

Bạn chỉ cho mình cách để xóa với, do mình đã làm thêm dữ liệu trên file đó mà giờ nó chạy chậm quá, không biết có phải do các sheet này gây ra ko?

 

[BuiQuangThuan]

Bạn chỉ cho mình cách để xóa với, do mình đã làm thêm dữ liệu trên file đó mà giờ nó chạy chậm quá, không biết có phải do các sheet này gây ra ko?

Chậm nó có nhiều nguyên nhân: công thức tham chiếu tới cả cột, hoặc dùng conditionalformating.... Bạn lưu ý những phần đó là được