Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

19475 / 76807

←次へ　｜　前へ→


	【62765】条件分岐をＬＯＯＰで行う方法

ＡＴ - 09/8/30(日) 20:47 -


	引用なし

	パスワード

こんばんわ。ＡＴです。

下記の条件分岐がうまくいかず、困っています。
　　　　　　　　　　　　
【セル：Ｇ１】は倉庫名で、【セル：Ｋ１】は担当者名を《列タイトル》に
してあります。
　　　　　　　　　　　　
セル：Ｇ２が、[倉庫Ａ]　か　[倉庫Ｂ]　か [倉庫Ｃ] の場合、　　　　　　　　
セル：Ｋ２に、担当者の　[鈴木さん] を入力したいと、考えています。　　　　　　　　　　　　
　　　　　　　　　　　　
Sub 条件分岐()　　　　　　　　　　　　
　　　　　　　　　　　　　　　　　　
　　　Select Case Range("G2").Value　　　　　　　　　　　　
　　　　　　　　　　　　　　
　　　Case Is = "倉庫Ａ", "倉庫Ｂ", "倉庫Ｃ"　　　　　　　　　　　　
　　　　　　　　　　　　　　　
　　　Range("K2").Value = "鈴木さん"　　　　　　　　　　　　
　　　　　　　　　　　　　　　　　　　　
　　　Case Is = "倉庫Ｄ", "倉庫Ｅ", "倉庫Ｆ"　　　　　　　　　　　　
　　　　　　　　　　　　　　　
　　　Range("K2").Value = "山田さん"　　　　　　　　　　　　
　　　　　　　　　　　　　　　
　　　Case Is = "倉庫Ｇ", "倉庫Ｈ, "倉庫Ｉ"　　　　　　　　　　　　
　　　　　　　　　　　　　　　
　　　Range("K2").Value = "森さん"　　　　　　　　　　　　
　　　　　　　　　　　　　　　
End Select　　　　　　　　　　　　
　　　　　　　　　　　　　　　
　　　Select Case Range("G3").Value　　　　　　　　　　　　
　　　　　　　　　　　　　　
　　　Case Is = "倉庫Ａ", "倉庫Ｂ", "倉庫Ｃ"　　　　　　　　　　　　
　　　　　　　　　　　　　　　
　　　Range("K3").Value = "鈴木さん"　　　　　　　　　　　　
　　　　　　　　　　　　　　　　　　　　
　　　Case Is = "倉庫Ｄ", "倉庫Ｅ", "倉庫Ｆ"　　　　　　　　　　　　
　　　　　　　　　　　　　　　
　　　Range("K3").Value = "山田さん"　　　　　　　　　　　　
　　　　　　　　　　　　　　　
　　　Case Is = "倉庫Ｇ", "倉庫Ｈ, "倉庫Ｉ"　　　　　　　　　　　　
　　　　　　　　　　　　　　　
　　　Range("K3").Value = "森さん"　　　　　　　　　　　　
　　　　　　　　　　　　　　　
End Select　　　　　　　　　　　　
　　　　　　　　　　　　
End Sub　　　　　　　　　　　　
　　　　　　　　　　　　
※上記の Select Case Range("G●").Value　のデータ量が毎回不定です。　　　　　　　　　　　　
　　少ない時　⇒　"G50"　　　　　　　　
　　多い時　　 ⇒　"G250" (今後、超える事があるかもしれません）　　　　　　　　　　　　
　　　　　　　　　　　　
Select Case Range("G●").Value　　　　　　　　　　　　
　　　　　　　　　 ↑　　　　　　　　　　　　
データ量に関係無く、セルＧ２～セルＧの最終行まで、上記の条件分岐を　　　　　　　　　　　　
ＬＯＯＰで処理するには、どうしたらよいでしょうか？
　　　　　　　　　　　　
ご教授のほど、宜しくお願いします。

0 hits

▼

【62765】条件分岐をＬＯＯＰで行う方法 ＡＴ 09/8/30(日) 20:47

≪