Excel VBA質問箱 IV

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

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


44490 / 76732 ←次へ | 前へ→

【37258】Re:メッセージボックスの出し方
回答  Statis  - 06/4/27(木) 11:33 -

引用なし
パスワード
   こんにちは

こんな感じかな?

If IsDate(Me.TextBox1.Value) And IsDate(Me.TextBox2.Value) Then
  Da1 = Format(Me.TextBox1.Value, .Range("BG6").NumberFormat)
  Da2 = Format(Me.TextBox2.Value, .Range("BG6").NumberFormat)
  If .AutoFilterMode = False Then
   .Range("M3:GB3").AutoFilter
  End If
  With .Range("M3:BG" & r2)
    .AutoFilter field:=47, Criteria1:=">=" & Da1, Operator:=xlAnd, _
      Criteria2:="<=" & Da2
    .AutoFilter field:=1, Criteria1:="=保守*"
    If .Range("M65536").End(xlUp).Row > 4 Then
      .Range("B4:K" & r2).SpecialCells(xlCellTypeVisible).Copy
      ThisWorkbook.Worksheets("保守期限一覧表").Range ("B5")
         .PasteSpecial xlValues
      .Range("M4:W" & r2).SpecialCells(xlCellTypeVisible).Copy
       ThisWorkbook.Worksheets("保守期限一覧表").Range ("L5")
        .PasteSpecial xlValues
      .Range("AZ4:BU" & r2).SpecialCells(xlCellTypeVisible).Copy
       ThisWorkbook.Worksheets("保守期限一覧表").Range ("W5")
        .PasteSpecial xlValues
      Application.CutCopyMode = False
    Else
      MsgBox "抽出データはありません。", vbCritical
    End If
    .AutoFilterMode = False
  End With
Else
  MsgBox "テキストボックスの値が日付として確認出来ませんでした。", vbCritical
End If
0 hits

【37257】メッセージボックスの出し方 福神漬 06/4/27(木) 11:17 質問
【37258】Re:メッセージボックスの出し方 Statis 06/4/27(木) 11:33 回答
【37260】Re:メッセージボックスの出し方 福神漬 06/4/27(木) 12:34 質問
【37261】Re:メッセージボックスの出し方 Statis 06/4/27(木) 12:58 回答
【37265】Re:メッセージボックスの出し方 福神漬 06/4/27(木) 13:41 質問
【37288】Re:メッセージボックスの出し方 Statis 06/4/28(金) 8:04 回答
【37300】Re:メッセージボックスの出し方 福神漬 06/4/28(金) 14:29 質問
【37303】Re:メッセージボックスの出し方 Statis 06/4/28(金) 14:45 回答
【37307】Re:メッセージボックスの出し方 福神漬 06/4/28(金) 15:39 質問
【37308】Re:メッセージボックスの出し方 Statis 06/4/28(金) 15:49 回答
【37259】Re:メッセージボックスの出し方 Kein 06/4/27(木) 11:40 回答
【37266】Re:メッセージボックスの出し方 福神漬 06/4/27(木) 13:43 お礼

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