Excel VBA質問スレ Part9at TECH

---

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

---

次ページ

続きを表示

1を表示

最新レス表示

レスジャンプ

類似スレ一覧

スレッドの検索

話題のニュース

おまかせリスト

オプション

しおりを挟む

スレッドに書込

スレッドの一覧

暇つぶし2ch