Cần giúp đỡ dấu các sheet chỉ để lại 1 sheet đầu tiên

[topspeed2179]

Chào các anh chị,
Hiện mình có 1 file excel quản lý hàng hóa. Nhưng mình chỉ muốn để lại 1 sheet form đầu tiên còn lại thì dấu hết (nhưng khi vào format sẽ không hiển thị được) có lẽ phải dùng VBA nhưng không biết làm thế nào.
rất mong mọi người giúp đỡ và hướng dẫn code ứng với các sheet và định dạng trong file mình kèm theo đây
Vì form (sheet) đầu tiên mình có các combo box để liên kết đến các sheet sẵn có.
Mình cũng có xem qua bài viết nào đó trong diễn dàn nhưng không hiểu gì cả.
Cám ơn anh chị đã quan tâm và giúp đỡ.
Thanks all!

 

[vu_tuan_manh_linh]

Code đây bạn:
-------------
Sub Hidden_Sheet()
Dim Sh As Worksheet
For Each Sh In ActiveWorkbook.Worksheets
If Sh.Index > 1 Then
Sh.Visible = xlSheetVeryHidden
End If
Next
End Sub

 

[topspeed2179]

Code đây bạn:
-------------
Sub Hidden_Sheet()
Dim Sh As Worksheet
For Each Sh In ActiveWorkbook.Worksheets
If Sh.Index > 1 Then
Sh.Visible = xlSheetVeryHidden
End If
Next
End Sub

Mình cho vào và khi chạy nó dấu được sheet, nhưng nó báo lỗi "1004" khi click vô bất kỳ lệnh nào ở "form"
Mong các anh chị giúp đỡ
Thanks all!

 

[nmhung49]

Mình cho vào và khi chạy nó dấu được sheet, nhưng nó báo lỗi "1004" khi click vô bất kỳ lệnh nào ở "form"
Mong các anh chị giúp đỡ
Thanks all!

Mình làm thử đơn giản cho bạn form này bạn xem sao

 

[topspeed2179]

Mình làm thử đơn giản cho bạn form này bạn xem sao

Thanks bạn nhiều.
Cái này bạn làm bằng VBA phải k? Có thể cho mình tham khảo code và chú thích được không vậy?
1. Nhưng các link mình tạo ở phía dưới như: Doanh thu, Công nợ, chi phí, dịch vụ. Khi click vô nó không hiển thị
2. Khi mình muốn hiển thị lại các sheet thì làm thế nào a?
Mong được giúp đỡ.
Thanks all!

 

[nmhung49]

Thanks bạn nhiều.
Cái này bạn làm bằng VBA phải k? Có thể cho mình tham khảo code và chú thích được không vậy?
1. Nhưng các link mình tạo ở phía dưới như: Doanh thu, Công nợ, chi phí, dịch vụ. Khi click vô nó không hiển thị
2. Khi mình muốn hiển thị lại các sheet thì làm thế nào a?
Mong được giúp đỡ.
Thanks all!

Bạn double click vào những ô đó rồi quay ra thử xem sao. Bạn tải lai file trên nhen. Mình đâu có đặt pass biết gì đâu mà bạn coi không được nằm trong sheet form đó bạn mở ra xem. Chưa gì hết mà tạo form đăng nhập rồi ghê hen. he...he...

 

[topspeed2179]

oh, thanks bạn, Nhưng mình không click 1 cái được hay sao?
Phải double click mới đc.
Fix dùm mình với!
Còn muốn hiện ra lại tất cả thì phải làm sao?
Mong sớm nhận được phản hồi
thanks all!

 

[minhhangg]

oh, thanks bạn, Nhưng mình không click 1 cái được hay sao?
Phải double click mới đc.
Fix dùm mình với!
Còn muốn hiện ra lại tất cả thì phải làm sao?
Mong sớm nhận được phản hồi
thanks all!

Muốn hiện lại các sheet bạn dùng phím Alt+O ==>Sheet==>Unhide==> chọn sheet cần hiện.

 

[nghiaphuc]

Còn muốn hiện ra lại tất cả thì phải làm sao?
Mong sớm nhận được phản hồi
thanks all!

Code đại loại như vầy:

For Each Ws In ThisWorkbook.Sheets
    Ws.Visible = -1
