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