Làm Sao để Unhide Nhiều Sheet Một Lần? - Giải Pháp Excel

Giải Pháp Excel
  • 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 New Video về Excel Video về tin học khác Tin tức về tin học chung
  • Thông tin mới 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
  • Facebook
  • Đóng góp
Đăng nhập Đăng Ký Có gì mới? Tìm kiếm

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 đề Bởi: Tìm kiếm Tìm nâng cao…
  • Tìm bài viết mới
  • Tìm theo chuyên mục
Menu Đăng nhập Đăng Ký Install the app Install How to install the app on iOS

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
  • Những vấn đề chung
  • Những vấn đề chung
You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Làm sao để unhide nhiều sheet một lần?
  • Thread starter echo07
  • Ngày gửi 7/3/08
Liên hệ QC
  • 1
  • 2
Tiếp 1 of 2

Go to page

Tiếp tục Tiếp Last echo07

echo07

Nguyệt Hà
Tham gia 24/8/07 Bài viết 436 Được thích 318 Các pác cho em hỏi, khi ta muốn ẩn nhiều sheet một lúc thì dẽ rồi nhưng khi muốn bung ra thì phải làm từng sheet. Như vậy rất mất công mà còn bị ức chế. Vậy có cách nào cho phép bung nhiều sheet một lúc k?? tedaynui

tedaynui

(*_*)
Thành viên danh dự Tham gia 12/8/06 Bài viết 1,875 Được thích 2,479
echo07 đã viết: Các pác cho em hỏi, khi ta muốn ẩn nhiều sheet một lúc thì dẽ rồi nhưng khi muốn bung ra thì phải làm từng sheet. Như vậy rất mất công mà còn bị ức chế. Vậy có cách nào cho phép bung nhiều sheet một lúc k?? Nhấp chuột vào đây để mở rộng...
Thì dùng VBA thôi. Nhưng thực chất VBA cũng Unhide từng Sheet mà thôi nhưng nó tự động nên nhanh thôi. TDN salam

salam

Thành viên gắn bó
Tham gia 4/11/06 Bài viết 1,945 Được thích 1,896 Giới tính Nam Nghề nghiệp Accountant Bạn dùng thử code này xem. Mã:Sao chép. Sub UnHideSheet() For Each sh In ThisWorkbook.Worksheets sh.Visible = True Next sh End Sub echo07

echo07

Nguyệt Hà
Tham gia 24/8/07 Bài viết 436 Được thích 318 Cảm ơn bác nhưng nhà em chưa sử dụng code bao giờ. bác chỉ em được không??? T

ThuNghi

Hãy cho rồi sẽ nhận!
Thành viên đã mất Tham gia 16/8/06 Bài viết 3,808 Được thích 4,449
echo07 đã viết: Cảm ơn bác nhưng nhà em chưa sử dụng code bao giờ. bác chỉ em được không??? Nhấp chuột vào đây để mở rộng...
Nếu có cài ASAP thì có công cụ show all sheets. salam

salam

Thành viên gắn bó
Tham gia 4/11/06 Bài viết 1,945 Được thích 1,896 Giới tính Nam Nghề nghiệp Accountant
ThuNghi đã viết: Nếu có cài ASAP thì có công cụ show all sheets. Nhấp chuột vào đây để mở rộng...
Bác ThuNghi ơi bạn ý chưa dùng code bao giờ Bác cho ASAP thì khó quá ah.
Cảm ơn bác nhưng nhà em chưa sử dụng code bao giờ. bác chỉ em được không??? Nhấp chuột vào đây để mở rộng...
Trong file excel Bạn nhấp Alt+F11 trong cửa sổ VBE bạn vào menu insert/module trong cửa sổ module bạn dán đoạn code đó vào. Nếu muốn chạy ngay trong VBE bạn nhấn vào nút mũi tên mầu xanh hoặc vào menu Run rồi nhấn run/sub ... Hay nhấn F5. Còn ở trong bảng tính bạn nhấn Alt + F8 chọn tên macro rồi chọn run. Chúc Bạn thành công. anhtuan1066

anhtuan1066

Thành viên gạo cội
Tham gia 10/3/07 Bài viết 5,802 Được thích 6,911 Bạn mở 1 file Excel, bấm Alt + F11 đễ mở cửa sổ VBE... vào menu Insert\Module đễ add 1 module rồi copy code của Salam, paste vào cửa sổ này... Đóng cửa sổ VBE lại... Trên bảng tính bấm Atl + F8, chọn tên Marco và OK là nó chạy liền... ANH TUẤN Thien

Thien

