Làm cách nào để xem các trang tính ẩn trong Excel VBA?

PNRao Tháng Ba 24, 2015 lúc 9. 56 PMĐăng nhập để trả lời

Chào Ramesh,

Bạn muốn ẩn hoặc bỏ ẩn các trang tính như thế nào. Đoạn mã dưới đây sẽ hiện Sheet2 VÀ ẩn Sheet1

Sub sbHidAndUnHideSheets()
    Sheets("Sheet2").Visible = True 'To unhide the Sheet2
    Sheets("Sheet1").Visible = False 'To hide the Sheet1    
End Sub

Hy vọng điều này sẽ giúp-Cảm ơn-PNRao

Ramesh 29 Tháng Ba, 2015 lúc 12. 12 giờ chiềuĐăng nhập để trả lời

Cảm ơn ông Rao,

Nó hoạt động hoàn hảo, khi không ẩn trang 2, làm thế nào để biến trang 2 thành trang hoạt động vì tôi có nhiều trang, hiện tại khi mã chạy, trang hiển thị hiển thị một cái gì đó giống như trang 4/5

vui lòng tư vấn

Ramesh 29 Tháng Ba, 2015 lúc 12. 16 giờ chiềuĐăng nhập để trả lời

Hơn nữa, tùy chọn ẩn phải là “xlSheetVeryHidden”, vui lòng hỗ trợ tôi. . -)

Nicola Tháng Ba 30, 2015 tại 4. 54 PMĐăng nhập để trả lời

Làm cách nào bạn có thể ẩn hoặc hiện các tab nhất định cho những người dùng cụ thể?

UserNameWindows() As String
unamewindows = Environ(“Username”)
Uname2 = StrConv(unamewindows, vbUpperCase)

Nếu Uname2 = “PERSON1” _
Hoặc Uname2 = “PERSON2” _
Hoặc Uname2 = “PERSON3” _

Trang tính (“Sao chép dữ liệu”). Hiển thị = Đúng

kết thúc nếu

PNRao Tháng Tư 1, 2015 lúc 7. 21 giờ chiềuĐăng nhập để trả lời

Bạn sử dụng phương pháp Kích hoạt trang tính

Sheets("SheetName").Activate

Thanks-PNRao

PNRao Tháng Tư 1, 2015 lúc 7. 24hĐăng nhập để trả lời

Bạn sử dụng phương pháp Kích hoạt trang tính

Sheets("SheetName").Visible = xlSheetVeryHidden

Thanks-PNRao

PNRao Tháng Tư 1, 2015 lúc 7. 28 PMĐăng nhập để trả lời

Bạn đang thiếu từ khóa Then. Vui lòng sử dụng mã dưới đây

Sub SbShow_Or_Hide_The_Tabs_To_Specific_Users()
    Dim UserNameWindows As String
    unamewindows = Environ("Username")
    Uname2 = StrConv(unamewindows, vbUpperCase)
    If Uname2 = "PERSON1" _
        Or Uname2 = "PERSON2" _
        Or Uname2 = "PERSON3" Then
        Sheets("Copy Data").Visible = True
    End If
End Sub

Thanks-PNRao

yuko Tháng Bảy 2, 2015 tại 9. 58 AMĐăng nhập để trả lời

Xin chào.
Tôi đã sử dụng mã này.
Sub sbHidAndUnHideSheets()
Trang tính(“Sheet1”). Hiển thị = Sai ‘ Để ẩn Trang tính1
Trang tính(“Trang tính2”). Visible = True ‘Để hiện Sheet2
End Sub

Chỉnh sửa cho tác phẩm của tôi.
Sub sbHidAndUnHideSheets()
Trang tính(“Khuon”). Hiển thị = Sai
Trang tính(“Duc”). Hiển thị = Đúng
Kết thúc phụ

Phím tắt. Ctrl + H để sử dụng cái này. nhưng nó không hoạt động. Lỗi đánh dấu màu vàng. Trang tính (“Khuôn”). Hiển thị = Sai

Hãy giúp tôi

PNRao Tháng Bảy 2, 2015 lúc 10. 16 AMĐăng nhập để trả lời

Hi Yuko,

Sử dụng mã dưới đây khi bạn chỉ có hai trang tính trong sổ làm việc của mình. Chúng tôi không thể ẩn tất cả các trang tính trong sổ làm việc, ít nhất trên trang tính phải hiển thị. Chỉ cần trao đổi các báo cáo để tránh vấn đề

