Hỏi cách ẩn sheet (5 người xem)

[feelingyes]

Chào các anh chị
Ví dụ file Excel của em có 10 sheet (trong đó có một sheet Menu)
Em sẽ hide 9 sheet kia đi và để lại sheet menu.
-Vấn đề em cần hỏi là từ sheet menu em difine name đến một sheet (A1) chẳng hạn. Thì kết quả chỉ có một sheet (A1) được hiện lên trên màn hình thôi
-Muốn sang các sheet khác thì phải quay về Menu và thực hiện thao tác tương tự
-Cái món này có phải dùng tới macro ko ah?
Tks

 

[cadafi]

Chào các anh chị
Ví dụ file Excel của em có 10 sheet (trong đó có một sheet Menu)
Em sẽ hide 9 sheet kia đi và để lại sheet menu.
-Vấn đề em cần hỏi là từ sheet menu em difine name đến một sheet (A1) chẳng hạn. Thì kết quả chỉ có một sheet (A1) được hiện lên trên màn hình thôi
-Muốn sang các sheet khác thì phải quay về Menu và thực hiện thao tác tương tự
-Cái món này có phải dùng tới macro ko ah?
Tks

Chắc là phải xài Macro rồi bạn! Mình chưa nghĩ ra cách nào mà không cần viết cái gì đó vào khung soạn thảo VBA cả!

 

[trungnt]

Chào các anh chị
Ví dụ file Excel của em có 10 sheet (trong đó có một sheet Menu)
Em sẽ hide 9 sheet kia đi và để lại sheet menu.
-Vấn đề em cần hỏi là từ sheet menu em difine name đến một sheet (A1) chẳng hạn. Thì kết quả chỉ có một sheet (A1) được hiện lên trên màn hình thôi
-Muốn sang các sheet khác thì phải quay về Menu và thực hiện thao tác tương tự
-Cái món này có phải dùng tới macro ko ah?
Tks

A phải viết code thôi, quay macro không giải quyết được vấn đề như a muốn đâu. Theo tôi nghĩ, a nên làm mỗi sheet có 1 combobox để khi chọn sheet nào thì chỉ có sheet đó hiện lên mà o cần quay về sheet menu nữa.

 

[ndu96081631]

Công thức làm được hết, chỉ trừ chổ làm cho sheet hiện lên và ẩn đi thì... thua. Nên đành phải VBA thôi

 

[boyxin]

Chào các anh chị
Ví dụ file Excel của em có 10 sheet (trong đó có một sheet Menu)
Em sẽ hide 9 sheet kia đi và để lại sheet menu.
-Vấn đề em cần hỏi là từ sheet menu em difine name đến một sheet (A1) chẳng hạn. Thì kết quả chỉ có một sheet (A1) được hiện lên trên màn hình thôi
-Muốn sang các sheet khác thì phải quay về Menu và thực hiện thao tác tương tự
-Cái món này có phải dùng tới macro ko ah?
Tks

THẾ NÀY CŨNG LÀ 1 CÁCH
(Phát hiện ra chỗ không hay cấm được cười)​

 

[pqt08]

cứ cười, ai biết chứ?

THẾ NÀY CŨNG LÀ 1 CÁCH​

(Phát hiện ra chỗ không hay cấm được cười)​

phát hiện ra, nhưng ... cũng hay đấy chứ!!!
cười thì ... cười rồi, (có biết cũng ... làm gì nhau?)
nhưng bác kéo nó ... già già tay một tí, tôi mở file ra vẫn còn thấy "sheet 2"!!!

 

[feelingyes]

Nếu thì đành phải dùng VBA thôi, bác nào có đoạn code xin post lên để em học hỏi với.
TKS

 

[boyxin]

Nếu thì đành phải dùng VBA thôi, bác nào có đoạn code xin post lên để em học hỏi với.
TKS

Xem phương án này có được không? - chỉnh sửa thêm cho vừa ý nha​

 

[feelingyes]

Mình đã mở file ra xem
-Đầu tiên chỉ có 01 sheet Index
-Nhưng sau khi lựa chọn thì ta có tất cả là 02 sheet

Mình thêm một dòng code nữa
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
For i = 1 To Sheets.Count Step 1
If Sheets(i).Name <> "INDEX" Then
Sheets(i).Visible = False
End If
Next
TenSheet = Target.Value
Sheets(TenSheet).Visible = True
Sheets("Index").Visible = false
Sheets(TenSheet).Select
End Sub

Nhưng sau khi chọn sheet feelingyes, kết quả được như mong muốn, nhưng khi ấn chọn sheet Menu thì không được

Liệu ta có phải chèn thêm mỗi sheet 01 button, và gán macro hiện sheet("INDEX") không nhỉ
(giống như file kế toán bản full của Haitvonline gần đây mới gửi đó

 

[ndu96081631]

Mình đã mở file ra xem
-Đầu tiên chỉ có 01 sheet Index
-Nhưng sau khi lựa chọn thì ta có tất cả là 02 sheet

Nhưng sau khi chọn sheet feelingyes, kết quả được như mong muốn, nhưng khi ấn chọn sheet Menu thì không được

Liệu ta có phải chèn thêm mỗi sheet 01 button, và gán macro hiện sheet("INDEX") không nhỉ
(giống như file kế toán bản full của Haitvonline gần đây mới gửi đó

Không hiểu lắm! Là sao ta? Khi bạn chọn sheet nào đó thì đương nhiên nó hiện ra, rồi khi bạn bấm Back để quay về INDEX thì chỉ có sheet INDEX được hiện, sheet còn lại ẩn đi.
Vậy là đúng rồi! Chứ bạn muốn sao? Có thể nói rõ hơn 1 chút được không?

 

[feelingyes]

ý của mình là mình đang ở sheet Index, chọn sheet A thì chỉ sheet A được hiện, sau đó nhấn back thì chỉ Index được hiện
Nói chung lúc nào cũng chỉ có một sheet được hiện

 

[ndu96081631]

ý của mình là mình đang ở sheet Index, chọn sheet A thì chỉ sheet A được hiện, sau đó nhấn back thì chỉ Index được hiện
Nói chung lúc nào cũng chỉ có một sheet được hiện

Cái này cũng dể thôi mà! Bạn sửa lại mấy chổ:
-Sửa lại sự kiện thành Workbook_SheetSelectionChange
-Tại các sheet khác với sheet INDEX, ngay cell A1, chử Back sửa lại thành INDEX
-Mang đoạn code select sheet lên phía trên, ẩn sheet xuống dưới
Cụ thể như sau:

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
    TenSheet = Target.Value
    Sheets(TenSheet).Visible = True
    Sheets(TenSheet).Select
For i = 1 To Sheets.Count
    If Sheets(i).Name <> ActiveSheet.Name Then
        Sheets(i).Visible = False
    End If
Next
End Sub

 

[satthuvae]

Thanks, mình có vấn đề nhỏ trong việc ẩn sheet, mọi người xử lý giúp mình với.

 

[donghung1512]

Đây là bài viết của một anh nào đó trên GPE em tải về giờ update lại. Xem bạn có dùng được không nhé/