Thành viên thường trực
Tham gia 23/6/06 Bài viết 352 Được thích 113 Dear All Sao mình dùng code này lại báo lỗi sh.Visible = Fasle tại Sheet 3 Mã:Sao chép. Sub HideSheet() For Each sh In ThisWorkbook.Worksheets sh.Visible = Fasle Next sh End Sub Thân echo07

echo07

Nguyệt Hà
Tham gia 24/8/07 Bài viết 436 Được thích 318 Thanks cả nhà. Bạn Thien xem lại chứ em cop về chạy ngon. đây là lần đầu em tập dùng code đấy. Hay phết. Thanks again. salam

salam

Thành viên gắn bó
Tham gia 4/11/06 Bài viết 1,945 Được thích 1,896 Giới tính Nam Nghề nghiệp Accountant
Thien đã viết: Dear All Sao mình dùng code này lại báo lỗi sh.Visible = Fasle tại Sheet 3 Mã:Sao chép. Sub HideSheet() For Each sh In ThisWorkbook.Worksheets sh.Visible = Fasle Next sh End Sub Thân Nhấp chuột vào đây để mở rộng...
Báo lỗi là do nó không thể ẩn hết sheet được. Bạn muốn ẩn sheet thì bạn thêm dòng này vào nhé Mã:Sao chép. Sub HideSheet() [COLOR=Red]On Error Resume Next[/COLOR] For Each sh In ThisWorkbook.Worksheets sh.Visible = Fasle Next sh End Sub anhtuan1066

anhtuan1066

Thành viên gạo cội
Tham gia 10/3/07 Bài viết 5,802 Được thích 6,911
Thien đã viết: Dear All Sao mình dùng code này lại báo lỗi sh.Visible = Fasle tại Sheet 3 Thân Nhấp chuột vào đây để mở rộng...
Đương nhiên phải báo lỗi rồi.. vì chẳng lẽ.. ẩn tất tần tật... he.. he.. Phải vầy mới dc nè: PHP:Sao chép. Sub HideSheet() On Error Resume Next For Each sh In ThisWorkbook.Worksheets sh.Visible = Fasle Next sh End Sub ANH TUẤN levanduyet

levanduyet

Hãy để gió cuốn đi.
Thành viên danh dự Tham gia 30/5/06 Bài viết 1,798 Được thích 4,706 Giới tính Nam Vấn đề này cũng là vấn đề các bạn thường đặt ra. Để thực hiện chúng ta có thể mô tả quá trình Hide như sau: _ Hiện các worksheet bạn cần. _ Dấu các worksheet còn lại. Mã:Sao chép. Function IsItInArray(sValueToFind As Variant, InputArray As Variant) As Boolean IsItInArray = Not IsError(Application.Match(sValueToFind, InputArray, 0)) End Function Để thực hiện được điều này tôi có dùng hàm IsItInArray. Hàm này sẽ kiểm tra một chuổi có trong một mảng hay không. Ví dụ: Mã:Sao chép. Sub Test() Dim x As Variant x = Array("Hello", "Duyet", "Hien", "Luyen", "Long", "Quan") If IsItInArray("Long", x) Then MsgBox "Tồn tại" Else MsgBox "Không tồn tại" End If End Sub Và sau đó tôi dùng thủ tục sau: Mã:Sao chép. Sub ViewWs(ByVal WsName As Variant) Dim Ws As Worksheet On Error Resume Next Application.ScreenUpdating = False 'There is at least one worksheet visible first 'If not, the error will be shown and this Sub is not correct For Each Ws In ThisWorkbook.Worksheets If IsItInArray(Ws.Name, WsName) Then Ws.Visible = xlSheetVisible End If Next For Each Ws In ThisWorkbook.Worksheets If Not IsItInArray(Ws.Name, WsName) Then Ws.Visible = xlSheetHidden End If Next Application.ScreenUpdating = True End Sub Hy vọng đoạn ví dụ trên có thể giúp cho các bạn. Lê Văn Duyệt sieunhi10079

sieunhi10079

Thành viên thường trực
Tham gia 26/2/07 Bài viết 230 Được thích 196 Đã hơn 6 năm trôi qua cho câu hỏi này, không biết Microsoft Excel đã có cách nào cho unhide all sheet chưa? Nếu không dùng code VBA thì có cách nào không vậy mọi người? Nếu có xin được giúp đỡ. K

kbw1

