|
こんにちは。かみちゃん です。
>上記でおかしい所や、こうした方がいいというものもありましたら
ということで、Select Case を使う例です。
ちょっと時間がないので、検証は、していません。
Sub Sample()
Dim a As Integer
a = 1
Do Until Cells(a, "H").Value = ""
Select Case True
Case Cells(a, 7).Value Like "*H"
Cells(a, 15).Value = "1"
Case Cells(a, 7).Value Like "*Y"
If Cells(a, 8).Value Like "*12345*" Then
Cells(a, 15).Value = "4"
Else
Cells(a, 15).Value = "2"
End If
Case Cells(a, 7).Value Like "*MMX"
Cells(a, 15).Value = "2"
Case Cells(a, 8).Value Like "*12345*"
Cells(a, 15).Value = "3"
Case Cells(a, 8).Value Like "V7???"
Cells(a, 15).Value = "5"
Case Cells(a, 8).Value Like "V7????"
Cells(a, 15).Value = "5"
Case Else
Cells(a, 15).Value = "5"
End Select
a = a + 1
Loop
End Sub
なお、変数a は、行数を示すならば、Integer型ですと、32767を超えると、
オーバーフローというエラーになるので、Long型のほうがいいと思います。
|
|