| |
こんなのでは
Public Sub Test()
Dim a As Long
a = 1
Do Until Cells(a, "H").Value = ""
'『1』の場合：G列のセルの末尾が"H"
' If Cells(a, "G").Value Like "*Y" Then
If Cells(a, "G").Value Like "*H" Then
Cells(a, "O").Value = "1"
'『4』の場合：にはG列のセルの末尾が"Y"で、さらにH列に"12345"という数字がある場合です
'（前には4桁あり、後ろには何もないか、1桁あります）
ElseIf Cells(a, "G").Value Like "*Y" And Cells(a, "H").Value Like "12345*" Then
Cells(a, "O").Value = "4"
'『2』の場合：にはG列のセルの最後が"Y"もしくは"MMX"
ElseIf Cells(a, "G").Value Like "*Y" Or Cells(a, "G").Value Like "*MMX" Then
Cells(a, "O").Value = "2"
'『3』の場合：にはH列のセルに"12345"という数字が
'（前には4桁あり、後ろには何もないか、1桁あります）
ElseIf Cells(a, "H").Value Like "12345*" Then
Cells(a, "O").Value = "3"
'『5』の場合：上記以外のものと、H列の頭にV7、後ろに3桁か4桁あるものです。
ElseIf Cells(a, "H").Value Like "V7*" Then
Cells(a, "O").Value = "5"
Else
Cells(a, "O").Value = "5"
End If
a = a + 1
Loop
End Sub
|
|
Hirofumi
- 10/10/13(水) 21:19 -