Thành viên tích cực
Tham gia 8/11/13 Bài viết 880 Được thích 231
sieunhi10079 đã viết: Đã hơn 6 năm trôi qua cho câu hỏi này, không biết Microsoft Excel đã có cách nào cho unhide all sheet chưa? Nếu không dùng code VBA thì có cách nào không vậy mọi người? Nếu có xin được giúp đỡ. Nhấp chuột vào đây để mở rộng...
Đây là 1 thao tác ít dùng nhưng rất hữu dụng. Mình cũng có cùng nhu cầu như bạn. giaiphap

giaiphap

==(^o^)==
Tham gia 12/3/07 Bài viết 5,802 Được thích 6,349 Donate (Momo) Donate Giới tính Nam
sieunhi10079 đã viết: Đã hơn 6 năm trôi qua cho câu hỏi này, không biết Microsoft Excel đã có cách nào cho unhide all sheet chưa? Nếu không dùng code VBA thì có cách nào không vậy mọi người? Nếu có xin được giúp đỡ. Nhấp chuột vào đây để mở rộng...
Không dùng code chắc không được đâu bạn ơi. H

HungQuoc49

Thành viên tiêu biểu
Tham gia 9/7/14 Bài viết 683 Được thích 440
kbw1 đã viết: Đây là 1 thao tác ít dùng nhưng rất hữu dụng. Mình cũng có cùng nhu cầu như bạn. Nhấp chuột vào đây để mở rộng...
Cái này dùng custom views trong menu view ( excel 2003 ) có lẽ là giải quyết được, bạn gửi 1 file giả định lên xem sao --- Gửi bạn file ví dụ xem có đúng ý không Nhấn alt+v+v---> chọn ToanBo ---> enter

File đính kèm

  • Unhide all sheet.xls 16.5 KB · Đọc: 292
Lần chỉnh sửa cuối: 26/5/16 giaiphap

giaiphap

==(^o^)==
Tham gia 12/3/07 Bài viết 5,802 Được thích 6,349 Donate (Momo) Donate Giới tính Nam
HungQuoc49 đã viết: Cái này dùng custom views trong menu view ( excel 2003 ) có lẽ là giải quyết được, bạn gửi 1 file giả định lên xem sao --- Gửi bạn file ví dụ xem có đúng ý không Nhấn alt+v+v---> chọn ToanBo ---> enter Nhấp chuột vào đây để mở rộng...
Cha cái này hay nhỉ mới biết nè, lại học được chiêu mới. Lần chỉnh sửa cuối: 27/5/16 K

kbw1

Thành viên tích cực
Tham gia 8/11/13 Bài viết 880 Được thích 231
HungQuoc49 đã viết: Cái này dùng custom views trong menu view ( excel 2003 ) có lẽ là giải quyết được, bạn gửi 1 file giả định lên xem sao --- Gửi bạn file ví dụ xem có đúng ý không Nhấn alt+v+v---> chọn ToanBo ---> enter Nhấp chuột vào đây để mở rộng...
Bạn làm thế nào vậy bạn. Xin bạn hướng dẫn thêm vì mình chưa hiểu bạn ạ. H

HungQuoc49

Thành viên tiêu biểu
Tham gia 9/7/14 Bài viết 683 Được thích 440
kbw1 đã viết: Bạn làm thế nào vậy bạn. Xin bạn hướng dẫn thêm vì mình chưa hiểu bạn ạ. Nhấp chuột vào đây để mở rộng...
Ví dụ 1 trường hợp đơn giản, có gì bạn mở rộng thêm Giả sử ban đầu file có 3 sheet là 1, 2, 3. Sẽ tạo 2 view là : 1- Chỉ nhìn thấy sheet1 2- Nhìn thấy toàn bộ các sheet B1: Khi toàn bộ các sheet đều nhìn thấy Nhấn alt+v+v ---> nhấn add ---> Nhập tên "ToanBo" trong Name ---> ok B2 : Ẩn sheet 2, 3 bằng lệnh hide Nhấn alt+v+v ---> nhấn add ---> Nhập tên "An" trong Name ---> ok Bây giờ nếu muốn hiện toàn bộ sheet, bạn làm : alt +v+v ---> chọn "ToanBo" ---> show (hoặc enter) sẽ thấy toàn bộ các sheet chọn "An" ---> show (hoặc enter) sẽ chỉ thấy sheet1 Có thể tạo nhiều view bằng cách trên Lần chỉnh sửa cuối: 27/5/16 K

kbw1

