ユーザーフォームを開いた後、シートにフォーカスを移す : Excel(エクセル)

Excel Tipsメニューに戻る

スポンサーリンク



例えば、ユーザーフォームに説明のみを記入している場合、ユーザーフォームを開いた後シートにフォーカスを移したい場合があります。
ここでは、Windows API の SetFocus を使いフォーカスを移します。
ユーザーフォームは、vbModeless(モードレス)で開きます。

作成Excel画面

■ 「科目名一覧」ボタンをクリックすると、科目名一覧のユーザーフォームを開きその後、ボタンにフォーカスを戻しています。
ユーザーフォームを開いたシート

スポンサーリンク



Excel VBA実行コード

Option Explicit

Private Declare Function SetFocus Lib "user32" (ByVal hwnd As Long) As Long

Private Sub CommandButton1_Click()
    
    'ユーザーフォームを開く
    UserForm1.Show vbModeless
    'シートにフォーカスを移す
    SetFocus Application.hwnd

End Sub

Excel Tipsメニューに戻る

スポンサーリンク






■■■
このサイトの内容を利用して発生した、いかなる問題にも一切責任は負いませんのでご了承下さい
■■■
当ホームページに掲載されているあらゆる内容の無許可転載・転用を禁止します


Copyright (c) Excel-Excel ! All rights reserved