エクセルで事務を楽にするプログラマーmoimoiです。

　今回はキーボードの操作の自動化を行うにあたって、必要なコードをご紹介します。どちらもモジュールの一番上（Sub○○（）の上）に記載を行うことで以下の機能が使用できるようになります。

使用方法の詳細は別のnoteでご紹介予定です。

１．ポップアップ使用時

Public Const MB_OK = &H0 'OKボタン
Public Const MB_TOPMOST = &H40000 '最前面フラグ
Public Const MB_YesNo = 4 'はい　いいえ
Public Const MB_DefaultButton2 = 256

２．キーボード使用時＆Sleep使用時

 #If  VBA7 Then
Declare PtrSafe Function MessageBox Lib "User32.dll" Alias "MessageBoxA" (ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal uType As Long) As Integer
Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal ms As LongPtr) #Else 
Public Declare Function MessageBox Lib "User32.dll" Alias "MessageBoxA" (ByVal hWnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal uType As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal ms As Long) #End  If