範囲内の日付を見つける

Question

A1：WW1 のような範囲の日付があるので、すべてのセルに日付が1つあります。

他の日付の間の今日の日付のみを選択するマクロが必要です。

Answer 1

データを一貫して入力したと仮定します。もしそうなら、私たちは使用されたRangeを使ってLast Rowを見つけることができます。 このコードをお試しください。それは、現在のデータを有するセルを着色する。私はテスト目的のために限られた範囲を使用しましたが、私はそれがより広い範囲でも動作すると思います。

Sub Highlight() 
    Dim Rng As Range 
    Dim lastRow As Long, lngRow As Long 
    Dim strColumn As Integer 
    lastRow = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row 
    Dim lastColumn As Integer 
    lastColumn = ActiveSheet.UsedRange.Columns(ActiveSheet.UsedRange.Columns.Count).Column 
    For strColumn = 1 To lastColumn 

     With ActiveSheet 
      For lngRow = 2 To lastRow ' Assuming Row 1 As a header Row 
       If IsDate(.Cells(lngRow, strColumn).Value) And CDate(.Cells(lngRow, strColumn).Value) = Date Then 
       .Cells(lngRow, strColumn).Interior.ColorIndex = 3 
       End If 
      Next lngRow 
     End With 
    Next 
End Sub