文書番号: 402462
最終更新日: 1997/10/21
Sub BtnCase() Dim BtnName As String BtnName = Application.Caller Select Case BtnName Case "ボタン 1" MsgBox "ボタン 1 が押された時の処理" Case "ボタン 2" MsgBox "ボタン 2 が押された時の処理" Case "ボタン 3" MsgBox "ボタン 3 が押された時の処理" End Select End Sub
Keywords: KBHOWTO KB402462
Technology: kbExcel500 kbExcelSearch kbExcelWinSearch