Kieu Cong Vo
Thành viên mới
- Tham gia
- 17/10/22
- Bài viết
- 1
- Được thích
- 0
Xin chào các anh chị, các bạn. Mình không biết cách hỏi trên diễn đàn nên hỏi ở đây: Do phải điều chỉnh nhiều lần số thứ tự thanh tà vẹt cần phải thay thế nên lúc nhập không sắp xếp ngay được theo tăng dần (Vị trí tà vẹt được đánh số từ đầu đến cuối của 1 bộ ghi từ 1 đến 60). Muốn xin các anh, chị, các bạn code để sau khi nhập thì tự sắp xếp tăng dần. Để bản in ra từ cột A đến cột V thì số tà vẹt tại các ô trong cột V theo thứ tự tăng dần. Trân thành cảm ơn anh chị và các bạn.Khi Protect Sheet, bạn chọn thêm các thuộc tính sau:
Format cells
Format columns
Format rows
Như vậy, bạn có thể Format tất cả trên đó mà không phải sợ mất dữ liệu.
Còn không thì trong code của nghiaphuc bạn thêm như vầy:
PHP:Private Sub Worksheet_Activate() ActiveSheet.Unprotect ("Learning_Excel") Dim Rng As Range Application.ScreenUpdating = False For Each Rng In [I19:I42] Rng.EntireRow.Hidden = Rng.Value = "" Next Rng ActiveSheet.Protect ("Learning_Excel") End Sub
Với ("Learning_Excel") là password của bạn!
Nhìn vào code của NghiaPhuc tôi thấy chỉ có ẩn dòng trống tại cột I, còn giá trị = 0 thì không bị ẩn, nên tôi bổ sung lại như sau:
PHP:Private Sub Worksheet_Activate() ActiveSheet.Unprotect ("Learning_Excel") Dim Rng As Range Application.ScreenUpdating = False For Each Rng In [I19:I42] If Rng.Value = "" Or Rng.Value = 0 Then Rng.EntireRow.Hidden = True Next Rng Application.ScreenUpdating = True ActiveSheet.Protect ("Learning_Excel") End Sub
Bài đã được tự động gộp:
Bạn sửa chỗ [I20:I120] thành Sh.[I20:I120] là được.