VBA　文字列を検索し、表示

セルの中の文字列を検索し、該当する文字列があればその文字列を表示させ、該当しなければ、「修　理　等」と表示させたい。
エクセルのセル設定では動いていたのですが、それをVBAで動かそうとしたら、コードをどのように書けばいいのか悩んでいます。
If～Then～Elseを使って条件分岐をするのでしょうか。
エクセルで、E9セル内の文字列を確認し、B17セルへ表示させる。
現在B17セルは次のようになっています。
=IF(COUNTIF(E9,"定期検査")>0,"定期検査",IF(COUNTIF(E9,"年次検査")>0,"年次検査",IF(COUNTIF(E9,"中間修理")>0,"中間修理",IF(COUNTIF(E9,"臨時修理")>0,"臨時修理","修　理　等"))))

発生してる問題・エラーメッセージ

どの場合でも「修　理　等」と表示されてしまう。

該当のソースコード


### 試したこと

VBAでこのように書きました。

Range("B20").Formula = "=IF(COUNTIF(E9,""定期検査"")>0,""定期検査"",IF(COUNTIF(E9,""年次検査"")>0,""年次検査"",IF(COUNTIF(E9,""中間修理"")>0,""中間修理"",IF(COUNTIF(E9,""臨時修理"")>0,""臨時修理"","""修　理　等"""))))
### 補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

行動規範の内容に同意します

回答1件

ベストアンサー

最後のところダブルクォーテーションの数がおかしいです。
エラー出てませんか？

VBA
1Range("B20").Formula = "=IF(COUNTIF(E9,""定期検査"")>0,""定期検査"",IF(COUNTIF(E9,""年次検査"")>0,""年次検査"",IF(COUNTIF(E9,""中間修理"")>0,""中間修理"",IF(COUNTIF(E9,""臨時修理"")>0,""臨時修理"",""修　理　等""))))"

ちなみにシート側で入れている数式と全く同じことをわざわざVBAでやる意味が不明です。
シートに数式を使いたくないなら次のような処理に置き換えるべきかと。

VBA
1With Range("E9")
2    Dim s As String
3    If .Value Like "*定期検査*" Then
4        s = "定期検査"
5    ElseIf .Value Like "*年次検査*" Then
6        s = "年次検査"
7    ElseIf .Value Like "*中間修理*" Then
8        s = "中間修理"
9    ElseIf .Value Like "*臨時修理*" Then
10        s = "臨時修理"
11    Else
12        s = "修　理　等"
13    End If
14End With
15Range("E20").Value = s

もしくはこんな感じか。

VBA
1Dim words() As Variant
2Dim word as String
3Dim s As String
4words = Array("定期検査", "年次検査", "中間修理", "臨時修理")
5s = "修　理　等"
6For Each word In words
7    If Range("E9").Value Like "*" & word & "*" Then
8        s = word
9        Exit For
10    End If
11Next
12Range("E20").Value = s

投稿2020/04/13 07:38

ttyp03

総合スコア17000

Mkasai

2020/04/14 00:25

ありがとうございました。 VBAを使って動かしたい理由が、同じエクセルシートを使って他の動きでも使いたいからです。 2つアドバイスいただいたものの中で、2つ目の方を使わせていただきました。 1つ目の方は、バリアントの型がおかしいという文言のエラーが出ました。エラー部分の修正が自分ではできなかったので、 2つ目の方で試したら問題なく動きましたので、使わせていただきました。ありがとうございました。