【vba】指定範囲の中に任意の文字があるときの条件分岐

エクセルのマクロについて質問です。
C1~C10の範囲に「○」と「×」か入力されるとします。
この時、全てが「○」であれば別ブックの指定セルに「○」、
1つでも「×」があれば「×」と入力されるようにしたいのですが、
条件分岐をどのようにすればよいのかわからないです。
何か良い方法はありますでしょうか。

大変恐縮ですが、ご教示の程、何卒宜しくお願いたします。

No.2 ベストアンサー 回答者： tatsumaru77 回答日時： 2021/02/15 11:24

条件分岐の方法のみの回答です。

以下のようにしてください。
msgboxの個所を○×を入力するように変えてください。

Public Sub sample()
Dim wrow As Long
Dim result As Boolean
result = True
For wrow = 1 To 10
If Cells(wrow, "C").Value <> "○" Then
result = False
End If
Next
If result = True Then
MsgBox ("全て○のケースです")
Else
MsgBox ("１つでも×のあるケースです")
End If
End Sub

この回答へのお礼

解決することができました。
誠にありがとうございました。

お礼日時：2021/02/15 11:40

No.1 回答者： めぐみん_ 回答日時： 2021/02/15 11:22

指定セル = iif(worksheetfunction.countif(range("c1:c10"),"〇") = 10, "〇" , "×")

かな？

この回答へのお礼

解決することができました。
誠にありがとうございました。

お礼日時：2021/02/15 11:38