Excel VBA: マウスホイールでのフォーム移動を修正する方法【Office 365の不具合解消】

Excel VBAを使ってフォームの上下移動をマウスホイールで行う機能を実装している方に向けて、Office 365にアップグレード後に発生する不具合を修正する方法を解説します。具体的なVBAコードの修正方法も紹介し、動作不良を解消するための手順を提供します。

1. 問題の概要と発生原因
2. 必要なVBAコードの修正方法
3. VBAコードの修正内容と解説
4. 問題解消のための追加情報
まとめ

1. 問題の概要と発生原因

Excel 2016では正常に動作していた「フォームの上下移動をマウスホイールで行う」機能が、Office 365にアップグレード後に動作しなくなる不具合が発生しました。この問題の原因は、APIの更新や動作に関連する変更にあります。VBAコード自体は基本的に問題ないのですが、特定の環境下では動作が異なる場合があります。

具体的には、マウスホイールを使った「X=30かつY=30」の複合キーが誤動作を引き起こす場合があります。

2. 必要なVBAコードの修正方法

まず、提供されたコードに基づいて修正点を確認します。以下は、正しく動作させるためのVBAコードの修正方法です。

Private Sub UserForm_Activate()
    Dim ms As MSG
    hWnd = FindWindow("ThunderDFrame", Me.Caption)
    Do Until roopFlag = True
        Call GetMessage(ms, hWnd, 0, 0)
        If ms.message = WM_MOUSEWHEEL Then
            If ms.wParam < 0 Then
                Me.ScrollTop = Me.ScrollTop + 20
            Else
                Me.ScrollTop = Me.ScrollTop - 20
            End If
        Else
            Call TranslateMessage(ms)
            Call DispatchMessage(ms)
        End If
        DoEvents
    Loop
End Sub