ここから本文です

エクセルVBA フィルタ抽出してなにもデータがない場合次に行ってほしい その2 ...

ibi********さん

2017/8/2414:35:00

エクセルVBA フィルタ抽出してなにもデータがない場合次に行ってほしい その2


この質問は過去の

https://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q141777713...
をお読みください。

前回の質問だと
抽出するデータは1つなので
「J列に a01売上げ があった場合実行する」を
以下の文で解決しました。

dim i as long,f as boolean
f=false
for i=5 to y
if cells(i,"j").value="a01売上げ" then
f=true
exit for
end if
next i
if f then

しかし、これだと2つ抽出した状態で
a01売上げ があるのかどうかを
判断してほしい場合、解決できません。
例えばはじめに
「 H列に ゆうちょ を抽出した状態で
J列に a01売上げ がある時は続きを実行する」
と、いった構文の場合、どうすれば解決できますか?

イメージ的には↓

dim i as long,f as boolean
f=false
for i=5 to y
if cells(i,"H").value="ゆうちょ" then
if cells(i,"j").value="a01売上げ" then
f=true
exit for
end if
next i
if f then

のような感じです。(上記のように色々
試しましたがうまくいきません)
もちろん「ゆうちょ」の中の「a01売上げ」を
探すので、「ゆうちょ」がひとつもなければ
そこで探すのをやめる構文が希望です。


よろしくお願いします。

閲覧数:
36
回答数:
1
お礼:
50枚

違反報告

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

msk********さん

2017/8/2415:23:13

関数を利用しては如何でしょうか。

If Application.CountIfs( _
Columns("H"), "ゆうちょ", Columns("J"), "a01売上げ") > 0 Then
'処理続行
End If

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

2017/8/24 16:49:36

完璧です。ありがとうございました。

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

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

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

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

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

閉じる

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

不適切な投稿でないことを報告しました。

閉じる