「句読点の「。」の後に文字が続くなら」
という条件でIFステートメントを作成するには?
例えば、
Sub Macro()
Dim s1 As String
s1 = "今日は晴れです。でも明日は雨です。"
If s1 Like "*。*" Then
MsgBox "。の後ろにも文字があります。"
End If
End Sub
の時は、OKなのですが、
s1 = "今日は晴れです。"
にした時も、
If s1 Like "*。*" Then
だと、
MsgBox "。の後ろにも文字があります。"
が表示されてしまいます。
s1 = "今日は晴れです。でも明日は雨です。"
の時は、
MsgBox "。の後ろにも文字があります。"
を表示させて、
s1 = "今日は晴れです。"
の時は表示させない方法を教えてください。
実は行を最終行までループさせてるので
IFステートメントは1つしか作りたくないです。
No.4ベストアンサー
- 回答日時:
Like 演算子による場合は、No.2 さんのご回答で正しいですね。
ベストアンサーは辞退します。比較演算子による場合は、次のコードなど。
If InStr(s1, "。") < Len(s1) Then
>実は行を最終行までループさせてるのでIFステートメントは1つしか作りたくないです。
ループだと、If は 1 つにするのがいいのですか?ちょっと意味がよく分からないです。また、ある一時点での場合分けにより複数の処理に分岐させることを想定しておっしゃっているとすれば、If を複数書くのではなくて、If ... (ElseIf ...) (Else ...) End If というふうに並べて書くことになっているのですよね。
No.3
- 回答日時:
その条件でよいなら、『読点「。
」で終わらないなら。』と考え直すことができます。すなわち、一番最後(右)の1文字だけ調べれば十分です。
If Right(s1, 1) <> "。" Then MsgBox "。の後ろにも文字があります。"
これで良いでしょう。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルVBAで教えて頂きたいのですが? 2 2022/12/31 20:28
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) VBAの繰り返し処理について教えてください。 3 2022/08/02 13:21
- Visual Basic(VBA) VBAが止まります。 3 2022/08/31 14:09
- Visual Basic(VBA) VBA Userformで一部別シートに転記がしたいのですが 2 2023/05/24 13:08
- Excel(エクセル) 指定文字列が該当するA列をアクティブセルにするには 3 2022/08/17 13:18
- Visual Basic(VBA) Excel VBA ユーザーフォーム 複数のユーザーフォームの閉じ方。 2 2022/04/27 11:29
- Excel(エクセル) VBAについて 3 2022/06/19 18:19
- Visual Basic(VBA) 別シートから年齢別の件数をカウントしたいの続き 5 2023/01/24 00:16
- Excel(エクセル) VBAの指示の内容 昨日こちらでご教示頂いたのですが初心者な為、一つ一つの指示が何をやっているのかわ 2 2022/10/25 18:08
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
週1ペースで会うカップルでデー...
-
セックスについて。 彼が正常位...
-
セックスする度に胸が大きくな...
-
初めて泊まりにきてくれる彼女...
-
性欲と、人を好きになるって別...
-
おじさんになってから若い女性に
-
彼氏が私の性格も見た目も褒め...
-
恋人とセフレの違いはなんです...
-
セフレや遊びでスローセックス...
-
セックス前にAV
-
彼女とのセックスに新鮮味を感...
-
彼女が噛んできます。 歯型がつ...
-
大至急お願いします。5日くらい...
-
男性の性欲
-
彼女とのセックスの頻度につい...
-
アナルファックと普通のセック...
-
彼女をイかせたい
-
弘前市でセックスがしたいです...
-
昨日久々に元セフレ(元々頻繁...
-
ネットワーク上にある共有ファイルのVBAエラー
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
おすすめ情報