|
▼saho さん:
ponpon です。こんばんは。
>もっとたくさんのデータがあって、
>
>となりのセルに表示させたいのですが、
>
>どうでしょうか?
A列の数字を隣のB列に表示します。
実際にない日なんかのエラー対策はしていません。
いかがでしょう。
Sub test()
Dim myRng As Range
Dim r As Range
Dim myNen As Integer
Dim 元号 As String
Dim Nen As String
Dim Gatu As String
Dim Hi As String
Set myRng = Range("A1", Range("A65536").End(xlUp))
For Each r In myRng
myNen = Left(r.Text, 1)
Select Case myNen
Case Is = 4
元号 = "平成"
Case Is = 3
元号 = "昭和"
Case Is = 2
元号 = "大正"
Case Is = 1
元号 = "明治"
End Select
Nen = Mid(r.Text, 2, 2)
Gatu = Mid(r.Text, 4, 2)
Hi = Right(r.Text, 2)
r.Offset(0, 1).Value = CDate(元号 & Nen & "年" & Gatu & "月" & Hi & "日")
Next
End Sub
|
|