Excel VBA質問箱 IV

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

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


44230 / 76732 ←次へ | 前へ→

【37523】Re:Exit Forについて
発言  ハチ  - 06/5/10(水) 8:31 -

引用なし
パスワード
   >失礼しました。
>また曖昧な質問になりますが・・・
>新たに書いていただいたコードは新鮮に映るんですが・・・
>何故か動作しません・・・何を質問すると良いか分かりませんが・・・
>動かす方法を教えてください。
>>
>>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
>>
>>などとしておけば良いでしょう。

A列にB6の値が無い場合に、Ckの値がErrorになりますので
Ck < 6 の時に数値型にならないので「型が一致しない」と
エラーになるってことでしょうか?
Matchでやると最初に見つかったものを取得してしまうので
5行目以前にはデータを入れないで、
IsErrorだけでチェックするのが無難だと思います。

>>If Ck = Application.Match(Range("B6").Value, Range("A:A"), 0)
の最初のIfは誤記かなぁ と。

2 hits

【37449】Exit Forについて Koharu 06/5/7(日) 15:53 質問
【37450】Re:Exit Forについて かみちゃん 06/5/7(日) 16:03 発言
【37451】Re:Exit Forについて Kein 06/5/7(日) 16:47 発言
【37457】Re:Exit Forについて Koharu 06/5/8(月) 18:44 質問
【37459】Re:Exit Forについて ハチ 06/5/8(月) 19:01 発言
【37498】Re:Exit Forについて Koharu 06/5/9(火) 20:17 お礼
【37461】Re:Exit Forについて Kein 06/5/8(月) 19:13 回答
【37499】Re:Exit Forについて Koharu 06/5/9(火) 20:22 質問
【37506】Re:Exit Forについて ゆみ 06/5/9(火) 21:19 発言
【37517】Re:Exit Forについて Koharu 06/5/9(火) 22:07 お礼
【37523】Re:Exit Forについて ハチ 06/5/10(水) 8:31 発言
【37531】Re:Exit Forについて Koharu 06/5/10(水) 18:37 お礼

44230 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free