Excel VBA質問箱 IV

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

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


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

44449 / 76807

←次へ　｜　前へ→


	【37377】Re:オートフィルタの結果がもし空白なら

Jaka - 06/5/2(火) 11:16 -


	引用なし

	パスワード

>Set WS1 = Sheet(1)
>Set WS2 = Sheet(2)
>Set WS3 = Sheet(3)
？？？コンパイルエラーにならないのでしょうか？

>.Range("A2:A" & ar).CurrentRegion.AutoFilter 5, Criteria1:=">=2006/1/1", Operator:=xlAnd, Criteria2:="<=2007/12/31"
CurrentRegionを使うなら、これ↓で良いと思います。が、
データ部がCurrentRegionで確実に取得できるデータ状態である事が前提になります。
.Range("A2").CurrentRegion.AutoFilter 5, Criteria1:=">=2006/1/1", Operator:=xlAnd, Criteria2:="<=2007/12/31"

>'もし、2列目以降が空白なら、処理に進む
>　　If WorksheetFunction.CountA(Range("A2:A65536") _
>　　.SpecialCells(xlCellTypeVisible)) = 0 Then
２列目以降でなく、２行目移行です。
こういう事は正確に書かないと、すれ違いの元になります。

とりあえず１部分だけですけど...。

With WS1
　 .AutoFilterMode = 0
　 With .Range("A2").CurrentRegion
　　　 .AutoFilter 5, Criteria1:=">=2006/1/1", Operator:=xlAnd, Criteria2:="<=2007/12/31"
　　　 'もし、2列目以降が空白なら、処理に進む
　　　 '他にやり方が無いわけでもないですが、単純にタイトル行は
　　　 '必ずカウントされるから（最低が１）、2より少なければで無しと判断して処理。
　　　 'ただ、エクセル関数等も１と判断される（ = "" もカウント）。
　　　 'データを見てないので、その辺の判断はわかりません。
　　　 If WorksheetFunction.CountA(.Columns("A") _
　　　　　.SpecialCells(xlCellTypeVisible)) < 2 Then
　　　　　GoTo 処理
　　　 End If
　 End With
End With

1 hits

▼

【37345】オートフィルタの結果がもし空白なら momo 06/5/1(月) 13:33