Manhhungstone
Thành viên mới
- Tham gia
- 13/4/10
- Bài viết
- 31
- Được thích
- 4
Tặng bạn code này:Xin hướng mọi người hướng dẫn giùm à/
Sub Main()
ActiveSheet.Buttons.Visible = True
End Sub
Sub GotoSh()
ActiveSheet.Buttons.Visible = False
ActiveSheet.Buttons("Cmd").Visible = True
Sheets(ActiveSheet.Buttons(Application.Caller).Characters.Text).Select
End Sub
Khó à nha! Vì khi ấy bạn lại phải viết thêm codeCảm ơn bạn nhiều/ cho mình hỏi thêm mình muốn lập một menu chính nữa có tên là sổ tổng hợp và củng khi nhấn vào cũng hiện ra các menu thực đơn để nhấn vào các sheet có tên cùng. nhờ bạn hướng dẫn hộ thêm nhé/ cảm ơn bạn nhiều.
Sub Main1()
Dim Bt
For Each Bt In ActiveSheet.Buttons
If InStr(Bt.OnAction, "GotoSh1") Then Bt.Visible = True
Next
End Sub
Sub Main2()
Dim Bt
For Each Bt In ActiveSheet.Buttons
If InStr(Bt.OnAction, "GotoSh2") Then Bt.Visible = True
Next
End Sub
Sub GotoSh1()
ActiveSheet.Buttons.Visible = False
ActiveSheet.Buttons("Cmd1").Visible = True
ActiveSheet.Buttons("Cmd2").Visible = True
Sheets(ActiveSheet.Buttons(Application.Caller).Characters.Text).Select
End Sub
Sub GotoSh2()
ActiveSheet.Buttons.Visible = False
ActiveSheet.Buttons("Cmd1").Visible = True
ActiveSheet.Buttons("Cmd2").Visible = True
Sheets(ActiveSheet.Buttons(Application.Caller).Characters.Text).Select
End Sub
Xem yêu cầu của bạn, tôi đã nghĩ là vô phương rồi... và dù có viết được code chạy cho file này thì cũng sẽ không tùy biến được khi bạn thêm nútNhờ mọi người hướng dẫn có cách nào tạo biểu tượng hình ảnh ẩn và hiện theo thanh nenu đến sheet
Sub Main()
Dim Shp As Shape
With ActiveSheet
For Each Shp In .Shapes
If .Shapes(Application.Caller).AlternativeText = _
Split(Shp.AlternativeText, ":")(0) Then Shp.Visible = True
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
Không cần viết thêm sub đâu, sửa lại sub Main 1 chút là được:NHờ bạn xem giùm khi mình muốn tạo một menu mới bằng macro để vào sheet chỉ định trên nhưng khi mình nhấn vào nenu sheet trên sổ chi tiết hoặc tổng hợp thì nó tự động xoá hết các menu tạo mới của mình/ nhờ mọi người có cách nào khi nhấn vào nenu sheet trên sổ chi tiết hoặc tổng hợp thì không bị mất menu mới mình đã tạo( Mình kèm theo File) nhờ mọi người làm hộ/ xin cảm ơn/
Sub Main()
Dim Shp As Shape
On Error Resume Next
With ActiveSheet
For Each Shp In .Shapes
If .Shapes(Application.Caller).AlternativeText = _
Split(Shp.AlternativeText, ":")(0) Then Shp.Visible = True
Next
Sheets(.Shapes(Application.Caller).AlternativeText).Select
End With
End Sub
Thì bạn muốn vẽ hình gì mà chẳng được... trong file bạn đang vẽ hình Oval đấy thôiTiếp theo chủ đề " Tạo Menu nút bấm ....." của bạn Manhhungstone.
Xin hỏi GPE : có thể tùy biến các nút lệnh HÌNH CHỮ NHẬT thành nút lệnh HÌNH TRÒN hoặc HÌNH OVALD
được không ? Nếu được thì xin chỉ dẫn cách làm.
Cảm ơn !
Theo file của bạn gửi thì, bạn đã vẽ hình oval rồi còn muốn cho nó thực hiện macro thì bạn click vào cuột phải -> Assign Macro -> trong ô Macro name -> Main1Tiếp theo chủ đề " Tạo Menu nút bấm ....." của bạn Manhhungstone.
Xin hỏi GPE : có thể tùy biến các nút lệnh HÌNH CHỮ NHẬT thành nút lệnh HÌNH TRÒN hoặc HÌNH OVALD
được không ? Nếu được thì xin chỉ dẫn cách làm.
Cảm ơn !
Thì sửa code lại tí thôi ---> Khi các nút con hiện ra, bạn chỉ cần chọn 1 cell bất kỳ trên sheet là các nút ấy sẽ ẩn lập tứcEm thấy bài này mới lạ và hay nên em xin tham gia 1 ý kiến :
To anh ndu:Sau khi ta chọn vào 1 nút chính thì các nút con hiện ra vấn đề này anh làm rất hay,nhưng xin hỏi nếu như lúc ta lỡ chọn nút chính rồi nhưng không muốn chọn các nút con trong đó nữa thì làm sao để các nút con ẩn đi vậy thưa anh
Bạn tự mình thí nghiệm đi chứ, sao mà tôi biết được. Thí nghiệm bằng cách mang file sang máy khác mà thửTo Ndu: Cho em hỏi sao em tải file ở bài #8 mà khi mở lên không thấy biểu tượng hình ảnh excel trên đó ta, không lẽ máy em còn thiếu cái gì. Mong anh giúp cho hen thanks Ndu!!!
Bạn thử chèn 1 Picure, xong thu nhỏ và đặt nó nằm trên Button xem có được không? Tôi làm làm thử mà không tài nào cho Picture nằm trên Button được! Rất buồn cườiEm biết rồi tại vì excel 2007 không thể hiện, mà excel 2003 lại thể hiện nghĩ cũng lạ thiệt đó không biết các bạn sài excel 2007 có bị giống em không nữa. Không biết có phải biểu tượng ảnh đó là là excel 2003 nên excel 2007 không thể hiện không ta
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 1
DIỄN ĐÀN GIẢI PHÁP EXCEL Group 2