種類の不一致VBA VBAでまだハイライト

Question

大きくない延滞日...この上

Sub CompareDates() 

Dim dueDate As Date, sht As Worksheet, i As Long 

For Each sht In ThisWorkbook.Sheets 

For i = 1 To CountMyRows(sht.Name) 
    dueDate = CDate(sht.Range("E" & i)) 
    If dueDate > Date Then 
     sht.Range("E" & i).Interior.ColorIndex = 5 
    End If 
Next i 

Next sht 

End Sub 

取得型の不一致：

dueDate = CDate(sht.Range("E" & i)) 

私は私が誰かを持っている時に、これが機能しない理由はわかりませんそうでなければテストして、それをテストします。

編集：私は、エラーを取り除く持っているが、コードはすべての期限切れタスクを仕事とハイライト表示されません...

Answer 1

あなたはエラーを防ぐためにCDateを使用する前にIsDateを使用することができます。 CDateは、実際に日付に変換できる値を渡す場合にのみ機能します。

あなたは、このようにコードを変更することができます。

Option Explicit 

Sub CompareDates() 

    Dim dueDate As Date, sht As Worksheet, i As Long 

    For Each sht In ThisWorkbook.Sheets 

     For i = 1 To CountMyRows(sht.Name) 
      If IsDate(sht.Range("E" & i).Value) Then '<-- check if value is a date 
       dueDate = CDate(sht.Range("E" & i)) 
       If dueDate > Date Then 
        sht.Range("E" & i).Interior.ColorIndex = 5 
       End If 
      End If 
     Next i 

    Next sht 

End Sub 

例 - それは2017年7月13日のようなもののために動作しません注意してください。

Answer 2

それはのための「ループ内で毎回失敗していますか？

dueDate = CDate(sht.Range("E" & i)) 

は、たとえば、sht.Range("E" & i))がテキストを返すと失敗します。

最初のような変数にsht.Range("E" & i))を割り当てよう：そう、あなたがより良い進行状況を追跡することができます

For i = 1 To 5 

    c_date = sht.Range("E" & i) 
    dueDate = CDate(c_date) 
    If dueDate > Date Then 
     sht.Range("E" & i).Interior.ColorIndex = 5 
    End If 
Next I 

- 多分あなたの基礎となるデータは、このような比較のために有効ではありません（それは日付ではありません）