ここから本文です

エクセルVBAについて質問です。

プロフィール画像

m_t_19880622さん

2012/6/1517:40:30

エクセルVBAについて質問です。

SpecialCellsを使用してセルの数式エラー値の検索後、該当するセルが見つかりませんと出て処理が終わってしまいます
。もし該当するセルが無ければそのまま処理を飛ばして次の処理に行きたいのですがいまいち分かりません。
if (election.SpecialCells(xlCellTypeFormulas).Select) = true then でtrueの時のみ処理すればいいんでしょうか？

閲覧数：
4,240
回答数：
3
お礼：
250枚

違反報告

ベストアンサーに選ばれた回答

プロフィール画像

kei_jun_kuuさん

2012/6/1719:36:35

m_t_19880622さん

エラーが出る直前に On Error Resume Next をセットしといて、
その直後に On Error GoTo 0 で戻してから判定したら、、

Dim FindCell As Range
On Error Resume Next
Set FindCell = Selection.SpecialCells(xlCellTypeFormulas)
On Error GoTo 0
If Not FindCell Is Nothing Then
Selection.SpecialCells(xlCellTypeFormulas).Select
Else
MsgBox "無いよ"
End If

どうでしょうか。。

違反報告

プロフィール画像

質問した人からのコメント

2012/6/18 19:01:39

ありがとうございます。参考にします。

ベストアンサー以外の回答

1〜2件/2件中

並び替え：回答日時の
新しい順
|古い順

プロフィール画像

rio_koringoさん

2012/6/1518:31:02

エラー処理ルーチン
http://www.cam.hi-ho.ne.jp/manbo/exala/excv100.htm

見つからずにエラーが発生するなら、
その発生をキャッチして処理を分けるのも
良いかと思われる。

違反報告

プロフィール画像

porihikoletskunさん

2012/6/1518:18:46

こんにちは。
selectionしたら、selection.cells.countを使ってみる。などです
それから、示しているコードは、使いません。
selectをifで使う？ 気持ちはなんとなく分かりますが、エクセルは理解できないです

違反報告

あわせて知りたい

この質問につけられたタグ

タグランキングを見る

みんなで作る知恵袋　悩みや疑問、なんでも気軽にきいちゃおう！

Q&Aをキーワードで検索：

Yahoo! JAPANは、回答に記載された内容の信ぴょう性、正確性を保証しておりません。
お客様自身の責任と判断で、ご利用ください。
本文はここまでです このページの先頭へ

「追加する」ボタンを押してください。

閉じる

※知恵コレクションに追加された質問は選択されたID/ニックネームのMy知恵袋で確認できます。