| |
大至急でお願いします！！VBAでセル内のデータを一部読み込み数字に対応させたい
行き詰ってしまったのでお願いします。
G列のセルに4桁、H列のセルに5桁又は6桁入っています（両方アルファベットと数字の混合）
それを１・２・３・４・５という区分に分けたいです。
『1』の場合：G列のセルの末尾が"H"
『2』の場合：にはG列のセルの最後が"Y"もしくは"MMX"
『3』の場合：にはH列のセルに"12345"という数字が（前には4桁あり、後ろには何もないか、1桁あります）
『4』の場合：にはG列のセルの末尾が"Y"で、さらにH列に"12345"という数字がある場合です
（前には4桁あり、後ろには何もないか、1桁あります）
『5』の場合：上記以外のものと、H列の頭にV7、後ろに3桁か4桁あるものです。
"1234"は5桁目の数値を取る形で行いたいです。
現在のマクロでは下記のようにしておりますが、『3』『4』が上手く動きません。
Dim a AS Integer
a=1
Do until cells(a,"H").value=""
If cells(a,7).value Like "*Y" Then
cells(a,15).value="2"
Elseif cells(a,7).value Like "*MMX" Then
cells(a,15).value="2"
Elseif cells(a,7).value Like "*H" Then
cells(a,15).value="1"
------------------------------------
『3』『4』が良く分かりません
------------------------------------
Elseif cells(a,8).value Like "V7*" Then
cells(a,15).value="5"
Else
cells(a,15).value="5"
End If
a=a+1
Loop
どなたか是非教えてください。
A1セルを始めに指定してあります。
上記でおかしい所や、こうした方がいいというものもありましたら
併せて教えてくださいませ。
よろしくお願い致します。
|
|
あき
- 10/10/13(水) 19:59 -
