Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


1632 / 13644 ツリー ←次へ | 前へ→

【73004】【至急!】一つのセルに複数表示させる まい 12/10/22(月) 13:43 質問[未読]
【73006】Re:【至急!】一つのセルに複数表示させる ウッシ 12/10/22(月) 13:52 回答[未読]
【73011】Re:【至急!】一つのセルに複数表示させる まい 12/10/22(月) 15:31 お礼[未読]

【73004】【至急!】一つのセルに複数表示させる
質問  まい  - 12/10/22(月) 13:43 -

引用なし
パスワード
   お世話になります。


条件に当てはまった場合には
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
はこの下で行っています。

【73006】Re:【至急!】一つのセルに複数表示させる
回答  ウッシ  - 12/10/22(月) 13:52 -

引用なし
パスワード
   こんにちは

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
>はこの下で行っています。

【73011】Re:【至急!】一つのセルに複数表示させる
お礼  まい  - 12/10/22(月) 15:31 -

引用なし
パスワード
   お早いご返信ありがとうございます。
思い通りに表示されました。
ありがとうございました!


▼ウッシ さん:
>こんにちは
>
>shTo.Cells(i, "N").Value = shTo.Cells(i, "N").Value & "・非"
>
>ですか?

1632 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free