[[20100213113726]]　『マクロ』（虎子）　ページの最後に飛ぶ

『マクロ』（虎子）

 オートシェイプにマクロの登録をして、ボタンみたいに
 しようと考えています。
 そこで、A1セルの数字によって、マクロが変わるようにするには
 どうしたらいいですか？

 例えば、A1セルに28となっている場合は、ボタンを
 押したらマクロAが実行される。
 A1セルが29の場合はマクロBが実行される。
 みたいにA1セルの数字によってマクロが変わるようにしたいです。

 可能であれば、
 A1セルが○○の時、マクロ○がなるよ
 みたいに詳しく教えていただけたらうれしいです。

 > 例えば、A1セルに28となっている場合は、ボタンを
 > 押したらマクロAが実行される。
 > A1セルが29の場合はマクロBが実行される。
 > みたいにA1セルの数字によってマクロが変わるようにしたいです。

 Select Case ステートメントのヘルプを調べてみてください。
 一例としては、以下のような感じです。

 Sub Sample()
     Select Case Range("A1").Value
         Case 28
             Call MacroA
         Case 29
             Call MacroB
         Case Else
             MsgBox "実行できるマクロがありません"
     End Select
 End Sub

 Sub MacroA()
     MsgBox "MacroAを実行します"
 End Sub

 Sub MacroB()
     MsgBox "MacroBを実行します"
 End Sub

 (VBAメンテ担当)

 衝突したしないよう同じだけど一応…
 オートシェイプに登録するマクロを条件分岐用のマクロにすればよいかなと。

 オートシェイプ押す

 Sub 条件分岐()
 Dim a As Long
 a = Range("A1").Value
     Select Case a
         Case 28
             Call マクロA
         Case ○○
             Call マクロB
     End Select
 End Sub

 （通りすがり）

コメント返信：

[ 一覧(最新更新順) ]

[[20100213113726]] 『マクロ』（虎子） ページの最後に飛ぶ

[[20100213113726]]　『マクロ』（虎子）　ページの最後に飛ぶ