【Excel-VBA】エクセルで押したボタンの名前を取得して使用する

str_text = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text ‘ボタン名取得

If Len(str_text) < 1 Then ‘名前が1文字以上でなければ
MsgBox “未使用のボタンです”
GoTo Label01’適当な場所に飛ばす
End If

コメントを残す

メールアドレスが公開されることはありません。