Tặng bạn code này:
Sub Main()
ActiveSheet.Buttons.Visible = True
End SubSub GotoSh()
ActiveSheet.Buttons.Visible = False
ActiveSheet.Buttons("Cmd").Visible = True
Sheets(ActiveSheet.Buttons(Application.Caller).Characters.Text).Select
End SubKhó à nha! Vì khi ấy bạn lại phải viết thêm code
Sub Main1()
Dim Bt
For Each Bt In ActiveSheet.Buttons
If InStr(Bt.OnAction, "GotoSh1") Then Bt.Visible = True
Next
End SubSub Main2()
Dim Bt
For Each Bt In ActiveSheet.Buttons
If InStr(Bt.OnAction, "GotoSh2") Then Bt.Visible = True
Next
End SubSub GotoSh1()
ActiveSheet.Buttons.Visible = False
ActiveSheet.Buttons("Cmd1").Visible = True
ActiveSheet.Buttons("Cmd2").Visible = True
Sheets(ActiveSheet.Buttons(Application.Caller).Characters.Text).Select
End SubSub GotoSh2()
ActiveSheet.Buttons.Visible = False
ActiveSheet.Buttons("Cmd1").Visible = True
ActiveSheet.Buttons("Cmd2").Visible = True
Sheets(ActiveSheet.Buttons(Application.Caller).Characters.Text).Select
End SubXem 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út
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 SubSub 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 SubKhông cần viết thêm sub đâu, sửa lại sub Main 1 chút là được:
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ôi
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 -> Main1
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ức
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ử
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ười
Cảm ơn bạn rất nhiều. Tuy nhiên mình mong bạn hướng dẫn mình tự làm được như bạn vậy. Chân thành cảm ơn bạn!
Cái này cần gì đến code hả viethoai? Vào Properties, chỉnh LinkedCell = A11 là được rồi
Cảm ơn bác đã hướng dẫn, mình đã làm theo nhưng vẫn không điều khiển được. Làm phiền bác cho em xin một hướng dẫn cụ thể hơn nhé! Cảm ơn thật nhiều!
Bạn Xem hình đi, rồi sẽ rõ. Thân
Cảm ơn các bạn thật nhiều, mình đã làm được rồi! Khi dán code xong mình phải nhấn run nữa thì nút nhấn mới điều khiển được. Thế mà mình cứ mò mẩm mãi. Cảm ơn tất cả!
ndu đã viết:
Chào bác ndu chuyên gia GPE!
Không phải vậy!
Cảm ơn! bác xem File
Trong file bạn hỏi:
Bài 1 đã hướng dẫn rõ ràng rồi còn gì ---> Cứ thế mà làm thôi
Bác giúp tý đi!
Ah... xin lỗi, tôi lộn... Phải là bài 1 của topic này mới đúng:
Cái này thì tôi chẳng biết làm thế nào cả ---> Thôi thì bạn cứ bấm Ctrl + mũi tên xuống vậy!
Cảm ơn, thấy quê hơn bao giờ hết.
Em có áp dụng bài #16 và kết hợp thêm chế độ ẩn sheet
Sub ShowAllShs_T()
Dim sh As Worksheet
Application.ScreenUpdating = False
On Error Resume Next
With Sheet3.shapes("Button 91").TextFrame.Characters
For Each sh In ThisWorkbook.Worksheets
If sh.name <> "Main" Then
'sh.Visible = .text = "SHOW ALL"
sh.Visible = (.text = "SHOW ALL") + 2
End If
Next
.text = IIf(.text = "SHOW ALL", "HIDE ALL", "SHOW ALL")
End With
Application.ScreenUpdating = True
End SubSub Auto_Open()
Dim wks As Worksheet, shp1 As Shape
Set wks = Worksheets("Main")
Set shp1 = wks.shapes("Button 91")
If shp1.TextFrame.Characters.text = "HIDE ALL" Then ShowAllShs_T
End SubSub Reset()
Dim shp As Shape
With ActiveSheet
[COLOR=#ff0000][B] .DrawingObjects.Visible = False[/B][/COLOR]
For Each shp In .shapes
If InStr(shp.OnAction, "Main_1") Then shp.Visible = True
Next
End With
End Sub
Sub Reset()
Dim shp As Shape
With ActiveSheet
' .DrawingObjects.Visible = False'
For Each shp In .shapes
If InStr(shp.OnAction, "Main_1") Then
shp.Visible = True
Else
shp.Visible = False
End If
Next
End With
End SubEm cảm ơn Thầy
Sửa thế này:
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
Sheets(Target.Name).Visible = -1
Sh.Visible = 2
End SubSub Main_1()
Dim shp As Shape, tmp
On Error Resume Next
Reset
With ActiveSheet
For Each shp In .shapes
tmp = Split(shp.AlternativeText, ":")(0)
If .shapes(Application.Caller).AlternativeText = tmp Then shp.Visible = True
Next
With Sheets(.shapes(Application.Caller).AlternativeText)
.Visible = -1
.Select
End With
.Visible = 2
End With
End Sub
Sub GotoSh()
Reset
On Error Resume Next
With ActiveSheet
With Sheets(Split(.shapes(Application.Caller).AlternativeText, ":")(1))
.Visible = -1
.Select
End With
.Visible = 2
End With
End SubTại bạn không để ý thôi... Ẩn mà vẫn Select được là vì người ta cho sheet hiện ra trước ---> Bạn thiếu công đoạn này thì làm sao Select được
[COLOR=#000000][COLOR=#0000BB]Sub Link2Sh[/COLOR][COLOR=#007700]()
[/COLOR][COLOR=#0000BB]With ActiveSheet
With Sheets[/COLOR][COLOR=#007700](.[/COLOR][COLOR=#0000BB]Shapes[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Application[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Caller[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]AlternativeText[/COLOR][COLOR=#007700])
[/COLOR][/COLOR][COLOR=#ff0000].Visible = True:[/COLOR][COLOR=#000000][COLOR=#007700] .[/COLOR][COLOR=#0000BB]Select
End With
[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Visible [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]2
End With
End Sub [/COLOR][/COLOR]
