Excel VBA質問スレ Part9

Excel VBA質問スレ Pa ..

646:デフォルトの名無しさん
09/01/24 23:48:18
>>645
DateSerialをかますんだ！

Dim s As String
If TypeName(Range("A1").Value) = "String" Then
　　s = Range("A1").Value
　　Range("A1").Value = DateSerial(Left(s, 2), Mid(s, 4, 2), Right(s, 2))
End If

次ページ