Tạo nút điều khiển chính và các nút phụ thì làm thế nào???

[minhcong.tckt]

Giả sử rằng em có 2 nút chính sau:
Nút 1: Thuế
Nút 2: Kế toán

giờ em muốn: khi nhấn vào nút 1 nó sẽ hiện (ẩn) 4 nút con là:
Thuế TNCN, Thuế TNDN, Thuế GTGT, Thuế Môn Bài

Tương tự như vậy đối với nút kế toán:
Chuẩn mực kế toán, Luật kế toán

Hôm trước em có thấy ở đâu đó, mà quên mất đường link, mong các huynh tỷ giúp đỡ???

Chân thành cảm ơn

 

[minhcong.tckt]

Có cảnh báo chứng tỏ bạn làm sai!
Muốn gì cũng phải cho file lên mới biết bạn à!

Em gửi file đính kèm, mong các huynh tỷ giúp đỡ

 

[ndu96081631]

Em gửi file đính kèm, mong các huynh tỷ giúp đỡ

Bạn không đánh dấu AlternativeText thì làm sao "nó" biết được nút nào làm cái gì
Làm giống như hình này:



Ngoài ra, bạn lại vẽ thêm mấy cái Line màu mè trên sheet làm cho việc xử lý rắc rối thêm
Tôi sửa lại code rồi đây! Nói chung mình đã làm "cái gì" khác với file gốc mà code không chạy thì có thể nghĩ "cái đó" là nguyên nhân

 

[minhcong.tckt]

Giờ em muốn chỉ có 1 sheet hiện khi đang ở sheet đó, các sheet còn lại khi chưa bấm nút đều ẩn thì làm thế nào ạ???

 

[ndu96081631]

Giờ em muốn chỉ có 1 sheet hiện khi đang ở sheet đó, các sheet còn lại khi chưa bấm nút đều ẩn thì làm thế nào ạ???

Quá dễ ---> Xem file đính kèm
(Khuyên bạn học thêm VBA để có thể tự làm những trò đơn giản này nhé)

 

[minhcong.tckt]

Quá dễ ---> Xem file đính kèm
(Khuyên bạn học thêm VBA để có thể tự làm những trò đơn giản này nhé)

Option Explicit
Private Sub Worksheet_Activate()
Dim Sh As Worksheet
For Each Sh In ThisWorkbook.Worksheets
If Sh.Name <> ActiveSheet.Name Then
If Sh.Visible = -1 Then Sh.Visible = 2
End If
Next
End Sub

Anh hướng dẫn em cách chạy code này với, em cũng thử copy đoạn mã này sang sheet em làm thử thì ko thấy chạy.
Em cũng đang mò mẫm học VBA

 

[ndu96081631]

Anh hướng dẫn em cách chạy code này với, em cũng thử copy đoạn mã này sang sheet em làm thử thì ko thấy chạy.
Em cũng đang mò mẫm học VBA

Mấu chốt trong file này gồm có
- Code của Sub Main để gán cho các nút chính ---> Tức sau khi vẽ xong nút chính, click phải chuột, chọn Assign Macro và chỉ đến Main
- Code của Sub GotoSh để gán cho các nút phụ ---> Tức sau khi vẽ xong nút phụ, click phải chuột, chọn Assign Macro và chỉ đến GotoSh
- Với các nút phụ, phải được Format Control ở tab Web bằng 1 chuổi theo quy ước: "Tên nút chính, đến dấu 2 chấm rồi đến tên sheet (như hình ở bài #22)
- Code trong sheet Main dùng để ẩn các sheet khác
---------------------
Giả sử tôi có 1 file gồm 3 sheet, Sheet Main, Phụ lục 1 và Phụ lục 2. Bạn xem đoạn video clip dưới đây quá trình tôi xây dựng chương trình nhé:

[video=youtube;fmJAwrW5huQ]http://www.youtube.com/watch?v=fmJAwrW5huQ[/video]