Next

 

[topspeed2179]

Có ai giúp mình làm thành 1 cái hoàn chỉnh với.
Hiện click 2 lần mới chuyển sheet đc.
Với lại mình không muốn Unhide trong menu format
Thanks all

 

[nmhung49]

Có ai giúp mình làm thành 1 cái hoàn chỉnh với.
Hiện click 2 lần mới chuyển sheet đc.
Với lại mình không muốn Unhide trong menu format
Thanks all

Bạn xem lại file này xem click 1 lần vào từ ô sẽ link tới sheet muốn tới luôn

 

[topspeed2179]

Cám ơn Đã giúp mình
nmhung49


Nhưng mình muốn click vô cả những cell: DỊCH VỤ; CÔNG NỢ, DOANH THU, CHI PHÍ... Chỉ click 1 cái sẽ đến shhet cần đến, hiện vẫn đang click 2 cái mới chuyển được.
Cách đặt Hide và Unhide bằng nút lệnh đó khá hay nhưng cho nó màu trắng hoặc cùng màu với màu nền là ok mình nhớ nó nằm đâu và click còn người khác thì k thấy í . thanks nhiều!
Xem lại giúp mình lại chỗ đó với và chỗ click 1 cái vô các link nữa
Thanks all!

 

[nmhung49]

Nhưng mình muốn click vô cả những cell: DỊCH VỤ; CÔNG NỢ, DOANH THU, CHI PHÍ... Chỉ click 1 cái sẽ đến shhet cần đến, hiện vẫn đang click 2 cái mới chuyển được.
Cách đặt Hide và Unhide bằng nút lệnh đó khá hay nhưng cho nó màu trắng hoặc cùng màu với màu nền là ok mình nhớ nó nằm đâu và click còn người khác thì k thấy í . thanks nhiều!
Xem lại giúp mình lại chỗ đó với và chỗ click 1 cái vô các link nữa
Thanks all!

Ủa sao Mình thấy chỉ click 1 cái mà bạn, còn tô màu thì bạn tô màu cùng màu với màu nền. Còn bạn muốn dấu chỗ nào thì di chuyển đến chỗ đó, đâu bạn làm thử xem sao

 

[topspeed2179]

Thanks bạn nha, khi mình áp dụng vô 1 cái tương tự vẫn không được, còn cái cũ thì ok.
Mình up file lên bạn xem dùm mình, mình add code vô mà nó k chạy
Còn cái khung "Unhide" mình link thế nào vậy bạn chỉ dùm luôn nha.
thanks a lots.

 

[nmhung49]

File bạn gửi có code nào đâu mà add, còn muốn add code vào khung "Unhide" thì bạn chọn khung đó rồi nhấn chuột phải chọn Assign Macro trong danh sách Macro Name bạn chọn tên macro (thủ tục Sub đó) muốn gán rồi click ok, mà bạn làm được file này mà không biết gán macro nghĩ cũng lạ

 

[topspeed2179]

File bạn gửi có code nào đâu mà add, còn muốn add code vào khung "Unhide" thì bạn chọn khung đó rồi nhấn chuột phải chọn Assign Macro trong danh sách Macro Name bạn chọn tên macro (thủ tục Sub đó) muốn gán rồi click ok, mà bạn làm được file này mà không biết gán macro nghĩ cũng lạ

Ah không phải, cái file này lâu rồi có người bạn share cho, cũng mới sử dụng đây nên k có rành lắm
Mình Add macro như bạn ở trên thì hide và unhide được rồi, Nhưng vẫn báo lỗi "run time eror 1004" không biết còn sai chỗ nào nữa!
Vậy bạn làm giúp mình phần này vào file mới gửi được k, thanks bạn nhiều

P/s: Bạn nmhung49 ơi thì ra báo lỗi "1004" là do mình hide sheet còn unhide thì không báo.
vậy có cách nào để khi hide sheet mà vẫn dùng được các liên kết ở "form" không?

 

[nmhung49]

