「ブロック機能」のリニューアルについて

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

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

教えて!goo グレード

A 回答 (2件)

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


以下のようにしてください。
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 ("1つでも×のあるケースです")
End If
End Sub
    • good
    • 0
この回答へのお礼

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

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

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



かな?
    • good
    • 0
この回答へのお礼

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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています

教えて!goo グレード

このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング