Excel VBA質問箱 IV

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

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


50928 / 76732 ←次へ | 前へ→

【30682】Re:10以上の検索
回答  Kein  - 05/11/2(水) 20:25 -

引用なし
パスワード
   F1 に項目を入力してあれば、フィルターをかける↓

Range("F:F").AutoFilter 1, ">10"
If ActiveSheet.AutoFilter.Range.SpecialCells(12).Count > 1 Then
  MsgBox "10 を超える値がありました", 64
Else
  MsgBox "10 を超える値はありません", 48
End If
ActiveSheet.AutoFilterMode = False

なければ作業列(仮に AF列)に、数式を入れて判定する↓

With Range("F2", Range("F65536").End(xlUp)).Offset(, 26)
  .Formula = "=IF($F2>10,1,"""")"
  If IsError(Application.Match(1, .Cells, 0)) Then
   MsgBox "10 を超える値はありません", 48
  Else
   MsgBox "10 を超える値がありました", 64
  End If
  .ClearContents
End With
2 hits

【30679】10以上の検索 V(ビクトリー) 05/11/2(水) 18:07 質問
【30680】Re:10以上の検索 OBO 05/11/2(水) 18:23 発言
【30682】Re:10以上の検索 Kein 05/11/2(水) 20:25 回答
【30686】Re:10以上の検索 YN62 05/11/2(水) 21:36 回答
【30687】Re:10以上の検索 ichinose 05/11/2(水) 21:56 発言
【30688】Re:10以上の検索 V(ビクトリー) 05/11/2(水) 22:11 お礼
【30689】Re:10以上の検索 YN62 05/11/2(水) 22:18 回答

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