![見出し画像](https://assets.st-note.com/production/uploads/images/87505309/rectangle_large_type_2_cb35b094b0f2b913cd5d084eb72ed025.png?width=1200)
Photo by
yukihi6
キーボード操作用の魔法の呪文
エクセルで事務を楽にするプログラマーmoimoiです。
今回はキーボードの操作の自動化を行うにあたって、必要なコードをご紹介します。どちらもモジュールの一番上(Sub○○()の上)に記載を行うことで以下の機能が使用できるようになります。
使用方法の詳細は別のnoteでご紹介予定です。
1.ポップアップ使用時
Public Const MB_OK = &H0 'OKボタン
Public Const MB_TOPMOST = &H40000 '最前面フラグ
Public Const MB_YesNo = 4 'はい いいえ
Public Const MB_DefaultButton2 = 256
2.キーボード使用時&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
この記事が参加している募集
よろしければ、サポートお願いします! 頂いたサポートは、noteの運営費や新たなコード作成の開発費に充てさせていただきます。