[[20140603094019]] 『複数のVBAの選択実行』(noro) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『複数のVBAの選択実行』(noro)

複数のBookがあり、そのbookのデータ内容によりそこに登録してある複数のVBAからその都度選択して動作させているのですがこれを一定のルールで自動選択したいのですが、どのようなVBAにしたらいいでしょうか。(たぶんCallを使う?)

ルール
A1(固定)の文字列に
SD401が含まれているときはVBAの1を実行
SD402が含まれているときはVBAの2を実行
SD403,SD404,SD405が含まれているときはVBAの3を実行
その他の時はVBA4を実行
という具合です。

よろしくお願いします

< 使用 Excel:Excel2013、使用 OS:Windows7 >


 条件を Or でまとめても良いですけれど、こんな感じで。

 Sub 自動実行()
    Dim keyWord
    keyWord = ActiveSheet.Range("A1").Value
    Select Case True
        Case keyWord Like "*SD401*": VBAの1
        Case keyWord Like "*SD402*": VBAの2
        Case keyWord Like "*SD403*": VBAの3
        Case keyWord Like "*SD404*": VBAの3
        Case keyWord Like "*SD405*": VBAの3
        Case Else: VBAの4
    End Select
 End Sub

(Mook) 2014/06/03(火) 10:00


ありがとうございました。
おかげさまでうまくゆきました。
なお、勉強のためにORで書くとどのようになるのでしょうか。
(noro) 2014/06/03(火) 11:16

 ちょっと長いけれどこんな感じでしょうか。
 Case (keyWord Like "*SD403*") Or (keyWord Like "*SD404*") Or (keyWord Like "*SD405*"): VBAの3
(Mook) 2014/06/03(火) 11:23

上の方が我々素人には分かりやすいですね
どうもありがとうございました。

(noro) 2014/06/03(火) 11:56


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.