Excel VBA質問箱 IV

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

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


50477 / 76732 ←次へ | 前へ→

【31144】Re:データ抽出
回答  Kein  - 05/11/12(土) 13:37 -

引用なし
パスワード
   こんな感じで、どうでしょーか ?

Sub 抽出2()
  Dim FName As String
  Dim Cnt As Long
 
  With Application
   FName = .GetOpenFilename("CSVファイル (*.csv), *.csv")
   If FName = "False" Then Exit Sub
   .ScreenUpdating = False
  End With
  Workbooks.Open FName
  With Range("A1")
   .AutoFilter 1, "10日"
   .AutoFilter 3, "10000"
  End With
  Cnt = ActiveSheet.AutoFilter.Range.Columns(1) _
  .SpecialCells(12).Count
  If Cnt > 1 Then
   Cnt = Cnt - 1
   MsgBox "日付10日でID1000は " & Cnt & " 個あります"
  Else
   MsgBox "抽出件数なし"
  End If
  ActiveSheet.AutoFilterMode = False
  ActiveWorkbook.Close False
  Application.ScreenUpdating = True
End Sub

0 hits

【31118】データ抽出 05/11/11(金) 20:37 質問
【31120】Re:データ抽出 Kein 05/11/11(金) 21:13 回答
【31143】Re:データ抽出 05/11/12(土) 12:46 お礼
【31144】Re:データ抽出 Kein 05/11/12(土) 13:37 回答
【31183】Re:データ抽出 05/11/14(月) 12:31 お礼
【31187】Re:データ抽出 Kein 05/11/14(月) 12:44 発言
【31194】Re:データ抽出 05/11/14(月) 14:07 お礼
【31197】Re:データ抽出 Kein 05/11/14(月) 14:40 発言
【31201】Re:データ抽出 05/11/14(月) 14:53 発言
【31204】Re:データ抽出 Kein 05/11/14(月) 15:39 回答
【31209】Re:データ抽出 05/11/14(月) 16:34 お礼

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