Excel VBA質問箱 IV

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

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


44492 / 76735 ←次へ | 前へ→

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

引用なし
パスワード
   Dim PsSt As Worksheet

If IsDate(Me.TextBox1.Value) And IsDate(Me.TextBox2.Value) Then
  MsgBox "テキストボックスの値は日付として認識できません", 48
  Exit Sub
End If
Set PsSt = ThisWorkbook.Worksheets("保守期限一覧表")
With Worksheets("管理表マスター")
  Da1 = Format(Me.TextBox1.Value, .Range("BG6").NumberFormat)
  Da2 = Format(Me.TextBox2.Value, .Range("BG6").NumberFormat)
  With .Range("M3:BG" & r2)
   .AutoFilter field:=47, Criteria1:=">=" & Da1, _
   Operator:=xlAnd, Criteria2:="<=" & Da2
   .AutoFilter field:=1, Criteria1:="=保守*"
  End With
  If .AutoFilter.Range.SpecialCells(12).Rows.Count = 1 Then
   MsgBox "フィルターで抽出されたデータはありません", 48
  Else
   .Range("B4:K" & r2).Copy
   PsSt.Range("B5").PasteSpecial xlValues
   Application.CutCopyMode = False
   .Range("M4:W" & r2).Copy
   PsSt.Range("L5").PasteSpecial xlValues
   Application.CutCopyMode = Fals
   .Range("AZ4:BU" & r2).Copy
   PsSt.Range("W5").PasteSpecial xlValues
   Application.CutCopyMode = Fals
  End If
  .AutoFilterMode = False
End With
Set PsSt = Nothing

というようにします。

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 お礼

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