[[20141028085751]]　『ボタンの押し忘れ防止』（SARA）　ページの最後に飛ぶ

『ボタンの押し忘れ防止』（SARA）

 本日の仕事内容で
 1ブックに3つのシ－トがあります。
 Sheet2,表示,shee1です。
 Sheet2から作りはじめます。
 Sheet2で入力をしたものを
 ボタン(並べ替えのマクロ記録)を押しています。
 ついつい忘れてボタンを押し忘れてしまいます。

 Sub ボタン2_Click()
 ' ボタン2_Click Macro
    Range("D4:N21").Select
    Selection.Sort Key1:=Range("E5"), Order1:=xlAscending, Key2:=Range("F5") _
        , Order2:=xlAscending, Key3:=Range("G5"), Order3:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        SortMethod:=xlPinYin, DataOption1:=xlSortNormal, DataOption2:= _
        xlSortNormal, DataOption3:=xlSortNormal
End Sub

 ボタンを押し忘れないようには、どうしたらよいでしょうか
 例えば
 ボタンを押さない限り、他のシ－トに行けないようにするとか
 良いお知恵をご教授お願いいたします。

＜使用 Excel：Excel2013、使用 OS：Windows7 ＞

 ボタンはやめて自動で実行したらどうでしょうか

 シートモジュールに下記を置けば、シートを切替えるタイミングで実行されます。
 （戻れば処理済）

 Private Sub Worksheet_Deactivate()
         Range("D4:N21").Sort Key1:=Range("E5"), Order1:=xlAscending, Key2:=Range("F5") _
        , Order2:=xlAscending, Key3:=Range("G5"), Order3:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        SortMethod:=xlPinYin, DataOption1:=xlSortNormal, DataOption2:= _
        xlSortNormal, DataOption3:=xlSortNormal
 End Sub

（Mook） 2014/10/28(火) 09:08

 Mookさん
 検証してみました。
 感謝しております。これでミスがなくなります。
 ありがとうございました。
 投稿してよかったです。

（SARA） 2014/10/28(火) 09:24

コメント返信：

[ 一覧(最新更新順) ]

[[20141028085751]] 『ボタンの押し忘れ防止』（SARA） ページの最後に飛ぶ

[[20141028085751]]　『ボタンの押し忘れ防止』（SARA）　ページの最後に飛ぶ