Sorry vậy mình giới thiệu sơ sơ về code cho bạn hiểu. Bạn nhấn Alt+F11 thì sẽ hiện lện cửa sổ VBA, bên cửa sổ VBA Project bạn đúp vào Thisworkbook trong đây sẽ có code, nó hoạt động khi bạn mở file lên thì tất cả các sheets trong file đó điều bị ẩn hết. Trong Module 1 có code Unhidesh thì dùng để bạn muốn ẩn hoặc không ẩn hết các sheet khi bạn cần
Nếu muốn thiết kế nút để ẩn hoặc hiện đó thì bạn phải biết tên hình mà bạn vẽ là tên gì, nhãn của hình bạn vẽ là gì (Có rất nhiều cách để làm cho nó hiện toàn bộ sheet hoặc ẩn toàn bộ sheet). Trong file đó tên hình của mình là "RCHIDE" để biết tên hình đó bạn nhấn vào hình đó rồ nhìn trên ô name kế bên thanh formular chỗ bạn nhập công thức vào đó
Có Nhãn của hình mình thiết kế là UnHideSheets nhìn vào thấy liền đó
Để gán cho hình đó có hiệu lực tức là nhấn vào đó thì nó hiện or ẩn toàn bộ sheets thì bạn phải viết cho nó lệnh
Trong file này lệnh của nó mình viết trong Module1 có tên là unhidesh, và cách gán cho hình đó thì bạn chọn khung đó rồi nhấn chuột phải chọn Assign Macro trong danh sách Macro Name bạn chọn tên macro (thủ tục Sub đó) muốn gán rồi click ok
Hiện giờ trong file này thì để nút lệnh đó trên ô Q1 nếu bạn muốn giấu thì để chỗ khác hoặc format cho nó ẩn luôn cũng được. Mà file bạn có pass nên mình làm tới đó thôi

 

[topspeed2179]

Trùi thiệt tình là bạn nhiệt tình quá, mình đã hiểu.
hiện các liên kết ở dưới tự tạo bằng tay thêm như: DỊCH VỤ, DOANH THU, CÔNG NỢ, CHI PHÍ thì ẩn sheet nó cg link đc. Nhưng còn các box ở trên như: PHÁT SINH, THẺ KHO,..... thì vẫn còn báo lỗi "Run time eror 1004" khi click vô.

Còn phần ở trên nữa, vui lòng giúp mình nhé.
Tiện đây cho mình hỏi thêm là: Mình muốn ẩn tất cả các thanh tiêu đề, ẩn các tên cột, hàng như: các ký tự: A B C D,.... 1 2 3 4..... thì có thực hiện được không và phải thực hiện như thế nào.

 

[nmhung49]

hiện các liên kết ở dưới tự tạo bằng tay thêm như: DỊCH VỤ, DOANH THU, CÔNG NỢ, CHI PHÍ thì ẩn sheet nó cg link đc. Nhưng còn các box ở trên như: PHÁT SINH, THẺ KHO,..... thì vẫn còn báo lỗi "Run time eror 1004" khi click vô.

Quên mình quên gán lại mấy nút lệnh đó, nếu dùng hyperlink thì không thể link tới sheet đang ẩn bạn ah, thôi dùng lệnh hết luôn đi.

Tiện đây cho mình hỏi thêm là: Mình muốn ẩn tất cả các thanh tiêu đề, ẩn các tên cột, hàng như: các ký tự: A B C D,.... 1 2 3 4..... thì có thực hiện được không và phải thực hiện như thế nào.

Bạn tải lại file trên xem sao nhen

 

[topspeed2179]

Quên mình quên gán lại mấy nút lệnh đó, nếu dùng hyperlink thì không thể link tới sheet đang ẩn bạn ah, thôi dùng lệnh hết luôn đi.

Bạn tải lại file trên xem sao nhen

Sao mình thấy 1 số sheet bị ẩn luôn không hiển thị khi tạo lại hyperlink như sheet "CÔNG NỢ"...
Trong sheet "DOANH THU" có nút lệnh "CHI PHÍ", "CÔNG NỢ" Khi click vô nó không quay lại sheet tương ứng được
Nếu dùng lệnh hết luôn, bạn chỉ cho mình với, lỡ có thêm thì áp dụng
Ẩn được hết mấy cái kia luôn hay thiệt, mà cho hiện lại thì làm sao a? Mình muốn vô ẩn trong các sheet kia luôn cho nó đẹp
Thanks!