Thành viên tích cực
Tham gia 8/11/13 Bài viết 880 Được thích 231
HungQuoc49 đã viết: Ví dụ 1 trường hợp đơn giản, có gì bạn mở rộng thêm Giả sử ban đầu file có 3 sheet là 1, 2, 3. Sẽ tạo 2 view là : 1- Chỉ nhìn thấy sheet1 2- Nhìn thấy toàn bộ các sheet B1: Khi toàn bộ các sheet đều nhìn thấy Nhấn alt+v+v ---> nhấn add ---> Nhập tên "ToanBo" trong Name ---> ok B2 : Ẩn sheet 2, 3 bằng lệnh hide Nhấn alt+v+v ---> nhấn add ---> Nhập tên "An" trong Name ---> ok Bây giờ nếu muốn hiện toàn bộ sheet, bạn làm : alt +v+v ---> chọn "ToanBo" ---> show (hoặc enter) sẽ thấy toàn bộ các sheet chọn "An" ---> show (hoặc enter) sẽ chỉ thấy sheet1 Có thể tạo nhiều view bằng cách trên Nhấp chuột vào đây để mở rộng...
Quá hay. Cảm ơn bạn rất nhiều. Phím tắt excel 2003 mình hay phải dùng nhiều. Giờ mình ms biết chức năng này của excel. Mà có từ bản 2003 luôn. Bạn cho mình hỏi thêm chút. Khi mình Add thì có mục Indude in View. Mình chưa hiểu ý nghĩa của mục này. Có thử tích và bỏ tích thì ko thấy khác biệt. Bạn có thể giải thích giúp mình mục đấy có ý nghĩa gì không? Mình có đọc nhiều tài liệu excel nhưng ko thấy có phần này. Cảm ơn bạn!
  • 1
  • 2
Tiếp 1 of 2

Go to page

Tiếp tục Tiếp Last Bạn phải đăng nhập hoặc đăng ký để trả lời bài viết tại đây. Web KT

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

B
  • Question
Windows Form Làm thế nào để định vị cột và dòng nhập dữ liệu
  • binhtv69
  • Thứ sáu lúc 09:01
  • Lập Trình với Excel
2 3 Trả lời 41 Đọc 837 17 phút trước VetMini V heocondethuong1235 Giúp về xử lý số liệu trong excel!
  • heocondethuong1235
  • Hôm nay lúc 13:45
  • Những vấn đề chung
Trả lời 4 Đọc 96 56 phút trước VetMini V L Chuyển 600 câu hỏi trắc nghiệm sang excel theo mẫu
  • linhxinhthat
  • Hôm qua, lúc 15:52
  • Hàm và công thức Excel
Trả lời 2 Đọc 119 Hôm nay lúc 21:35 HUONGHCKT H N Định mức nguyên vật liệu
  • nghiemcongdien
  • 9/11/24
  • Google Spreadsheets
2 Trả lời 35 Đọc 967 Hôm nay lúc 21:32 ptm0412 ptm0412 DMQ
  • Question
Xóa dòng trùng.
  • DMQ
  • Hôm qua, lúc 21:16
  • Lập Trình với Excel
Trả lời 11 Đọc 221 Hôm nay lúc 17:16 DMQ DMQ ongke0711
  • Question
