ユーザフォームのフォーカス時、別シートをアクティブにするには？

Question

こんばんは。

VBAでユーザーフォームとEXCELシートを
2枚使ったプログラムを作成しております。

例えば、ユーザフォーム、ブックA-Sheet1、ブックB-Sheet2とした時に、
ブックAにあるボタンを押すとユーザフォームが起動します。

ユーザフォームを起動しアクティブにすると、ブックAもアクティブになります。

ユーザフォーム内にあるボタンを押した時に、ブックBのデータを表示したいので

    Dim shtName
　　shtName = ActiveSheet.Name
    If NOT shtName = "Sheet2" Then
        Workbooks("ブックB.xlsx").Activate
        Worksheets("sheet2").Activate
    End If

とし、ブックBをアクティブにするように作りました。

ユーザフォーム内にあるボタンを最初に押した時は、ブックBがアクティブになりデータの確認ができました。

次にユーザフォームに再度フォーカスしてユーザフォームをアクティブにすると
ブックBの上にブックAが現れその上にフォームが表示され、
再度ユーザフォーム内にあるボタンを押してみてもブックBがアクティブにならずに無反応です。
本来ならIf NOT shtName = "Sheet2" ThenでブックAがアクティブになっているのでブックBを表示させたいです。

その後もう一度ユーザフォーム内にあるボタンを押すと実行エラー9 インデックスが有効範囲内にありませんとエラーになります。

Debug.Print等で確認したところブックBがアクティブにならずに(ブックAがアクティブ状態で)
Worksheets("sheet2").Activateが実行され実行エラー9となっております。

ユーザフォームへフォーカスしてボタンを押そうとした時にブックAをアクティブにさせない方法
またはブックBを確実にアクティブにするにはどうしたら良いのでしょうか？
よろしくお願い致します。

Comments

[torisan]

>>ユーザフォームに再度フォーカスしてユーザフォームをアクティブにするとブックBの上にブックAが現れ

Microsoft Office Personal 2010　で再現しませんでした。
何か記載以外のコードがありますか？

[hatena19]

Office 365 の環境では再現しました。Office のバージョンに依存する事象なんでしょうか。

Answer 1

フォーカス移動するイベント（クリック時イベントなど）内での、フォーカスを変更するコマンドは、イベント発生のタイミングの関係だと思いますが、うまく動作しないことがあります。

このような場合、私の場合はタイマー処理でコマンドの発生タイミングをずらして対処しています。

標準モジュール

Public Sub SheetActivate()
    With Workbooks("ブックB.xlsx")
        .Activate
        .Worksheets("sheet2").Activate
    End
End Sub

ユーザーフォームモジュール

Private Sub CommandButton3_Click()
    Application.OnTime Now(), "MyActivate"
End Sub

ちなみに、If NOT shtName = "Sheet2" Then でアクティブシート名をチェックしてますが、意味ないですね。ユーザフォームのコマンドボタンをクリックするとフォーカスが移動しますので。