Hỏi Code Ẩn Hiện Sheet | Giải Pháp Excel
Có thể bạn quan tâm
- Trang chủ Có gì mới Hoạt động gần nhất Tác giả
- Diễn đàn Tìm bài viết mới Tìm theo chuyên mục
- Video
Video về Excel Video về tin học khác Tin tức về tin học chung - Thông tin mới Featured content Tìm bài mới Tài Nguyên Mới Hoạt động gần nhất
- Tài nguyên Đánh giá mới nhất Tìm tài nguyên
- Đóng góp
Tìm kiếm
Mọi nơi Đề tài Diễn đàn này Đề tài này Chỉ tìm trong tiêu đề Note Tìm kiếm Tìm nâng cao…- Tìm bài viết mới
- Tìm theo chuyên mục
Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
- Khách ơi! GPE thông tin đến bạn ấn phẩm "lập trình VBA trong Excel": - Phần cơ bản - Phần Nâng Cao - VBA trong Excel - Cải thiện và tăng tốc
- Trang chủ
- Diễn đàn
- Lập Trình với Excel
- Thread starter Thread starter letuongqt
- Ngày gửi Ngày gửi 15/12/08
Người dùng đang xem chủ đề này
Đang trực tuyến: 2 (Thành viên: 0, Khách: 2) Lletuongqt
Thành viên hoạt động


Tham gia 26/3/08 Bài viết 141 Được thích 24 Đoạn code ẩn hiện sheet lấy từ diễn đàn , khi áp dụng không biết sai chổ nào mà khi dùng liên kết đến sheet vẫn không hiện được sheet . Nhờ các anh hướng dẫn giúp . Rất cảm ơn . (Trước đây tôi đã áp dụng chạy được nhưng bây giờ thì không ). File đính kèm
- ansheet.xls ansheet.xls 27 KB · Đọc: 388
Po_Pikachu
[email protected]
Tham gia 29/4/08 Bài viết 2,209 Được thích 3,572 Nghề nghiệp #VALUE! Mình không biết bạn lấy nó từ đâu nhưng theo mình thì mình sẽ làm cách này! Bạn bỏ hết mấy cái Hyperlink cho các ô C5, C6, C7 đi vì nó đâu có làm được gì đâu. Sữa dữ liệu lại thành tên Sheet tức là C5=a1, C6=a2, C7=a3 Rồi sữa lại đoạn code VBA thành như bên dưới. PHP: Sao chép. Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next For i = 1 To Sheets.Count Step 1 If Sheets(i).Name "mucluc" Then Sheets(i).Visible = False End If Next Sheets(Target.Value).Visible = True Sheets(Target.Value).Select End Sub Và giờ thì bạn thử lại xem có hiệu quả không? Thân. Lần chỉnh sửa cuối: 14/3/15 Upvote 0 TTran Mui
Thành viên thường trực



