|
初めての投稿です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が変更される場合があるからです。
|
|