Sub sbHidAndUnHideSheets1()
    Sheets("Sheet2").Visible = True 'To unhide the Sheet2
    Sheets("Sheet1").Visible = False 'To hide the Sheet1
End Sub

'Edit for my work:
Sub sbHidAndUnHideSheets()
    Sheets("Duc").Visible = True
    Sheets("Khuon").Visible = False
End Sub

Thanks-PNRao

yuko Tháng Bảy 2, 2015 tại 2. 17hĐăng nhập để trả lời

Chào PNRao.
Cảm ơn bạn rất nhiều.

PNRao Tháng Bảy 2, 2015 lúc 4. 50 PMĐăng nhập để trả lời

bạn được chào đón nhất

David Tháng Bảy 18, 2015 tại 1. 50 AMĐăng nhập để trả lời

Xin chào,
Điều này thực sự hữu ích. Tôi có thể làm gì nếu tôi muốn có một trang tính có menu thả xuống nơi tôi có thể chọn tab mà tôi muốn hiển thị và

Cảm ơn

David

PNRao Tháng bảy 18, 2015 tại 2. 09 PMĐăng nhập để trả lời

Xin chào David,
Vâng, điều này có thể. Bạn có thể điền vào trình đơn thả xuống trong khi mở sổ làm việc

Đặt một Combo Box trong trang tính cần thiết (Ví dụ. trong Sheet1). Và đặt đoạn mã dưới đây vào mô-đun ThisWorkbook Code

Private Sub Workbook_Open()
    Sheets("Sheet1").ComboBox1.Clear
    For Each sht In ThisWorkbook.Sheets
        Sheets("Sheet1").ComboBox1.AddItem sht.Name
    Next
End Sub

Và đặt đoạn mã dưới đây vào mô-đun Worksheet (i. e. Mô-đun mã Sheet1)

Sub sbHideASheet()

Sheet2.Visible = 2 'to very hide the worksheet
'OR You can mention the Sheet name
Sheets("Sheet2").Visible = True

End Sub

Điều này sẽ làm cho bạn chọn hiển thị trang tính cần thiết và ẩn tất cả các trang tính khác

Thanks-PNRao

David Tháng Bảy 21, 2015 lúc 12. 53 AMĐăng nhập để trả lời

Cảm ơn PNRao

Tôi đã kết nối với cái này nhưng không thể làm cho nó hoạt động với tôi… Tôi không sử dụng phụ riêng tư nên tôi có thể chạy nó bất cứ lúc nào bằng một lệnh cụ thể.
Tôi nhận được thông báo rằng có một Đối tượng Bắt buộc. ComboBox của tôi cũng có tên là ComboBox1.
Ngoài ra, nếu trang tính của tôi đã được đặt tên, thì tôi có cần phần đầu tiên của mã bạn gửi không?

Cảm ơn rất nhiều

PNRao Tháng Bảy 23, 2015 tại 1. 29 PMĐăng nhập để trả lời

Xin chào David,
Có, bạn cần cả hai mã.

Mã đầu tiên sẽ chuyển đến Mô-đun ThisWorkbook. (đi tới Project explorer và nhấp đúp vào mô-đun lớp ThisWorkbook và dán mã)

Và mã thứ hai đi vào Mô-đun trang tính của bạn. (đi tới Project explorer và nhấp đúp vào mô-đun lớp Trang tính được yêu cầu và dán mã)

Hy vọng điều này sẽ hữu ích.
Cảm ơn-PNRao.

Dan Bailey Tháng Tám 24, 2015 tại 8. 39 PMĐăng nhập để trả lời

Tôi đang làm việc trên một ứng dụng có 6 trang tính tương tác với nhau thông qua mã. Tôi không muốn người dùng có thể nhìn thấy các tab trang tính NHƯNG, tôi cần có thể tương tác với họ. Tôi đang sử dụng Excel 2013 (tệp xlsm) và vào File- Options-Advanced và bỏ chọn “Sheet Tabs visible”. Các tab bị ẩn và tôi vẫn có thể truy cập trang tính. Tuy nhiên, sau khi tôi lưu và đóng sổ làm việc rồi mở lại, các tab trang tính lại ở đó. Tôi không hiểu tại sao tab trang tính lại quay trở lại. Có một số mã VBA có thể sao chép những gì cài đặt Tùy chọn-Nâng cao sẽ giữ trong sổ làm việc nhưng không. ?