Tham gia 29/12/07 Bài viết 237 Được thích 56 Cảm ơn PiKaChu Mình cảm ơn bạn trong đoạn code ẩn hiện sheet, mình đã làm theo hướng đãn nhưng trong sheet a2 khi cilk chuột nó cứ nhấp nháy mãi mới được , bạn xem giúp nhé ( file đã chỉnh đính kèm) File đính kèm
- an_hien_sheet2.xls an_hien_sheet2.xls 32.5 KB · Đọc: 466
ndu96081631
Huyền thoại GPE
Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,982 Tran Mui đã viết: Mình cảm ơn bạn trong đoạn code ẩn hiện sheet, mình đã làm theo hướng đãn nhưng trong sheet a2 khi cilk chuột nó cứ nhấp nháy mãi mới được , bạn xem giúp nhé ( file đã chỉnh đính kèm) Nhấp chuột vào đây để mở rộng...Bạn remove mấy cái Hyperlink đi là xong chuyện Thêm nữa: - Code lý ra chỉ cho vào 1 sheet (là sheet Mucluc) ---> Sao bạn paste code vào tùm lum chổ thế kia? - Code có thể rút gọn: PHP: Sao chép. Private Sub Worksheet_SelectionChange(ByVal Target As Range) On Error Resume Next For i = 1 To Sheets.Count Sheets(i).Visible = (Sheets(i).Name = Target Or Sheets(i).Name = "mucluc") Next Sheets(Target).Select End Sub Upvote 0 D
danghochoi1234
Thành viên mới 
Tham gia 5/9/07 Bài viết 16 Được thích 1 Cho em hỏi có cách nào gán macro cho cell nào đó để mình nhấn enter thì nó tự động chạy con macro đó không các bác. Upvote 0 D danghochoi1234
Thành viên mới 
Tham gia 5/9/07 Bài viết 16 Được thích 1 Cho em hỏi có cách nào gán macro cho cell nào đó để mình nhấn enter thì nó tự động chạy con macro đó không các bác. Upvote 0 M minhtuanxl
Thành viên mới 
Tham gia 13/8/08 Bài viết 2 Được thích 1 Hỏi cách ẩn, hiện Sheet Bạn nào biết cách ẩn hiện Sheet trong Excel giúp mình với: Mình đã thử theo cách: Trong bảng tính cần được bảo mật, bạn hãy nhấn ALT+F11 để mở cửa sổ Microsoft Visual Basic ra. Trong cửa sổ Project - VBA Project, nhắp đúp vào VBA Project, tiếp tục nhắp đúp vào Microsoft Excel Objects để mở các bảng tính trong tài liệu sau đó rồi chọn bảng tính mà bạn muốn giấu -> rồi nhấn F4. Trong tùy chọn Visible bạn nhắp vào dấu tam giác chọn 2-xlSheetVeryHidden, cuối cùng đóng Microsoft Visual Basic này lại và xem kết quả thế nào Khi nào muốn bảng tính hiện ra trở lại, thì bạn chỉ cần thực hiện lại các thao tác trên và chọn -1-xlSheetVisible là được. Nhưng có một số Sheet khi mở ẩn không được vì trong Visible nó báo sheet đó ghi 0-xlSheetHiden mà không phải 2-xlSheetVeryHidden để chuyển về 1-xlSheetVisible. Khi bấm về 1-xlSheetVisible thì Micrồt Visual Basic báo Unable to set the Visible property of the Worksheet class Có ai biết giúp mình với Địa chỉ email của mình là: [email protected] Thanks Upvote 0 TrungChinhs
Thành viên tích cực

