| |
こんばんわは。suikaです。
いつもお世話になっております。
早速ですが、質問させて下さい。
下記のように、２つの条件にあてはまるデータについて、担当者の振分けを
ループで行いたいです。データが全部で、300行〜800行あり、毎回不定です。
各倉庫によって、グループ名が、多い物もあれば、少ない物もあり、データ
の内容が毎回不定なので、マクロによる担当者の自動振分けを考えています。
＜条件１＞ ＜条件２＞
'倉庫Ａの 《グループ１》が、担当者＝山田さん
'倉庫Ａの 《グループ２》が、担当者＝佐藤さん
'倉庫Ａの 《グループ３》が、担当者＝鈴木さん
・ ・ ・
・ ・ ・
・ ・ ・
'倉庫Ｚの 《グループ30》が、担当者＝岡本さん
Ａ Ｂ Ｃ Ｄ Ｅ Ｆ Ｇ Ｈ Ｉ Ｊ Ｋ
１ 倉庫 グループ 担当者
２ A 1 山田さん
３ A 2 佐藤さん
４ A 3 鈴木さん
・ ・ ・ ・
・ ・ ・ ・
・ ・ ・ ・
800 Z 30 岡本さん
”倉庫Ａ”かつ、”グループ１”の場合、《Ｋ列》の担当者欄に山田さんを入力
”倉庫Ａ”かつ、”グループ２”の場合、《Ｋ列》の担当者欄に佐藤さんを入力
”倉庫Ａ”かつ、”グループ３”の場合、《Ｋ列》の担当者欄に鈴木さんを入力
とする場合、下記のマクロをどのように改造すればよいのか、分かりません。
どなたか分かる方がいらっしゃいましたなら、ご教授の程、宜しくお願い致し
ます。
Sub 担当者の自動振分け()
Dim lngRow As Long
Dim lngRowLast As Long
With ActiveSheet
lngRowLast = .Range("A" & .Rows.Count).End(xlUp).Row
lngRow = 2
Do While lngRow <= lngRowLast
With .Range("A" & lngRow)
Select Case .Value
Case Is = "倉庫Ａ"
.Offset(, 10).Value = "山田さん"
End Select
End With
lngRow = lngRow + 1
Loop
End With
End Sub
|
|
suika
- 10/5/16(日) 19:30 -