Dan Bailey Tháng Tám 24, 2015 lúc 9. 34 PMĐăng nhập để trả lời

tôi đã phát hiện ra vấn đề. Tệp tôi chỉ cần ẩn “Tab trang tính” là sổ làm việc hỗ trợ macro “XLSM”. Tôi đã mở tệp “XLSX” và kiểm tra Tùy chọn – Nâng cao và bỏ chọn “Hiển thị tab trang tính” và chúng biến mất. Sau khi tôi lưu và mở lại tệp, các Tab vẫn bị ẩn. Có cách nào để chỉ ẩn các Tab trong sổ làm việc “XLSM” không?? . Cảm ơn. Đan

PNRao Tháng Tám 25, 2015 lúc 12. 30 AMĐăng nhập để trả lời

Xin chào,
Tôi đã cập nhật bài đăng, vui lòng xem ví dụ cuối cùng để tạo trang tính Very Hidden.
Cảm ơn-PNRao.

Priya Tháng Mười 28, 2015 tại 3. 01 PMĐăng nhập để trả lời

Xin chào,

Tôi có trang tính chỉ mục mà từ đó tôi muốn truy cập vào các trang tính khác. Tôi có các trang tính khác nhau về chi phí, bảng lương, thuế, v.v. và tôi đã cung cấp siêu liên kết tới tất cả các trang tính này từ trang chỉ mục.
Tôi muốn ẩn tất cả các sheet ngoại trừ chỉ mục. và từ đây khi người dùng nhấp vào một liên kết mong muốn. nó sẽ đưa người dùng đến trang tính được chỉ định. Ngay cả khi nó bị ẩn. Xin hãy giúp đỡ

Priya

samola Tháng mười một 6, 2015 tại 2. 36 AMĐăng nhập để trả lời

Xin chào,

Tôi đang cố gắng ẩn tất cả các trang trừ hai trang, dưới đây là những gì tôi phải ẩn chỉ một trang. Tôi cần mở rộng nó để có thể hiển thị "phê duyệt"

Làm mờ tuần dưới dạng trang tính
Cho mỗi tuần trong trang tính
Nếu không phải tuần. Tên = “AdviceForm” Sau đó, wk. Hiển thị = xlSheetHidden

Tiếp theo

kết thúc phụ

Cảm ơn sự giúp đỡ của bạn trong vấn đề này

Trân trọng,
Samola

Deepu Tháng mười một 12, 2015 tại 10. 59 AMĐăng nhập để trả lời

Xin chào,

Tôi muốn ẩn tất cả sheet trừ tab tóm tắt thì phải làm như thế nào? . Cảm ơn

Deepu

PNRao Tháng mười một 16, 2015 tại 4. 08 PMĐăng nhập để trả lời

Đây là mã để ẩn tất cả các trang ngoại trừ một trang tóm tắt

Sub sbHideASheet()

Sheet2.Visible = 2 'to very hide the worksheet
'OR You can mention the Sheet name
Sheets("Sheet2").Visible = True

End Sub

Thanks-PNRao

Sammie Tháng Mười Hai 6, 2015 lúc 3. 46 PMĐăng nhập để trả lời

Xin chào,
Xin vui lòng, tôi đang làm báo cáo hàng ngày, làm cách nào để tạo một nút trên báo cáo đó sẽ dẫn người dùng đến một trang tính khác để họ có thể điền thông tin chi tiết? .
Cảm ơn bạn.

SGirard 5 Tháng 2, 2016 tại 1. 36 AMĐăng nhập để trả lời

Chào PNRao,

Tôi đang sử dụng nhiều trang tính, tất cả đều phụ thuộc vào mục Nhập dữ liệu. Dựa trên một lựa chọn trên mục nhập Dữ liệu, có thể tự động ẩn hoặc bỏ ẩn trang cụ thể không?

Tôi có 3 loại Thực hiện khác nhau. Trên mục nhập Dữ liệu, tôi cần chọn cách triển khai hiện tại. Nó sẽ sửa đổi một danh sách sẽ kiểm soát nội dung của các Trang tính khác nhau. Tôi muốn ẩn trang vô dụng và chỉ hiển thị những trang thuộc về triển khai này

loại

If 'Client Information'B17="Migration"
Then Sheets(“Discovery Call”). Hiển thị = Đúng
Trang tính ('Phương pháp hay nhất') Hiển thị = Sai