Tham gia 18/2/08 Bài viết 1,475 Được thích 2,470 Nghề nghiệp Công chức Code ẩn Sheets (2 kiểu ẩn) Mã: Sao chép. Sub HideSheet() Sheets("Sheet2").Visible = 0 Sheets("Sheet3").Visible = 2 End Sub Code hiện Sheet Mã: Sao chép. Sub UnHideSheet() Sheets("Sheet2").Visible = -1 Sheets("Sheet3").Visible = -1 End Sub Upvote 0 H huydinhbk
Thành viên mới 
Tham gia 19/5/10 Bài viết 1 Được thích 1 Nhưng có một số Sheet khi mở ẩn không được vì trong Visible nó báo sheet đó ghi 0-xlSheetHiden mà không phải 2-xlSheetVeryHidden để chuyển về 1-xlSheetVisible. Khi bấm về 1-xlSheetVisible thì Micrồt Visual Basic báo Unable to set the Visible property of the Worksheet class Có ai biết giúp mình với Địa chỉ email của mình là: [email protected] Thanks trả lời: workbook cua bạn đã bị protect, chỉ cần unprotect là xong. quá đơn giản có vấn đề j chưa rõ yahoo mes tui là : huydinhbk Upvote 0 H huyphan
Thành viên mới 
Tham gia 19/11/07 Bài viết 39 Được thích 1 111 Mình cũng bị như trên, không mở được sheet thì làm sao unprotect sheet đó hả bạn? giúp mình với!!! Upvote 0 T thcshaily
Thành viên mới 
Tham gia 1/9/11 Bài viết 12 Được thích 0 Nhờ các bác chỉ giúp cặn kẽ hơn và rõ hơn mình copy trên mạng ẩn được sheet nhưng khi tạo nút công cụ thì không cho sheet ẩn đi hiện lại được nhờ các bác chỉ giùm mail View attachment an hien sheet(mật khẩu là 1)[email protected] Upvote 0 T thcshaily
Thành viên mới 
Tham gia 1/9/11 Bài viết 12 Được thích 0 Nhờ các bác chỉ giúp cặn kẽ hơn và rõ hơn mình copy trên mạng ẩn được sheet nhưng khi tạo nút công cụ thì không cho sheet ẩn đi hiện lại được nhờ các bác chỉ giùm mail View attachment 73646<A href="mailto:[email protected]">[email protected]</A> Upvote 0 T thcshaily
Thành viên mới 
Tham gia 1/9/11 Bài viết 12 Được thích 0 Nhờ các bác chỉ giúp cặn kẽ hơn và rõ hơn mình copy trên mạng&nbsp; ẩn được sheet nhưng khi tạo nút công cụ thì không cho sheet ẩn đi hiện lại được nhờ các bác chỉ giùm mail View attachment 73646<A href="mailto:[email protected]">[email protected]</A> Upvote 0 ndu96081631
Huyền thoại GPE
Thành viên BQT Super Moderator Tham gia 5/6/08 Bài viết 30,703 Được thích 53,982 thcshaily đã viết: Nhờ các bác chỉ giúp cặn kẽ hơn và rõ hơn mình copy trên mạng&nbsp; ẩn được sheet nhưng khi tạo nút công cụ thì không cho sheet ẩn đi hiện lại được nhờ các bác chỉ giùm mail View attachment 73646<A href="mailto:[email protected]">[email protected]</A> Nhấp chuột vào đây để mở rộng...Xem bài viết này sẽ làm được ngay: http://www.giaiphapexcel.com/forum/showthread.php?37055-Tạo-nút-nhấn-để-link-đến-các-sheet& Upvote 0
heoxinh89
Thành viên mới 
Tham gia 24/2/11 Bài viết 16 Được thích 5 Nghề nghiệp Tài chính, Ngân hàng, kế toán Cả nhà thông thái ơi, giúp em với ạ. Em tạo link sheet, nhưng khi đến sheet chính, em lại không tạo nút button để quay trở lại nên bị mất 1 số sheet. Ai đó giúp em làm thế nào để quay lại sheet ban đầu, và thế nào để hiện lại những sheet bị ẩn. File đính kèm
- bang cong no ha dan2014.xlsm bang cong no ha dan2014.xlsm 121.6 KB · Đọc: 35
Ba Tê
Cạo Rồi Khỏi Gội
Tham gia 5/5/09 Bài viết 12,123 Được thích 17,590 Giới tính Namheoxinh89 đã viết: Cả nhà thông thái ơi, giúp em với ạ. Em tạo link sheet, nhưng khi đến sheet chính, em lại không tạo nút button để quay trở lại nên bị mất 1 số sheet. Ai đó giúp em làm thế nào để quay lại sheet ban đầu, và thế nào để hiện lại những sheet bị ẩn. Nhấp chuột vào đây để mở rộng...Chép cái này vào module Module, chạy thử xem [GPECODE=vb]Public Sub UnHide_Sh() Dim Ws As Worksheet For Each Ws In Worksheets Ws.Visible = xlSheetVisible Next Ws End Sub[/GPECODE] Upvote 0 K
kkggkk1
Thành viên mới 
Tham gia 9/8/11 Bài viết 5 Được thích 1 Mã: Sao chép. ActiveWindow.DisplayWorkbookTabs = False Ẩn Mã: Sao chép. ActiveWindow.DisplayWorkbookTabs = True Hiện Gán vào button nào đó rồi nhấn, hiện, ẩn tất cả các sheet trên bảng excel
Upvote 0 Ba Tê
Cạo Rồi Khỏi Gội
Tham gia 5/5/09 Bài viết 12,123 Được thích 17,590 Giới tính Namkkggkk1 đã viết: Mã: Sao chép. ActiveWindow.DisplayWorkbookTabs = False Ẩn Mã: Sao chép. ActiveWindow.DisplayWorkbookTabs = True Hiện Gán vào button nào đó rồi nhấn, hiện, ẩn tất cả các sheet trên bảng excelDzụ dzì dzậy Chời????????????????????? Upvote 0Nhấp chuột vào đây để mở rộng...
GTK-PM
Thành viên thường trực



