Excel VBA質問箱 IV

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

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


19400 / 76732 ←次へ | 前へ→

【62765】条件分岐をLOOPで行う方法
質問  AT  - 09/8/30(日) 20:47 -

引用なし
パスワード
   こんばんわ。ATです。

下記の条件分岐がうまくいかず、困っています。
            
【セル:G1】は倉庫名で、【セル:K1】は担当者名を《列タイトル》に
してあります。
            
セル:G2が、[倉庫A] か [倉庫B] か [倉庫C] の場合、        
セル:K2に、担当者の [鈴木さん] を入力したいと、考えています。            
            
Sub 条件分岐()            
                  
   Select Case Range("G2").Value            
              
   Case Is = "倉庫A", "倉庫B", "倉庫C"            
               
   Range("K2").Value = "鈴木さん"            
                     
   Case Is = "倉庫D", "倉庫E", "倉庫F"            
               
   Range("K2").Value = "山田さん"            
               
   Case Is = "倉庫G", "倉庫H, "倉庫I"            
               
   Range("K2").Value = "森さん"            
               
End Select            
               
   Select Case Range("G3").Value            
              
   Case Is = "倉庫A", "倉庫B", "倉庫C"            
               
   Range("K3").Value = "鈴木さん"            
                     
   Case Is = "倉庫D", "倉庫E", "倉庫F"            
               
   Range("K3").Value = "山田さん"            
               
   Case Is = "倉庫G", "倉庫H, "倉庫I"            
               
   Range("K3").Value = "森さん"            
               
End Select            
            
End Sub            
            
※上記の Select Case Range("G●").Value のデータ量が毎回不定です。            
   少ない時 ⇒ "G50"        
   多い時   ⇒ "G250" (今後、超える事があるかもしれません)            
            
Select Case Range("G●").Value            
          ↑            
データ量に関係無く、セルG2〜セルGの最終行まで、上記の条件分岐を            
LOOPで処理するには、どうしたらよいでしょうか?
            
ご教授のほど、宜しくお願いします。
0 hits

【62765】条件分岐をLOOPで行う方法 AT 09/8/30(日) 20:47 質問
【62766】Re:条件分岐をLOOPで行う方法 かみちゃん 09/8/30(日) 21:05 発言
【62777】Re:条件分岐をLOOPで行う方法 AT 09/9/1(火) 0:04 お礼

19400 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free