Bạn có thể giúp tôi được không?

PNRao Tháng 2 5, 2016 tại 8. 30 giờ chiềuĐăng nhập để trả lời

Xin chào Giridar,

Bạn có thể đạt được điều này bằng nhiều cách tiếp cận, đây là hai phương pháp tốt nhất

Phương pháp 1. Sử dụng Sự kiện trang tính để ẩn trang tính hiện

Sub sbHideASheet()

Sheet2.Visible = 2 'to very hide the worksheet
'OR You can mention the Sheet name
Sheets("Sheet2").Visible = True

End Sub

‘Phương pháp 2. Đây là một phương pháp khác để ẩn bỏ ẩn các trang tính bằng cách sử dụng Nút (được khuyến nghị)

Sub sbHideASheet()

Sheet2.Visible = 2 'to very hide the worksheet
'OR You can mention the Sheet name
Sheets("Sheet2").Visible = True

End Sub

Tôi khuyên dùng phương pháp thứ hai vì nó sẽ thân thiện với người dùng, đồng thời tránh được các cuộc gọi sự kiện không cần thiết

Vui lòng tìm tệp ví dụ tại đây.
http. //tab phân tích. com/hide unhide-sheets-based-on-condition/

Thanks-PNRao

Venkat Tháng Ba 3, 2016 lúc 3. 12 giờ chiềuĐăng nhập để trả lời

Xin chào
Tôi đã tạo điều hướng trên trang chủ. Nhưng điều tôi muốn là ẩn tên trang tính được hiển thị bên dưới. Nhưng nó sẽ được truy cập khi các nút được nhấp.

Đơn giản chỉ cần nói “Các trang tính nên được ẩn, nhưng phải có thể truy cập được”

bạn có thể vui lòng giúp tôi trong vấn đề này

Cảm ơn trước

Jorge 20 Tháng Tư, 2016 tại 8. 04 PMĐăng nhập để trả lời

Xin chào,
Về việc ẩn hoặc hiện - Tôi biết tôi có thể làm điều đó với một trang tính, nhưng tôi có thể ẩn một điều kiện bên trong một trang tính không?
This is the macro that I’m using and it pops “Run-time error ‘438’: Object doesn’t support this property or method”
Sub TransferStuff()

Ứng dụng. Cập nhật màn hình = Sai
Ứng dụng. Cảnh báo hiển thị = Sai

Phạm vi(“M1”, Phạm vi(“M” & Hàng. Đếm). Kết thúc(xlUp)). Tự động lọc 1,”
Phạm vi(“A2”, Phạm vi(“L” & Hàng. Đếm). Kết thúc(xlUp)). Sao chép trang tính 2. Phạm vi ("A" & Hàng. Đếm). Kết thúc(3)(2)
Phạm vi(“A2”, Phạm vi(“L” & Hàng. Đếm). Kết thúc(xlUp)). Hiển thị = Sai
[M1]. Bộ lọc Tự động

Ứng dụng. DisplayAlerts = True
Ứng dụng. ScreenUpdating = True
Sheet2. Chọn

kết thúc phụ

Colin Tháng Tám 26, 2016 lúc 5. 40 PMĐăng nhập để trả lời

Xin chào,

Tôi liên tục gặp lỗi ở điểm bên dưới. Tôi khá mới với điều này nên vẫn đang học

For i = 0 To UBound(Split(strSheets, “,”))
Trang tính(Split(strSheets, “,”)(i)). Hiển thị = Đúng

Tôi không chắc tại sao, mọi trợ giúp sẽ được đánh giá cao

Cảm ơn

C

brendan Tháng mười một 23, 2016 tại 4. 51 PMĐăng nhập để trả lời

Xin chào

Tôi muốn có thể tạo một nút trên trang chủ để mở một trang tính ẩn cần mật khẩu để vào được. (các nút riêng biệt hoặc danh sách thả xuống)
Tôi có 1 trang tính làm trang chính và 6 trang tính khác cho mỗi khoản tiết kiệm cá nhân nhân dịp Giáng sinh.

Làm thế nào tôi sẽ làm điều này?

Matt Tháng Ba 7, 2017 tại 8. 57 PMĐăng nhập để trả lời

Chào PNRao,

