|
▼masu さん:
> データー
> 2015/9/12 Am
> 2012/2/10:15:30:00
> 2016/8/11 am
> 2016/7/10 pm
> 02/08/01 PM
>
>日の値を取得する方法が分かりません
そういうばあいは / で文字列を 年、月、日以降 に分けましょう
Sub Try1()
Dim v
Dim t(1 To 3) ' t(Year,Month,Day)
Dim c As Range
With ThisWorkbook.Worksheets("sheet1")
For Each c In .Range("E6", .Cells(.Rows.Count, "E").End(xlUp))
v = Split(c.Value, "/")
If UBound(v) = 2 Then
t(1) = Val(v(0)) 'Year
t(2) = Val(v(1)) 'Month
t(3) = Val(v(2)) 'Day
If t(1) < 2000 Then t(1) = t(1) + 2000
c.Offset(, 2).Resize(, 3).Value = t
End If
Next
End With
End Sub
'----------------------
2015/9/12 Am 2015 9 12
2012/2/10:15:30:00 2012 2 10
2016/8/11 am 2016 8 11
2016/7/10 pm 2016 7 10
02/08/01 PM 2002 8 1
|
|