[[20080220183157]]　『マクロ実行後マクロを実行させるテキストボックス』（あつし）　ページの最後に飛ぶ

『マクロ実行後マクロを実行させるテキストボックス付近のセルを選択したい』（あつし）

 今日なんかめちゃくちゃ多いですね・・・
 今日は以前作ったマクロで改善したいことがあります。
 1ページから10ページ（印刷時の）の各ページに内容をチェックするマクロを
 実行するテキストボックスを配置してます。
 現在はマクロ実行後A1セルに戻るようにしているのですが，これが不評で
 マクロ終了後，押したテキストボックスの横？位をアクティブにしたいのですが
 何かいい方法はあります？

* 実行するテキストボックスを配置してます

これは、コマンドバー「図形描画」にあるテキストボックスの事ですか？

だとしたら・・・、

新規ブックの標準モジュールに

Sub mk_textbox()

    Dim rng As Range
    Set rng = Range("j5")

    With ActiveSheet.TextBoxes.Add(rng.Left, rng.Top, rng.Width, rng.Height)
       .Text = "テキスト"
       .OnAction = "txt_click"
       End With
End Sub
Sub txt_click()
    Dim shpnm As String
    MsgBox "これから近くのセルを選択します"
    If TypeName(Application.Caller) = "String" Then
       shpnm = Application.Caller
       With ActiveSheet.Shapes(shpnm)
          .TopLeftCell.Offset(0, -1).Activate
          End With
       End If
End Sub

mk_textboxを実行してください。

アクティブシートのセルＪ５の位置にテキストボックスを作成し、

このテキストボックスにマクロ「txt_click」を登録します。

クリックしてみてください。

メッセージ表示後、このテキストボックスの左のセルを選択します。

こういうことですか？

 ありがとうございます。
    Dim shpnm As String
    MsgBox "これから近くのセルを選択します"
    If TypeName(Application.Caller) = "String" Then
       shpnm = Application.Caller
       With ActiveSheet.Shapes(shpnm)
          .TopLeftCell.Offset(0, -1).Activate
          End With
       End If
 を追加すればできました。
 過去ログとか探したのに・・・
 お手数かけました。（あつし）

コメント返信：

[ 一覧(最新更新順) ]

[[20080220183157]] 『マクロ実行後マクロを実行させるテキストボックス』（あつし） ページの最後に飛ぶ

* 実行するテキストボックスを配置してます

[[20080220183157]]　『マクロ実行後マクロを実行させるテキストボックス』（あつし）　ページの最後に飛ぶ