Tôi có một sổ làm việc hiện có 38 trang. Tôi đã bao gồm mã để tạo chỉ mục động.
Private Sub Worksheet_Activate()
Làm mờ xSheet dưới dạng trang tính
Làm mờ xRow dưới dạng số nguyên
Làm mờ . ScreenUpdating = False
Dim scrUpdateState As Long
Application.ScreenUpdating = False
xRow = 1
Với tôi
. Cột(1). Nội dung rõ ràng
. Ô(1, 1) = “INDEX”
. Ô(1, 1). Tên = “Chỉ mục”
Kết thúc bằng
Đối với mỗi xSheet trong ứng dụng. Trang tính
Nếu xSheet. Tên tôi. Đặt tên sau đó
xRow = xRow + 1
Với xSheet
. Phạm vi (“A1”). Tên = “Bắt đầu_” & xSheet. Chỉ mục
. siêu liên kết. thêm neo. =. Phạm vi(“A1″), Địa chỉ. =”, _
Địa chỉ phụ. =”Chỉ mục”, TextToDisplay. =”Quay lại chỉ mục”
Kết thúc bằng
Tôi. siêu liên kết. thêm neo. =tôi. Ô(xRow, 1), Địa chỉ. =”, _
Địa chỉ phụ. =”Bắt đầu_” & xSheet. Chỉ mục, TextToDisplay. =xSheet. Tên
Kết thúc Nếu
Tiếp theo
Ứng dụng. ScreenUpdating = True
End Sub

Khi chỉ mục được tạo, nó liên kết trở lại trang chỉ mục nhưng nó đang xóa một dòng mà tôi đang cố giữ. Tôi muốn chèn một hàng trước khi tạo liên kết trở lại chỉ mục. Ngoài ra, khi tạo chỉ mục, tôi muốn nó tự động tạo một hộp kiểm được sử dụng để ẩn các trang tính không cần thiết cho dự án mà chúng tôi đang thực hiện

Tôi cũng muốn sử dụng hộp kiểm tương tự để ẩn các hàng trên trang bìa

Nếu bạn có thể cung cấp bất kỳ trợ giúp nào, nó sẽ được đánh giá rất cao

Ali Tháng Ba 8, 2017 tại 3. 55 AMĐăng nhập để trả lời

Xin chào

Tôi có 2 Trang tính Trang tính 1(Trang chủ) và Trang tính 2(Thông tin).
Làm cách nào để ẩn Sheet2 và tạo macro trong Sheet1 để bỏ ẩn, Khi quay lại Sheet1 tự động Sheet2 tự động ẩn ???????????

làm ơn giúp tôi

Jafar Tháng Mười 16, 2018 tại 8. 18 AMĐăng nhập để trả lời

Chào PNRao,

Tôi chỉ muốn hiển thị bảng mong muốn liên kết đã bị ẩn. Làm thế nào để làm nó? .
Cảm ơn/
Jafar

puneet Tháng mười hai 13, 2018 tại 3. 22hĐăng nhập để trả lời

Chào mọi người,

Tôi có một sổ làm việc chứa nhiều tôi cần ẩn chúng dựa trên phần cuối tên của chúng. bạn có thể vui lòng giúp đỡ

Devraj Adhikari Tháng Sáu 28, 2020 tại 12. 33 AMĐăng nhập để trả lời

Tôi có hơn 100 trang tính trong một trang tính nếu tôi muốn ẩn các trang tính 1,5,76,99,32,45,57 thì làm cách nào để ẩn chỉ trang tính này

PNRao Tháng Chín 6, 2020 tại 9. 08 PMĐăng nhập để trả lời

Sub HideListOfSheetsWithNumber()
sheetsToHide = “1,5,76,99,32,45,57” ' Số trang cần ẩn
sheetsToHide

For iCntr = 0 To UBound(sheetsToHide)
Sheets(sheetsToHide(iCntr)). Hiển thị = Sai
Tiếp theo
Kết thúc phụ

Alan Tháng Mười Một 10, 2020 tại 9. 09 PMĐăng nhập để trả lời

Tôi bỏ ẩn 5 tab và sau đó sử dụng Sheets(“xxx”). có thể nhìn thấy =True phương pháp để hiện (các) trang tính tôi cần cung cấp. Vấn đề là các tab mới hiển thị không xuất hiện ở những nơi tôi mong đợi, đôi khi ở vị trí 6 +, đôi khi ở giữa 5 đầu tiên. Tôi có thể chỉ định một vị trí tiếp theo hay tôi phải sử dụng. Phương pháp di chuyển để quản lý nơi chúng hiển thị?