Tải hóa đơn điện tử (https://hoadondientu.gdt.gov.vn/) Excel Vba
    • Thích
    • Yêu thích
  • ongke0711
  • 6/10/24
  • Lập Trình với Excel
12 13 14 Trả lời 260 Đọc 16K Hôm nay lúc 16:33 thanchetvnt T luuviettrung Lỗi mở file excel đã được lưu trên USB
  • luuviettrung
  • Hôm nay lúc 16:31
  • Hỏi đáp những vấn đề khác
Trả lời 0 Đọc 28 Hôm nay lúc 16:31 luuviettrung luuviettrung H Code lấy đáp án từ file word
    • Thích
  • Hoale85
  • Hôm nay lúc 11:16
  • Những vấn đề chung
Trả lời 7 Đọc 141 Hôm nay lúc 16:20 Hoale85 H A Nhờ mọi người làm giúp công thức Thống kê đếm ngày
  • acrox84
  • Hôm qua, lúc 11:03
  • Làm việc với ngày tháng và thời gian
Trả lời 8 Đọc 194 Hôm nay lúc 15:23 acrox84 A J Hàm tách dữ liệu ra nhiều cột
  • jusend
  • Hôm qua, lúc 16:43
  • Giải thích, gỡ rối, xử lý lỗi công thức
Trả lời 4 Đọc 138 Hôm nay lúc 14:58 jusend J K Tự động nhập dữ liệu tăng ca
  • Ks.longvandinh1988
  • Hôm nay lúc 14:17
  • Excel và Kế Toán
Trả lời 2 Đọc 67 Hôm nay lúc 14:54 Duy Tùng 9x Duy Tùng 9x L lập công thức cho lịch làm và ngày nghỉ tự động thay đổi theo từng tháng
  • Lan Ny
  • Hôm nay lúc 11:55
  • Hàm và công thức Excel
Trả lời 1 Đọc 64 Hôm nay lúc 13:20 hoangtuaotrang_hp_vn H Nguyễn Duy Tuân Hướng dẫn lập trình với Google Sheets và Excel Online bằng Excel VBA và Add-in A-Tools v10
    • Thích
  • Nguyễn Duy Tuân
  • Hôm nay lúc 09:21
  • BLUESOFTS: A-Excel, A-Tools
Trả lời 1 Đọc 86 Hôm nay lúc 11:05 Nguyễn Duy Tuân Nguyễn Duy Tuân GPE-Trợ Lý [GPE] TALK SHOW ĐỊNH KỲ
    • Yêu thích
    • Thích
    • Cảm ơn
  • GPE-Trợ Lý
  • Hôm nay lúc 10:07
  • Học tập Online
Trả lời 0 Đọc 97 Hôm nay lúc 10:07 GPE-Trợ Lý GPE-Trợ Lý N Tìm công thức sắp xếp lại vị trí
  • Ngocminh19
  • Hôm qua, lúc 18:56
  • Hàm và công thức Excel
Trả lời 5 Đọc 128 Hôm nay lúc 08:21 Ngocminh19 N MinhKhai
  • Question
Chọn các số trong dãy số để ra 1 số tổng cho trước
  • MinhKhai
  • 20/8/13
  • Lập Trình với Excel
2 Trả lời 28 Đọc 16K Hôm qua, lúc 20:28 tienhuy832011 T T
  • Question
Tìm các dòng có chứa giá trị cộng tổng sấp xỉ bằng số cho trước
  • tienhuy832011
  • Thứ ba lúc 20:07
  • Lập Trình với Excel
Trả lời 17 Đọc 239 Hôm qua, lúc 20:20 tienhuy832011 T Toanke063
  • Question
Hỗ trợ khắc phục lỗi Copy cùng 1 bảng tính sang nhiều vị trí trên Word bị lỗi Clipboard
  • Toanke063
  • Thứ sáu lúc 12:11
  • Lập Trình với Excel
Trả lời 8 Đọc 295 Hôm qua, lúc 18:49 Toanke063 Toanke063 Nguyễn Hậu LK Nhờ giúp: Nhận vùng giữ liệu theo số biên bản nghiệm thu
  • Nguyễn Hậu LK
  • Hôm qua, lúc 16:18
  • Hỏi đáp những vấn đề khác
Trả lời 1 Đọc 68 Hôm qua, lúc 17:18 BuiQuangThuan B raygpt Em test đầu vào mà làm không được câu 5 và những hàm liên quan đến năm sinh ạk
  • raygpt
  • Thứ ba lúc 22:52
  • Hàm và công thức Excel
Trả lời 6 Đọc 155 Hôm qua, lúc 17:15 hvnhpro H Xem thêm… Chia sẻ: Facebook X (Twitter) Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

Thành viên có số lượng bài viết cao nhất tháng

  • Hoàng Tuấn 868 152
  • ptm0412 79
  • VetMini 47
  • HUONGHCKT 42
  • ongke0711 41
  • hoangtuaotrang_hp_vn 35
  • SA_DQ 34
  • befaint 33
  • Tuấn Bụng Bự 31
  • bebo021999 31
  • BuiQuangThuan 28
  • HeSanbi 25
  • huuthang_bd 23
  • HieuCD 18
  • huhumalu 17
  • DeTong 16
  • CHAOQUAY 16
  • Nguyễn Diêu Hiền 15
  • Manhhung90 13
  • phuongnam366377 13

Thành viên có điểm tương tác cao nhất tháng

  • Hoàng Tuấn 868 131
  • HUONGHCKT 77
  • ptm0412 76
  • VetMini 64
  • HeSanbi 63
  • ongke0711 58
  • HieuCD 44
  • SA_DQ 44
  • BuiQuangThuan 42
  • befaint 41
  • huuthang_bd 39
  • bebo021999 30
  • hoangtuaotrang_hp_vn 30
  • GPE-Trợ Lý 29
  • Phuocam 19
  • DeTong 16
  • huhumalu 15
  • PhanTuHuong 12
  • phuongnam366377 12
  • Duy Tùng 9x 12
  • Trang chủ
  • Diễn đàn
  • Những vấn đề chung
  • Những vấn đề chung
  • 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.…
Back Top Bottom

Từ khóa » Bỏ Unhide Tất Cả Các Sheet