Hỏi cách ẩn dòng cột bằng VBA (1 người xem)

Liên hệ QC

Người dùng đang xem chủ đề này

spirit1989

Thành viên mới
Tham gia
16/12/07
Bài viết
26
Được thích
2
Các bạn cho mình hỏi có cách nào ẩn dòng, cột bằng VBA không?
VD mình muốn ẩn cột C D G và từ dòng 2 tới 5
Chỉ có pass để vào vba mới unhide được nha các bạn, còn click chuột phải unhide bình thường thì không được

cảm ơn các bạn trước nhé
 
Lần chỉnh sửa cuối:
Các bạn cho mình hỏi có cách nào ẩn dòng, cột bằng VBA không?
VD mình muốn ẩn cột C D G và từ dòng 2 tới 5
cảm ơn các bạn trước nhé
Nó là thế này:
Mã:
Sub Test()
    Range("C:D,G:G").EntireColumn.Hidden = True
    Range("2:5").EntireRow.Hidden = True
End Sub
 
Upvote 0
Các bạn cho mình hỏi có cách nào ẩn dòng, cột bằng VBA không?
VD mình muốn ẩn cột C D G và từ dòng 2 tới 5
cảm ơn các bạn trước nhé

Chắc là bạn mới học macro, bạn dùng thêm chức năng record macro sẽ rất có ích trong quá trình làm việc
 
Lần chỉnh sửa cuối:
Upvote 0
Nó là thế này:
Mã:
Sub Test()
    Range("C:D,G:G").EntireColumn.Hidden = True
    Range("2:5").EntireRow.Hidden = True
End Sub

Chắc là bạn mới học macro, bạn dùng thêm chức năng record macro sẽ rất có ích trong quá trình làm việc

bạn có cách nào cho nó tự chạy không? mà khi muốn bỏ ẩn thì không thể dùng chuột phải để unhide

nghĩa là mình muốn ẩn những dòng và cột đó nhưng người khác không thể unhide được, chỉ có pass để vào VBA mới được thôi
 
Lần chỉnh sửa cuối:
Upvote 0
bạn có cách nào cho nó tự chạy không? mà khi muốn bỏ ẩn thì không thể dùng chuột phải để unhide

nghĩa là mình muốn ẩn những dòng và cột đó nhưng người khác không thể unhide được, chỉ có pass để vào VBA mới được thôi

Thử code này xem
Mã:
Sub ab()
     Range("A1", "XFD1048576").Locked = False
     With Range("C:D,G:G")
            .EntireColumn.Hidden = True
            .Locked = True
     End With
     ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

hoặc là làm thủ công, vào review - --> protect worksheet.........
 
Upvote 0
Thử code này xem
Mã:
Sub ab()
     Range("A1", "XFD1048576").Locked = False
     With Range("C:D,G:G")
            .EntireColumn.Hidden = True
            .Locked = True
     End With
     ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
End Sub

hoặc là làm thủ công, vào review - --> protect worksheet.........
Chi mà phải phức tạp dữ vậy bạn? Thuộc tính Locked thì cứ để kệ nó chứ cần gì phải thay đổi? Vì thuộc tính này không phải là mấu chốt của vấn đề Unhide các cột. Mấu chốt vấn đề chỉ là câu lệnh ActiveSheet.Protect "Password".
 
Upvote 0
Chi mà phải phức tạp dữ vậy bạn? Thuộc tính Locked thì cứ để kệ nó chứ cần gì phải thay đổi? Vì thuộc tính này không phải là mấu chốt của vấn đề Unhide các cột. Mấu chốt vấn đề chỉ là câu lệnh ActiveSheet.Protect "Password".

Lâu rồi ko ktra lại ,ngày xưa nếu chỉ muốn Khóa các cells ở cột C:D,G:G ,mình thường ctrl A để locked đi --> nếu không thì ko tương tác được với các cells khác khi protect
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom