Excel VBA質問箱 IV

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

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


4851 / 76735 ←次へ | 前へ→

【77499】Re:フィルター並べ替え後の検索
発言  β  - 15/10/16(金) 17:27 -

引用なし
パスワード
   ▼キキ さん:

とりあえず。
M社は固定で。該当なしは3つの指定の結果がゼロ件ならメッセージ。

Sub Test()
  
  ActiveSheet.AutoFilterMode = False '念のためいったん解除
  ActiveSheet.Range("A1").AutoFilter  'オートフィルター設定
  
  With ActiveSheet.AutoFilter.Range
    .AutoFilter Field:=1, Criteria1:="M社"
    .AutoFilter Field:=2, Criteria1:="<>"
    .AutoFilter Field:=3, Criteria1:=">=" & Date, Operator:=xlAnd, Criteria2:="<=" & Date
    If .Columns(1).SpecialCells(xlCellTypeVisible).Count = 1 Then
      MsgBox "該当なし"
    End If
  End With

End Sub

0 hits

【77496】フィルター並べ替え後の検索 キキ 15/10/16(金) 16:52 質問[未読]
【77498】Re:フィルター並べ替え後の検索 β 15/10/16(金) 17:12 発言[未読]
【77499】Re:フィルター並べ替え後の検索 β 15/10/16(金) 17:27 発言[未読]
【77500】Re:フィルター並べ替え後の検索 キキ 15/10/16(金) 17:50 お礼[未読]
【77521】Re:フィルター並べ替え後の検索 キキ 15/10/19(月) 12:00 お礼[未読]

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