Results of 1 - 1 of about 14696 for VBA ������������ (0.003 sec.)
- [[20140603094019]]
- #score: 3411
- @digest: 67ebd45315bb2d54065913069a4a663f
- @id: 65289
- @mdate: 2014-06-03T02:56:58Z
- @size: 1443
- @type: text/plain
- #keywords: keyword (16522), 行sd (15241), sd403 (14996), sd405 (14319), sd404 (14111), sd401 (7620), sd402 (7159), 択実 (5365), 動選 (3296), noro (3206), 行() (2179), 度選 (1948), like (1758), 動実 (1357), 定) (1211), はvb (1126), タ内 (1113), case (730), （no (698), 2014 (589), 実行 (580), の3 (568), のbo (563), 一定 (503), 火) (498), のvb (451), vba (395), が含 (392), 都度 (378), ルa1 (364), 複数 (343), を実 (334)
- 『複数の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... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/201406/20140603094019.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 96999 documents and 607827 words.
訪問者：