Excel VBA質問箱 IV

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

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


36898 / 76732 ←次へ | 前へ→

【45009】Re:日にちで抽出したいのですが・・・
発言  ponpon  - 06/12/9(土) 22:45 -

引用なし
パスワード
   よくは見ていませんが、多分
>mstr = InputBox("何日を抽出しますか?(数字のみ)", "抽出日指定")

>If Month(TDate) = Month(mstr) And Day(TDate) = Day(mstr) Then 

mystrには数字(何桁かはわかりませんが・・)
その数字から、月と日を抜き出せないのだと思います。

入力から日付の取得は怪しいですが、
4桁の数字(mmdd)で判断して、オートフィルターで抽出しています。
最近は、失敗が多いのであぶないですが、試してみてください。


Sub test()
  Dim myDay1 As String
  Dim myday2 As String
  Dim newSH As Worksheet
    
  Do
    myDay1 = Application.InputBox("何日を抽出しますか?(数字のみ:mmdd)", Title:="抽出日指定", Type:=2)
    If Len(myDay1) = 4 Then
      Exit Do
    End If
  Loop
  myday2 = Left(myDay1, 2) & "月" & Right(myDay1, 2) & "日"
  With Sheets("Sheet1")
     .Range("A1").AutoFilter Field:=1, Criteria1:="<=" & myday2, Criteria2:=">=" & myday2
     If .AutoFilter.Range.Columns(1).SpecialCells(xlCellTypeVisible).Count = 1 Then
      MsgBox "その日付のデータはありません"
      .AutoFilterMode = False
     Else
      Set newSH = Sheets.Add(after:=Sheets(Sheets.Count))
      newSH.Name = myday2
      .AutoFilter.Range.Copy newSH.Range("A1")
      .AutoFilterMode = False
     End If
  End With
End Sub

0 hits

【45006】日にちで抽出したいのですが・・・ 初心者 06/12/9(土) 21:03 質問
【45007】Re:日にちで抽出したいのですが・・・ 初心者 06/12/9(土) 21:09 質問
【45008】Re:日にちで抽出したいのですが・・・ Mariko 06/12/9(土) 21:59 発言
【45009】Re:日にちで抽出したいのですが・・・ ponpon 06/12/9(土) 22:45 発言
【45014】Re:日にちで抽出したいのですが・・・ DY 06/12/10(日) 0:34 発言
【45049】Re:日にちで抽出したいのですが・・・ 初心者 06/12/11(月) 9:20 お礼

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