|
お世話になります。
ボタン1を押し、ボタンを作成、ボタン名を入力、ボタンに"ジャンプ_click"
のマクロ動作を定義してあげまして、新しくできたボタンを押すことにより、
予め作成したシートをアクティブにしたいのですが、なかなかうまくいきません。
ボタン名を取得しシートをアクティブにするにはどうしたら良いでしょうか。
ご教授おねがいします。
Sub ボタン1_click()
Response = MsgBox( _
Title:="新規ボタン作成の確認", _
Prompt:="新規ボタンを作成しますか?", _
Buttons:=vbYesNo + vbQuestion + vbDefaultButton2)
If Response = vbYes Then
ActiveSheet.Buttons.Add(200, 100, 80, 20).Select
NewButton = InputBox("新規シート名", "シート名入力")
Selection.Characters.Text = NewButton
End If
Selection.OnAction = "ジャンプ_click
End Sub
Sub ジャンプ_click()
Sheets(Application.Caller).Select
End Sub
|
|