|
▼さっさん さん:
こんばんは。
>お世話になります。
>ボタン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()
Dim txt As String
txt = ActiveSheet.Shapes(Application.Caller). _
TextFrame.Characters.Text
> Sheets(Application.Caller).Select
>End Sub
但し、シートが存在しなければ、エラーになりますよ!!
|
|