Xin code menu ẩn hiện sheet bằng checkbox (1 người xem)

[vidangtinhyeu99]

Xin nhờ giúp huynh nào coi cái file êxcl: AMT ver 2.0 có cái menu thiết kế khi nào kích vào check đó hiện sheet đó ra, ngược lại bỏ thì ẩn, huynh nào biết cách chỉ giáo hộ

http://giaxaydung.vn/diendan/attach...cu-bao-cao-du-von-oda-amt-amt-version-2.0.rar

 

[ndu96081631]

Bạn đưa link gì vậy? Có nhìn thấy file nào đâu!
Gữi file lại đi bạn ơi!

 

[Po_Pikachu]

Bạn nên đưa link trực tiếp chứ đừng thông qua 1 diễn đàn khác. Vì mấy ai có tài khoản acc bên diễn đàn đó đâu. Tốt nhất bạn nên download file đó về rồi gửi lên diễn đàn GPE luôn vậy là được. Hoặc thông qua các trang web lưu trữ trực tuyến trên mạng như www.box.net, www.mediafire.com, v.v... Thân.

 

[cadafi]

Xin nhờ giúp huynh nào coi cái file êxcl: AMT ver 2.0 có cái menu thiết kế khi nào kích vào check đó hiện sheet đó ra, ngược lại bỏ thì ẩn, huynh nào biết cách chỉ giáo hộ

Mình gửi giúp bạn vidanghtinhyeu99 file đính kèm! Các bạn lưu lý: File có Pass khóa VBA, mình nghĩ kh6ong do chủ đích của chủ topic! Mình cũng không biết ai là tác giả của file này cả!

Vấn đề bạn nêu ra không khó! Mọi người sẽ giúp bạn!

(Thực sự lúc đầu bạn gửi PM cho mình, mình chưa hiểu ý bạn là gì! Đọc xong topic này thì ngộ ngộ ra)
(File khá nặng nên mình sẽ gỡ attached file sau 2 ngày nhé!)

 

[Po_Pikachu]

Bạn sửa tất cả code trong Sheet10 ("Home") từ như sau:

Private Sub cbF11_Click()         If (Worksheets("Home").Range("E19")  "N/A") Then             Call UnprotectBook             If Worksheets("Home").cbF11.Value = True Then                 Worksheets("F11-Bidding Results").Visible = xlSheetVisible             Else                 Worksheets("F11-Bidding Results").Visible = xlSheetHidden             End If             Call ProtectBook         End If End Sub

Thành:

Private Sub cbF11_Click()         If (Worksheets("Home").Range("E19")  "N/A") Then             Call UnprotectBook             If Worksheets("Home").cbF11.Value = True Then                 Worksheets("F11-Bidding Results").Visible = xlSheetVisible                 Worksheets("F11-Bidding Results").Select             Else                 Worksheets("F11-Bidding Results").Visible = xlSheetHidden             End If             Call ProtectBook         End If End Sub

Đây chỉ là 1 cách thôi! Nhưng không phải là cách hay vì nó ngốn rất nhiều dung lượng. Mình xin kiến nghị bạn 1 cách khác là dùng Hyperlink thay cho Check Box. Vì nó chỉ đẹp khi dùng ít thôi, còn nhiều như vầy thì không nên tí nào! Thân.

 

[vidangtinhyeu99]

Trước tiên mình xin cảm ơn mọi người giúp đỡ, vì mình chỉ muốn mọi người giúp mình làm cái menu y như thế thôi chứ không phải phá cái file nầy. Nghĩa là 1 sheet tạo menu dang check box như file nầy , check vào thì hiện không check ẩn sheet đó đi, chọn all thì hiện tất cả. Xin cảm ơn các huynh nào giúp , vì quá trình làm nhiều sheet wá thiết kế được như file nầy đúng tuyệt, vì mình cũng không rành VBA lắm nên cho mình xin file ví dụ luôn nhé thank nhiều nhiều

 

[rollover79]

Trước tiên mình xin cảm ơn mọi người giúp đỡ, vì mình chỉ muốn mọi người giúp mình làm cái menu y như thế thôi chứ không phải phá cái file nầy. Nghĩa là 1 sheet tạo menu dang check box như file nầy , check vào thì hiện không check ẩn sheet đó đi, chọn all thì hiện tất cả. Xin cảm ơn các huynh nào giúp , vì quá trình làm nhiều sheet wá thiết kế được như file nầy đúng tuyệt, vì mình cũng không rành VBA lắm nên cho mình xin file ví dụ luôn nhé thank nhiều nhiều

Bạn xem thử file đính kèm. Thêm Sheet thì bạn thêm checkbox với cách tạo và viết code tương tự.

 

[vidangtinhyeu99]

OK thank rollver79 nhiều

 

[youban]

có bạn nào làm đc chưa chỉ mình cách làm với !