Tham gia 10/11/13 Bài viết 313 Được thích 15 Nhờ anh chị hoàn thiện lại cho em nút bấm liên kết từ Trang chủ đến các sheet và từ sheet khi bấm vào nút Trang chủ thì quay lại trang đầu. Nội dung code đã xin ở bài trên a. Upvote 0 GTK-PM
Thành viên thường trực



Tham gia 10/11/13 Bài viết 313 Được thích 15 Em xin đính kèm file bên dưới File đính kèm
- QL.xls QL.xls 155 KB · Đọc: 55
huyhiep12345
Thành viên mới 
Tham gia 13/8/17 Bài viết 14 Được thích 0 Giới tính Nam anh chị nào giúp em với được không ak. Chuện là thế này. Trong file excel e có 10 sheets. Em muốn là e đang ở sheet hiện tại thì em ấn nút "ẩn" thì ẩn toàn bộ sheet đằng sau sheet hiện tại ạ( ví dụ sheet hiện tại là sheet5 thì ấn nút ẩn là ẩn toàn bộ sheet6~sheet10 ak). và thêm nữa là muốn một nút ấn hiện, mỗi lần ấn hiện là hiện sheet kế tiếp. (vi dụ ấn hiện là sheet6 hiện). Anh chị hãy chia sẻ giúp em vấn dề này vs Em chân thành cám ơn gmail của em: [email protected] Upvote 0 giaiphap
==(^o^)==
Tham gia 12/3/07 Bài viết 5,808 Được thích 6,370 Donate (Momo)
Giới tính Nam huyhiep12345 đã viết: anh chị nào giúp em với được không ak. Chuện là thế này. Trong file excel e có 10 sheets. Em muốn là e đang ở sheet hiện tại thì em ấn nút "ẩn" thì ẩn toàn bộ sheet đằng sau sheet hiện tại ạ( ví dụ sheet hiện tại là sheet5 thì ấn nút ẩn là ẩn toàn bộ sheet6~sheet10 ak). và thêm nữa là muốn một nút ấn hiện, mỗi lần ấn hiện là hiện sheet kế tiếp. (vi dụ ấn hiện là sheet6 hiện). Anh chị hãy chia sẻ giúp em vấn dề này vs Em chân thành cám ơn gmail của em: [email protected] Nhấp chuột vào đây để mở rộng...Tại sao giúp bạn phải gửi mail cho bạn mà không gửi lên chổ này. Không lẻ bạn gửi tiền thù lao à. Lần chỉnh sửa cuối: 3/8/19 Upvote 0 H
huyhiep12345
Thành viên mới 
Tham gia 13/8/17 Bài viết 14 Được thích 0 Giới tính Nam giaiphap đã viết: Tạo sao giúp bạn phải gửi mail cho bạn mà không gửi lên chổ này. Không lẻ bạn gửi tiền thù lao à. Nhấp chuột vào đây để mở rộng...Không phải nhé. Gửi lên cho tất cả mọi người ak. Upvote 0
giaiphap
==(^o^)==
Tham gia 12/3/07 Bài viết 5,808 Được thích 6,370 Donate (Momo)
Giới tính Nam huyhiep12345 đã viết: Không phải nhé. Gửi lên cho tất cả mọi người ak. Nhấp chuột vào đây để mở rộng...Dùng 2 đoạn code dưới đây. Mã: Sao chép. Public Sub Hide() On Error Resume Next Dim i As Integer For i = Sheets.Count To 1 Step -1 If Sheets(i).Name = ActiveSheet.Name Then Exit For Else Sheets(i).Visible = False End If Next i End Sub Public Sub Show() On Error Resume Next Dim i As Integer For i = 1 To Sheets.Count If Sheets(i).Name = ActiveSheet.Name Then Exit For Next i If i < Sheets.Count Then Sheets(i + 1).Visible = True End Sub Upvote 0
snow25
Thành viên gạo cội



