vba if then else 1行の検索結果