[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『複数の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
ちょっと長いけれどこんな感じでしょうか。 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.