|
>選択したシートに切り替える
例えば末尾のシートをアクティブにした場合、次に10番目のシートをアクティブに
したいと思ったらいちいち先頭のメニューシートを開くのですか ? そんな面倒な
ことをするようでは、マクロを作る意味がありませんよね。私なら
「現在アクティブになっているシート(どれでもOK)の A列で、次に開きたいシートの
インデックスと同じ行のセルをダブルクリックして、そのシートを開く」という
やり方にします。コードは以下のようになります。ThisWorkbookモジュールに
入れてみて下さい。
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, _
ByVal Target As Range, Cancel As Boolean)
Dim SCnt As Integer, GetS As Long
If Target.Column > 1 Then Exit Sub
Cancel = True
SCnt = Worksheets.Count
GetS = Target.Row
If GetS > SCnt Or GetS = Sh.Index Then Exit Sub
Worksheets(GetS).Activate
End Sub
|
|