‘年月日の３セルをxxxx/xx/xx形式のテキストに書き直す

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

n = 0

Do

n = n + 1

If Me.Cells(n, 1).Value = "" Then End

A$ = Me.Cells(n, 2).Value

If Val(Me.Cells(n, 2).Value) < 10 Then A$ = "0" & A$

If Val(Me.Cells(n, 2).Value) = 0 Then A$ = "0" & A$

B$ = Me.Cells(n, 3).Value

If Val(Me.Cells(n, 3).Value) < 10 Then B$ = "0" & B$

If Val(Me.Cells(n, 3).Value) = 0 Then B$ = "0" & B$

Me.Cells(n, 4).Value = "'" & Me.Cells(n, 1).Value & "/" & A$ & "/" & B$

Loop

End Sub

備忘録