エクセルVBAで間違いをチェックするには こんにちは。 エクセルで日付を書く所があるのですが、 絶対に0000-00-00(半角英数字、半角ハイフン)の形になってなくてはいけません。

Visual Basic72閲覧xmlns="http://www.w3.org/2000/svg">50

その他の回答(2件)

0

これでいいのでは。 Sub test() For i = 5 To 10 If Mid((Cells(12, i)), 5, 1) = "-" And Mid((Cells(12, i)), 8, 1) = "-" Then MsgBox "正しい" Else MsgBox "正しくない" Cells(12, i).Interior.ColorIndex = 3 End If If Mid((Cells(105, i)), 5, 1) = "-" And Mid((Cells(105, i)), 8, 1) = "-" Then MsgBox "正しい" Else MsgBox "正しくない" Cells(105, i).Interior.ColorIndex = 3 End If Next i End Sub

0

Sub ex() For Each buf In Range("E12:J12,E105:J105") 'Debug.Print buf.Address & ":" & Format(buf.Value, "yyyy-mm-dd") & ":" & buf.Text If IsDate(buf) Then 'format difference If Format(buf.Value, "yyyy-mm-dd") <> buf.Text Then buf.Interior.Color = vbRed Else 'ok buf.Interior.Color = xlNone 'vbYellow End If Else 'not date buf.Interior.Color = vbRed End If Next End Sub 、、とか?