Tham gia 24/7/18 Bài viết 3,555 Được thích 3,610 Donate (Momo)
Giới tính Nam giaiphap đã viết: Dùng 2 đoạn code dưới đây. Mã: Sao chép. Public Sub Hide() On Error Resume Next Dim i As Integer For i = Sheets.Count To 1 Step -1 If Sheets(i).Name = ActiveSheet.Name Then Exit For Else Sheets(i).Visible = False End If Next i End Sub Public Sub Show() On Error Resume Next Dim i As Integer For i = 1 To Sheets.Count If Sheets(i).Name = ActiveSheet.Name Then Exit For Next i If i < Sheets.Count Then Sheets(i + 1).Visible = True End Sub Nhấp chuột vào đây để mở rộng...Em Nghĩ nếu dùng Index của sheets thì có vẻ hay hơn. Mã: Sao chép. ActiveSheet.Index Upvote 0
giaiphap
==(^o^)==
Tham gia 12/3/07 Bài viết 5,808 Được thích 6,370 Donate (Momo)
Giới tính Nam snow25 đã viết: Em Nghĩ nếu dùng Index của sheets thì có vẻ hay hơn. Mã: Sao chép. ActiveSheet.Index Nhấp chuột vào đây để mở rộng...Sao không nghỉ tới nhỉ!


