単語一致検索？ (ID:82973)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 検索対象文字列 Dim A As String '検索文字 Dim B As String 'とすると Dim Hit as boolean Hit=false for i= 1 to len(A)-len(b) if mid(A,i,len(b))=b then hit=true exit for end if next msgbox("Hit=" & Hit)