Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

44254 / 76732

←次へ　｜　前へ→


	【37499】Re:Exit Forについて

Koharu - 06/5/9(火) 20:22 -


	引用なし

	パスワード

▼Kein さん：

>しかし質問文からは、どうもそういうことを聞きたいのでなく、
>「A列で B6 の値を検索して、あるかないかをメッセージしたい」という意味
>のようですね。曖昧な表現をすると誤解を招くので、注意して欲しいです。
>で、もしそのような内容ならば

失礼しました。
また曖昧な質問になりますが･･･
新たに書いていただいたコードは新鮮に映るんですが･･･
何故か動作しません･･･何を質問すると良いか分かりませんが･･･
動かす方法を教えてください。
>
>Dim Ck As Variant
>
>If Ck = Application.Match(Range("B6").Value, Range("A:A"), 0)
>If IsError(Ck) Then
>　 MsgBox Range("B6").Value & " はありません"
>End If
>
>と、します。ここで「5行目以前に見つかっても、無かったことにする」なら
>
>If IsError(Ck) Or Ck < 6 Then
>
>などとしておけば良いでしょう。

0 hits

▼

【37449】Exit Forについて Koharu 06/5/7(日) 15:53