Upvote 0 V VetMini
Đang đi tìm hòn đá
Tham gia 21/12/12 Bài viết 17,867 Được thích 24,792 Nghề nghiệp Thầy bói bài ta Code ở bài #24 chưa đáp ứng yêu cầu "hiện". Quote: mỗi lần ấn hiện là hiện sheet kế tiếp Chú: Sheets collection bao gồm cả Chart sheets. WorkSheets collection mới thuần worksheet. Upvote 0 Hhuyhiep12345
Thành viên mới 
Tham gia 13/8/17 Bài viết 14 Được thích 0 Giới tính Nam Em cám ơn cả nhà ak. Upvote 0 H huyhiep12345
Thành viên mới 
Tham gia 13/8/17 Bài viết 14 Được thích 0 Giới tính Nam CHo em hỏi thêm ak. sau khi lưu vào modul rồi thoát ra lại mất ạ. không lưu lại được mã code ak. Upvote 0 H huyhiep12345
Thành viên mới 
Tham gia 13/8/17 Bài viết 14 Được thích 0 Giới tính Nam Cả nhà giúp em thuật toán này được không ak. Em bh ms bắt đầu làm quen vs vba mong cả nhà giúp đỡ. Em nhờ mọi ng giúp ak. Ở sheet1 đầu tiên cứ 7 dòng là gộp một ô. - Dòng 10- dòng 17 có tên detail1-> Nằm ở cột A dòng 10-17, - Dòng 18 - dòng 24 là detail2, -> Nằm ở cột A dòng 18-24. - Dòng 25 - dòng 32 là detail3, Nằm ở cột A dòng 25-32. Ở vị trí ô (D1:10) có điều kiện là nhập "detail1" thì sẽ ẩn detail2 và detail3 ( tương ứng là từ dòng 18 đến dòng 32) bị ẩn. Ý tưởng: 1. Ô nhập điều kiện D1:10; 2. Ẩn dòng sau khi nhập điều kiện ở D1:10 3. Hiện toàn bộ dòng đã ẩn. Mong cả nhà chỉ bảo giúp em. viết giúp em với ak. Upvote 0 Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây. Bài viết mới nhất
V Biểu diễn số đếm theo hình vẽ từ Shape (4 người xem)- Vũ Hải Sơn
- 2/12/25
- Hàm và công thức Excel
- katanvn
- Thứ tư lúc 13:46
- Excel Ứng Dụng
- Question Question
- vova2209
- Thứ sáu lúc 00:42
- Lập Trình với Excel
- vunl
- Hôm nay lúc 16:46
- Hàm và công thức Excel
- vietdang170
- 28/1/26
- Các Add-ins cho excel
- SA_DQ
- 3/11/25
- Chia sẻ
- Question Question
- ongke0711
- 6/10/24
- Lập Trình với Excel
- Question Question
- phuongnam366377
- Hôm qua, lúc 13:23
- Lập Trình với Excel
- adua29
- 19/5/11
- Ứng dụng cho lĩnh vực khác
- adua29
- 9/4/21
- Excel Ứng Dụng
- Question Question
- syquyen1987
- Hôm qua, lúc 16:25
- Lập Trình với Excel
- gpe.vn
- 17/6/24
- Xây dựng ứng dụng.
- Question Question
- HeSanbi
- 26/2/26
- Lập Trình với Excel
- QUANGTUHN
- 20/8/20
- Excel và Kế Toán
- phuongnam366377
- 28/2/26
- Excel và các ngôn ngữ lập trình khác
- ducminh14
- 5/12/11
- Các Add-ins cho excel
- MinhKhai
- Thứ tư lúc 17:08
- Cơ sở dữ liệu
- Question Question
- chienminhanh
- 3/3/26
- Lập Trình với Excel
- GPE-Trợ Lý
- Thứ bảy lúc 08:35
- Thông tin về diễn đàn
- PhanTuHuong
- 7/10/21
- Xây dựng ứng dụng.
Thành viên có số lượng bài viết cao nhất tháng
- Maika8008 5
- adua29 5
- vova2209 5
- katanvn 4
- PhanTuHuong 3
- chienminhanh 3
- MinhKhai 3
- HeSanbi 3
- phuongnam366377 3
- ongke0711 3
- SA_DQ 3
- HUONGHCKT 3
- Gà Công Nghệ 2
- doredore1988 2
- Nguyễn Duy Tuân 2
- huhumalu 2
- gpe.vn 2
- vietdang170 2
- Vũ Hải Sơn 2
- vunl 1
Thành viên có điểm tương tác cao nhất tháng
- Maika8008 9
- katanvn 6
- HUONGHCKT 5
- GPE-Trợ Lý 4
- ptm0412 3
- SA_DQ 3
- yeudoi 2
- adua29 2
- vietdang170 2
- kHOA1973 1
- ThuyMay93 1
- mafiana 1
- doredore1988 1
- huhumalu 1
- phuongnam366377 1
Thời gian đếm ngược.
000 Ngày 00 Giờ 00 phút 00 giây Thân mời tham dự sự kiện sinh nhật GPE 2025- Trang chủ
- Diễn đàn
- Lập Trình với Excel
- Website này sử dụng cookies. Tiếp tục sử dụng trang này, đồng nghĩa với việc bạn chấp nhận website sử dụng cookies. Chấp nhận Tìm hiểu thêm.…
Từ khóa » Code ẩn Sheet Trong Vba
-
Hướng Dẫn Thao Tác ẩn Sheet Trong Excel Bằng Lệnh VBA
-
Hướng Dẫn Cách ẩn Và Bỏ ẩn Nhiều Sheet Cùng Lúc Bằng VBA
-
Cánh ẩn Hoàn Toàn Và Hiện Sheets Trong WorkBook
-
Hướng Dẫn Cách ẩn Hiện Sheets Bằng VBA - Tuyệt đỉnh VBA
-
Hướng Dẫn Cách ẩn Hiện Sheets Bằng VBA – Tuyệt đỉnh VBA
-
HƯỚNG DẪN CÁCH TẠO MENU ẨN HIỆN SHEET THEO Ý MUỐN ...
-
Hide (or Unhide) A Worksheet - VBA Code Examples - Automate Excel
-
Code VBA Công Cụ Xóa - Sắp Xếp - Ẩn Sheet Siêu Tiện ích Trong Excel
-
Cách Hide / Unhide Tất Cả Các Sheet Trong Excel Nhanh Nhất - Cafesua
-
How To Delete A SHEET Using A VBA Code (Macro) - Excel Champs
-
How To Hide & Unhide A Sheet Using VBA In Excel
-
Tool - ProtectVBA - Bảo Mật Code VBA | Cùng Học Excel
-
Cách Ẩn Sheet Trong Excel Từ Cơ Bản Đến Nâng Cao 7/2022