Sub macro3() Dim myRange As Range Dim myObj As Range Dim keyWord As String Set myRange = Range("A1:A12") keyWord = Range("C3") Set myObj = myRange.Find(keyWord, LookAt:=xlWhole) If myObj Is Nothing Then MsgBox "'" & keyWord & "'はありませ…
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。