エクセルファイルの取り込み (ID:141674)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんなのを作ります。 Sub Macro1() Select Case ActiveSheet.Name Case "Sheet1" MsgBox "Selet Sheet1" Case "Sheet2" MsgBox "Selet Sheet2" Case "Sheet3" MsgBox "Selet Sheet3" End Select End Sub でシート毎もしくはツールバーとかに貼り付けた ボタンにこれを割り当ててみてはどうでしょう。 MsgBoxの代わりに好きな処理を書けば実現出来ると思います。 現在選択されているシートは ActiveSheet.ほにゃらら で操作出来るはずです。 #多分私より詳しいと思いますので #ボタンとマクロのひも付けについては詳しくは書き(け)ません。