Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

45996 / 76735

←次へ　｜　前へ→


	【35720】Re:日付型への変換について

Kein - 06/3/10(金) 21:41 -


	引用なし

	パスワード

目的のセルを選択して、以下のマクロを実行してみて下さい。

Sub Chg_MyD_Format()
　 Dim CkSt As String
　 Dim Ary As Variant
　 Dim MyY As Integer, NewY As Integer
　 Dim RtDay As Date
　
　 CkSt = Left$(ActiveCell.Value, 2)
　 If CkSt <> "大正" And CkSt <> "昭和" _
　 And CkSt <> "平成" Then Exit Sub
　 Ary = Split(ActiveCell.Value, "/")
　 MyY = Val(Right(Ary(0), Len(Ary(0)) - 2))
　 Select Case CkSt
　　　Case "大正": NewY = MyY + 1911
　　　Case "昭和": NewY = MyY + 1925
　　　Case "平成": NewY = MyY + 1988
　 End Select
　 RtDay = DateValue(NewY & "/" & Ary(1) & "/" & Ary(2))
　 ActiveCell.Value = Format(RtDay, "yyyy/mm/dd")
End Sub

0 hits

▼

【35710】日付型への変換について よう 06/3/10(金) 18:49