Excel VBA - - セルが基準を満たすときのメッセージボックス

• 問題
• 溶液
• 注意

問題

こんにちはこれはおそらく誰かのために非常に簡単になりますが、私は悪夢の日を過ごしている、私が欲しいのはセルが特定の基準を示しているときメッセージボックスを表示するVBA式です。

誰も手伝ってくれる？

溶液

このコードは、探しているものが列Aにあると想定しています。

 Private Sub Find_Criteria（）Dim i Dim rr = Range（ "A65536"）End（xlUp）.Row i = 1 For i = i To r Range（ "A"＆i）= "criteria"の場合MsgBox "Found" ＆ ""＆Range（ "A"＆i）。次の場合は末尾に、iの末尾にある場合は、セル範囲内で特定の基準を探している場合は、次のようにします。 プライベートSub Find_Criteria（）バリアントとしてのDim i範囲指定としてのDim FindRange FindRange = Range（ "A1：K50"）各iに対してi = "criteria"の場合MsgBox "Found"＆ ""＆i.Address次の場合i End Sub 

注意

フォーラムでこの情報を提供してくれたHelperに感謝します。