Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

68047 / 76734

←次へ　｜　前へ→


	【13232】Application.Callerにて

知ろう途 - 04/4/28(水) 15:09 -


	引用なし

	パスワード

初めての投稿ですm(_ _)m　初心者です。。。
次のようなマクロをいくつかのオートシェイプ（額縁ボタン）に使い回しています。

Sub KM()
　　Const A As Long = 50, ZU As String = "オートシェイプ "　　
　　Select Case Application.Caller
　　　Case ZU & A + 4: 転写 ("オートシェイプ 54": 処理1)
　　　Case ZU & A + 5: 印表 ("オートシェイプ 55": 処理2)
　　　Case ZU & A + 6: 印裏　　　　　:
　　　Case ZU & A + 13: 全削　　　　 :
　　　　　　　　 :　　　　　　　　　 :
　　End Select
End Sub

これをシンプルに。。。
Sub KM()
　　Dim X AS Long　　
　　？？？？？？？？？？？
　　Select Case X
　　　Case 4: 転写（"オートシェイプ 54": 処理1）
　　　Case 5: 印表（"オートシェイプ 55": 処理2）
　　　Case 6: 印裏　　　　　:
　　　Case 13: 削全　　　　 :
　　　　　　:　　　　　　　 :
　　End Select
End Sub
といった感じにしたいのですが、知恵が足りず困っています。
ご鞭撻のほどよろしくお願いします。
ちなみに、& A + 4 のよう回りくどくにしてるのは新規シートに同じオートシェイプを貼付けると、INDEXが変更される場合があるからです。

0 hits

▼

【13232】Application.Callerにて 知ろう途 04/4/28(水) 15:09

≪