|
こんにちは
shTo.Cells(i, "N").Value = shTo.Cells(i, "N").Value & "・非"
ですか?
▼まい さん:
>お世話になります。
>
>
>条件に当てはまった場合には
>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
>はこの下で行っています。
|
|