Excel VBA質問箱 IV

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

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


73672 / 76738 ←次へ | 前へ→

【7540】Re:日付の検索をしたいんですが。
回答  Jaka  - 03/9/8(月) 14:29 -

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

Sub Macth日付()
  ib$ = InputBox("コピーしたい日付を入力して下さい。", "日付", Cells(1, 1).Text)
  If ib$ = "" Then Exit Sub
  ro = 1
  Do
    sss = Application.Match(CDbl(CDate(ib$)), Range("A" & ro & ":A65536"), 0)
    If IsError(sss) = True Then Exit Do
    sss = sss + ro - 1
    Cells(sss, 1).Select
    ii = ii + 1
    Cells(ii, 1).Interior.ColorIndex = 3
    ro = sss + 1
  Loop
End Sub

Sub Find日付()
  Dim 値 As Variant, FCel As Range, FistAd As String
  日付 = InputBox("検索したい日付の入ったセルを黄色くします。" & Chr(13) & _
         "文字を入力して下さい。", "日付の検索")
  If 日付 = "" Then
    End
  End If
  日付H = DateValue(日付)
  If Err <> 0 Then
    MsgBox "日付エラー"
    End
  End If
  検索範囲 = "A1:A65536"
  Application.ScreenUpdating = False
  With ActiveSheet.Range(検索範囲)
     Set FCel = .Find(日付H, LookAt:=xlWhole)
     If Not FCel Is Nothing Then
      FistAd = FCel.Address
      Do
        FCel.Interior.ColorIndex = 6
        FCel.Select
        Set FCel = .FindNext(FCel)
      Loop Until FistAd = FCel.Address
     Else
      MsgBox "「" & 日付H & "」の入ったセルは、全くありません。", vbCritical
     End If
  End With
  Application.ScreenUpdating = True
  Set FCel = Nothing
End Sub

0 hits

【7459】日付の検索をしたいんですが。 haru 03/9/5(金) 13:30 質問
【7461】Re:日付の検索をしたいんですが。 Jカーター 03/9/5(金) 13:45 回答
【7464】Re:日付の検索をしたいんですが。 haru 03/9/5(金) 14:26 質問
【7466】Re:日付の検索をしたいんですが。 Jカーター 03/9/5(金) 14:45 回答
【7468】Re:日付の検索をしたいんですが。 haru 03/9/5(金) 15:00 質問
【7471】Re:日付の検索をしたいんですが。 Jカーター 03/9/5(金) 15:12 回答
【7475】Re:日付の検索をしたいんですが。 Jaka 03/9/5(金) 15:51 回答
【7522】Re:日付の検索をしたいんですが。 haru 03/9/7(日) 9:39 質問
【7540】Re:日付の検索をしたいんですが。 Jaka 03/9/8(月) 14:29 回答
【7568】Re:日付の検索をしたいんですが。 Jaka 03/9/8(月) 17:41 発言
【7608】Re:日付の検索をしたいんですが。 haru 03/9/9(火) 17:07 お礼
【7699】間違ってました。 Jaka 03/9/12(金) 9:20 発言

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