case文以外の方法について

質問

Excelのマクロについて質問です。
今select caseを使用してマクロを組んでおります。

Select Case Range("a1").Value
　　Case "登録" or "追加"
　　　　Range("b1").Value = "1"

End Select

上記のような感じにしておりますが、caseの条件式の部分が
長くなりそうなので、リストを見てフラグをたてるような感じに
したいのですが、何かいい方法はないでしょうか。

回答No.3

ASIMOV · ベストアンサー

ちょっと、というか、かなりトリッキーな方法ですが
---------------------------------------------
Sub Ts()
　S = "登録追加削除更新"
　A = Left(Range("A1").Value, 2)
　Range("B1").Value = (1 + InStr(S, A)) / 2
End Sub
---------------------------------------------
比較する文字列を全部つないで一つの文字列にしてしまい
A1の文字と比較し、何番目に有るかで、数値に変換してしまいます

補足

情報ありがとうございます。
上のをちょっとカスタマイズしてみて動かしてみましたが、
結論、case文に似てますので、どうしようかと思ってます。
別シートにリストを作成してそこからひっぱりだすことも
考えてます。

回答No.5

noname#223623

Collectionオブジェクトを使う方法。Excelを使えない環境で投稿してるので、動作検証ができません。おおむね合ってると思いますがエラーが出たらごめんなさい。Excelのバージョンによっても書き方が変わるかもしれないのでWebで検索するか、ヘルプで確認してください。

　Dim col As Collection
　Set col = New Collection

　' 「col.Add Item, Key」と書くとcolに要素を追加できる
　' ItemはRange("b1").Valueに代入する値
　' KeyはRange("a1").Valueから取得できる文字列
　col.Add "1", "登録"
　col.Add "1", "追加"
　col.Add "2", "削除"
　col.Add "3", "更新"

　' colから値を取得してB1セルに代入する
　Range("b1").Value = col(Range("a1").Value)

この書き方は、どの条件の処理もB1セルへの代入だからできることです。#4さんのおっしゃるように、処理が違うならCase文を重ねるのも仕方ないかもしれません。

参考URL：

http://www.moug.net/tech/exvba/0150076.htm

お礼

URLなどありがとうございます。
結論からだとやはりcase文で考えられるパターンを追加していくしか
なさそうですね..

回答No.4

rivoisu

Caseで該当したときの処理が規則性がある（ほとんど同じで対象セルだけが違うなど）ならば条件と対象とを一覧表にしてVlookupなどを使うことはできますが、処理が大きく異なれば地道にCase文を連ねるしかないでしょう。
該当したときの処理をうまく汎用化できれば短くすることも可能な場合が多い。

お礼

情報ありがとうございます。
case文しかなさそうですが、
別シートにリスト作ってそこからひっぱってくるような
感じなのを作ろうかとちょっと思ってます。

回答No.2

kmetu

たとえばD列に条件を入れておいて

For i = 1 To Range("D" & Rows.Count).End(xlUp).Row
Select Case Range("a1").Value
Case Range("D" & i).Value
Range("b1").Value = "1"
Exit For
End Select
Next i

というのはいかがですか

回答No.1

bin-chan

if 変数 = "条件１" then
’条件１の処理
elseif 変数 = "条件２" then
’条件２の処理
elseif 変数 = "条件３" then
’条件３の処理
　　（中略）
elseif 変数 = "条件ｎ" then
’条件ｎの処理
else
'どれでもなかった
end if
という書き方はありますが、結局列挙です。

>　　Case "登録" or "追加"
いくつ位を想定されてます？
想定させるCASEを配列に入れておいて、FOR文で比較しては？

補足

指摘ありがとうございます。
一部を載せてしまったので申し訳なかったのですが、
for文も考えました。
ちょっと考えてみます。