Tạo nút điều khiển chính và các nút phụ thì làm thế nào??? (1 người xem)

[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ó ai giúp em với ko ạ, em đang cần gấp
Chân thành cảm ơn!!!

 

[hanhpptc]

Có ai giúp em với ko ạ, em đang cần gấp
Chân thành cảm ơn!!!

Làm mờ: Tên nút.Enabled = False (Hiện lại là True)
Ẩn: Tên Nút.Visible = False

 

[minhcong.tckt]

Làm mờ: Tên nút.Enabled = False (Hiện lại là True)
Ẩn: Tên Nút.Visible = False

Bác có thể gửi cho em file đính kèm được ko ạ
Hôm trước thấy bác ndu (Ngô Duy Ứng) viết 1 bài ở đâu đó mà em tìm mãi ko ra, em lại quên ko tải tệp đính kèm về tham khảo

 

[ndu96081631]

Bác có thể gửi cho em file đính kèm được ko ạ
Hôm trước thấy bác ndu (Ngô Duy Ứng) viết 1 bài ở đâu đó mà em tìm mãi ko ra, em lại quên ko tải tệp đính kèm về tham khảo

Chắc bạn đang nói bài này chăng:
http://www.giaiphapexcel.com/forum/...n-cách-tạo-menu-nút-bấm-thêm-đến-nhiều-sheet&
Hic.. hôm nay mới biết là mình tên Ứng (sao má mình hổng cho mình biết nhỉ?)

 

[hanhpptc]

Bác có thể gửi cho em file đính kèm được ko ạ
Hôm trước thấy bác ndu (Ngô Duy Ứng) viết 1 bài ở đâu đó mà em tìm mãi ko ra, em lại quên ko tải tệp đính kèm về tham khảo

Bạn xem file đính kèm nhé

 

[minhcong.tckt]

Chắc bạn đang nói bài này chăng:
http://www.giaiphapexcel.com/forum/...n-cách-tạo-menu-nút-bấm-thêm-đến-nhiều-sheet&
Hic.. hôm nay mới biết là mình tên Ứng (sao má mình hổng cho mình biết nhỉ?)

Hihi, 1 câu hỏi ngoài lề: Bác tên gì đó ạ, em chưa bít

 

[minhcong.tckt]

Bạn xem file đính kèm nhé

Bác cho em hỏi là khi làm mờ, như bác hướng dẫn, mà mình tạo đường link thì nút đó tạm thời ko có tác dụng đúng ko ạ???

 

[hanhpptc]

Bác cho em hỏi là khi làm mờ, như bác hướng dẫn, mà mình tạo đường link thì nút đó tạm thời ko có tác dụng đúng ko ạ???

Đúng vậy (Trong trường hợp bạn tạo bằng công cụ Control Toolbox trong Excel)

 

[minhcong.tckt]

Làm mờ: Tên nút.Enabled = False (Hiện lại là True)
Ẩn: Tên Nút.Visible = False

Tên nút bằng tiếng việt có dấu nó báo lỗi anh à, có cách gì khắc phục ko ạ???

 

[hanhpptc]

Tên nút bằng tiếng việt có dấu nó báo lỗi anh à, có cách gì khắc phục ko ạ???

Bạn xem đặt tên nút trong Properties (Name không được có khoảng trắng) trong File đính kèm đấy:
Chọn Sheet có nút (CommanButton), View/Toolbars/Control Toolbox. Bấm Design Mode (hình cây thước Êke). sau đó click chuột phải nút cần chỉnh, chọn Propeties sẽ thấy và tùy chỉnh theo ý bạn.
Còn để nút hiện tiếng việt trên nhãn mình hay dùng Font Vni-Time

 

[ndu96081631]

Tên nút bằng tiếng việt có dấu nó báo lỗi anh à, có cách gì khắc phục ko ạ???

Có 2 loại Button, 1 Button được lấy từ thanh Forms và 1 Button được lấy từ thanh Control ToolBox
Với Button Forms thì gõ tiếng Việt Unicode thoải mái (như tôi đã làm ở link trên)

 

[minhcong.tckt]

Bạn xem đặt tên nút trong Properties (Name không được có khoảng trắng) trong File đính kèm đấy:
Chọn Sheet có nút (CommanButton), View/Toolbars/Control Toolbox. Bấm Design Mode (hình cây thước Êke). sau đó click chuột phải nút cần chỉnh, chọn Propeties sẽ thấy và tùy chỉnh theo ý bạn.
Còn để nút hiện tiếng việt trên nhãn mình hay dùng Font Vni-Time

Anh ơi, em làm được 1 nút điều khiển 1 nút rùi, nhưng giờ em muốn điều khiển thêm nút nữa (1 nút chính làm ẩn hiển 2,3.. nút phụ) thì phải làm ntn nào ạ???

 

[hanhpptc]

Anh ơi, em làm được 1 nút điều khiển 1 nút rùi, nhưng giờ em muốn điều khiển thêm nút nữa (1 nút chính làm ẩn hiển 2,3.. nút phụ) thì phải làm ntn nào ạ???

Trong câu lệnh IF bạn liệt kê tất cả các nút cần ẩn hiện (hoặc gửi File và yêu cầu lên)

 

[ndu96081631]

Anh ơi, em làm được 1 nút điều khiển 1 nút rùi, nhưng giờ em muốn điều khiển thêm nút nữa (1 nút chính làm ẩn hiển 2,3.. nút phụ) thì phải làm ntn nào ạ???

Vầy đi cho dễ: Bạn muốn tạo nút thế nào thì cứ vẽ sẳn ra bảng tính rồi gữi lên đây
(lý ra code có sẳn, bạn phải tự mình tùy biến được)

 

[minhcong.tckt]

Trong câu lệnh IF bạn liệt kê tất cả các nút cần ẩn hiện (hoặc gửi File và yêu cầu lên)

Em gửi file đính kèm, mong các huynh tỷ giúp đỡ, viết cho em tiếng việc có dấu luôn ạ
Chân thành cảm ơn!!!

 

[hanhpptc]

Em gửi file đính kèm, mong các huynh tỷ giúp đỡ, viết cho em tiếng việc có dấu luôn ạ
Chân thành cảm ơn!!!

Bạn xem và tùy biến theo nhé

 

[ndu96081631]

Em gửi file đính kèm, mong các huynh tỷ giúp đỡ, viết cho em tiếng việc có dấu luôn ạ
Chân thành cảm ơn!!!

Đã nói phải vẽ Button thuộc thanh Forms mới được, bạn lại vẽ Button từ thanh Control ToolBox
(chẳng đọc kỹ hướng dẫn gì cả)
Code chỉ có bi nhiêu thôi:

Sub Main()
  Dim Shp As Shape
  With ActiveSheet
    For Each Shp In .Shapes
      If InStr(Shp.OnAction, "Main") = 0 Then
        If .Shapes(Application.Caller).AlternativeText = _
        Split(Shp.AlternativeText, ":")(0) Then Shp.Visible = Not (Shp.Visible)
      End If
    Next
  End With
End Sub

Sub GotoSh()
  Dim Shp As Shape
  With ActiveSheet
    .DrawingObjects.Visible = False
    For Each Shp In .Shapes
      If InStr(Shp.OnAction, "Main") Then Shp.Visible = True
    Next
    Sheets(Split(.Shapes(Application.Caller).AlternativeText, ":")(1)).Select
  End With
End Sub

 

[minhcong.tckt]

Giúp em với, mã code khi em làm bị cảnh báo màu vàng

If .Shapes(Application.Caller).AlternativeText = _
Split(Shp.AlternativeText, ":")(0) Then Shp.Visible = Not (Shp.Visible)

 

[ndu96081631]

Giúp em với, mã code khi em làm bị cảnh báo màu vàng

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 à!

 

[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]