|
お世話になります。
条件に当てはまった場合には
N列に指定の文字列を入力するプログラムを作成しています。
下記のように作ってみたのですが、
「クレ」と「・非」が条件に当てはまった場合
N列には「クレ・非」と表示されるように作りたいのですが、
「・非」だけ表示されてしまいます。
上書きされないようにするにはどのように変更すればよいのでしょうか?
宜しくお願い致します。
If .Range("C1") <> "" Then
shTo.Cells(i, "N").Value = "クレ"
If Application.CountIf(.Range("BM1"), "E") Then
shTo.Cells(i, "N").Value = "・Ed"
ElseIf Application.CountIf(.Range("BM1"), "接触") Then
shTo.Cells(i, "N").Value = "・非"
If Application.CountIf(.Range("BN1"), "POO") Then
shTo.Cells(i, "N").Value = "・POOOO"
ElseIf Application.CountIf(.Range("BN1"), "交通") Then
shTo.Cells(i, "N").Value = "・系"
If .Range("D1") <> "" Then
shTo.Cells(i, "N").Value = "・D"
If .Range("E1") <> "" Then
shTo.Cells(i, "N").Value = "・ポイント"
If Application.CountIf(.Range("CG1"), "日本") Then
shTo.Cells(i, "N").Value = "・ポイント"
End If
End If
End If
End If
End If
End If
このあとにまだプログラムが続くので
i=i+1
はこの下で行っています。
|
|