日付の表示を変更する

2017–11–14 (Tue) 23:52
Sub 和暦ge_m_d()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ge.m.d"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦ge年m月d日()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ge年m月d日"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦ggge年m月d日()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ggge年m月d日"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦ggge_m_d()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ggge.m.d"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦ge_mm_dd()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ge.mm.dd"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦ge年mm月dd日()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ge年mm月dd日"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦ggge年mm月dd日()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ggge年mm月dd日"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦ggge_mm_dd()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ggge.mm.dd"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub


Sub 和暦gee_m_d()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "gee.m.d"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦gee年m月d日()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "gee年m月d日"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦gggee年m月d日()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "gggee年m月d日"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦gggee_m_d()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "gggee.m.d"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦gee_mm_dd()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "gee.mm.dd"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦gee年mm月dd日()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "gee年mm月dd日"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0

End Sub
Sub 和暦gggee年mm月dd日()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "gggee年mm月dd日"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦gggee_mm_dd()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "gggee.mm.dd"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

Sub 西暦yyyy_m_d()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "yyyy.m.d"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

Sub 西暦yyyyスラmスラd()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "yyyy/m/d"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 西暦yyyy年m月d日()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "yyyy年m月d日"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0

End Sub

Sub 西暦yyyy_mm_dd()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "yyyy.mm.dd"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

Sub 西暦yyyyスラmmスラdd()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "yyyy/mm/dd"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

Sub 西暦yyyy年mm月dd日()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "yyyy年mm月dd日"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub


Sub mm_dd()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "mm.dd"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

Sub mmスラdd()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "mm/dd"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub mm月dd日()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "mm月dd日"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub m_d()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "m.d"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

Sub mスラd()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "m/d"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

Sub m月d日()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "m月d日"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

Sub 和暦ge_m_d曜日略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ge"".""m"".""d""""(aaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦ge年m月d日曜日略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ge""年""m""月""d""日""(aaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦ggge年m月d日曜日略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ggge""年""m""月""d""日""(aaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

Sub 和暦ggge_m_d曜日略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ggge"".""m"".""d""""(aaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

Sub 和暦ge_mm_dd曜日略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ge"".""mm"".""dd""""(aaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦ge年mm月dd日曜日略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ge""年""mm""月""dd""日""(aaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦ggge年mm月dd日曜日略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ggge""年""mm""月""dd""日""(aaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦ggge_mm_dd曜日略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ggge"".""mm"".""dd""""(aaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

Sub 和暦gee_m_d曜日略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "gee"".""m"".""d""""(aaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦gee年m月d日曜日略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "gee""年""m""月""d""日""(aaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦gggee年m月d日曜日略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "gggee""年""m""月""d""日""(aaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

Sub 和暦gggee_m_d曜日略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "gggee"".""m"".""d""""(aaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

Sub 和暦gee_mm_dd曜日略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "gee"".""mm"".""dd""""(aaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦gee年mm月dd日曜日略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "gee""年""mm""月""dd""日""(aaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦gggee年mm月dd日曜日略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "gggee""年""mm""月""dd""日""(aaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦gggee_mm_dd曜日略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "gggee"".""mm"".""dd""""(aaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

Sub 西暦yyyy_m_d曜日略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "yyyy"".""m"".""d""""(aaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 西暦yyyyスラmスラd曜日略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "yyyy""/""m""/""d""""(aaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 西暦yyyy年m月d日曜日略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "yyyy""年""m""月""d""日""(aaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 西暦yyyy_mm_dd曜日略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "yyyy"".""mm"".""dd""""(aaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 西暦yyyyスラmmスラdd曜日略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "yyyy""/""mm""/""dd""""(aaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 西暦yyyy年mm月dd日曜日略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "yyyy""年""mm""月""dd""日""(aaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

Sub mm_dd曜日略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "mm"".""dd""""(aaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub mmスラdd曜日略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "mm""/""dd""""(aaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub mm月dd日曜日略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "mm""月""dd""日""(aaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub m_d曜日略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "m"".""d""""(aaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub mスラd曜日略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "m""/""d""""(aaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub m月d日曜日略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "m""月""d""日""(aaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦ge_m_d曜日()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ge"".""m"".""d""""(aaaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦ge年m月d日曜日()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ge""年""m""月""d""日""(aaaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦ggge年m月d日曜日()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ggge""年""m""月""d""日""(aaaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

Sub 和暦ggge_m_d曜日()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ggge"".""m"".""d""""(aaaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

Sub 和暦ge_mm_dd曜日()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ge"".""mm"".""dd""""(aaaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦ge年mm月dd日曜日()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ge""年""mm""月""dd""日""(aaaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦ggge年mm月dd日曜日()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ggge""年""mm""月""dd""日""(aaaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦ggge_mm_dd曜日()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ggge"".""mm"".""dd""""(aaaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

Sub 西暦yyyy_m_d曜日()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "yyyy"".""m"".""d""""(aaaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 西暦yyyyスラmスラd曜日()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "yyyy""/""m""/""d""""(aaaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 西暦yyyy年m月d日曜日()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "yyyy""年""m""月""d""日""(aaaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 西暦yyyy_mm_dd曜日()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "yyyy"".""mm"".""dd""""(aaaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 西暦yyyyスラmmスラdd曜日()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "yyyy""/""mm""/""dd""""(aaaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 西暦yyyy年mm月dd日曜日()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "yyyy""年""mm""月""dd""日""(aaaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

Sub mm_dd曜日()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "mm"".""dd""""(aaaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub mmスラdd曜日()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "mm""/""dd""""(aaaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub mm月dd日曜日()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "mm""月""dd""日""(aaaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub m_d曜日()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "m"".""d""""(aaaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub mスラd曜日()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "m""/""d""""(aaaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub m月d日曜日()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "m""月""d""日""(aaaa)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub


Sub 和暦ge_m_d曜日英略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ge"".""m"".""d""""(ddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦ge年m月d日曜日英略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ge""年""m""月""d""日""(ddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦ggge年m月d日曜日英略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ggge""年""m""月""d""日""(ddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

Sub 和暦ggge_m_d曜日英略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ggge"".""m"".""d""""(ddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

Sub 和暦ge_mm_dd曜日英略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ge"".""mm"".""dd""""(ddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦ge年mm月dd日曜日英略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ge""年""mm""月""dd""日""(ddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦ggge年mm月dd日曜日英略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ggge""年""mm""月""dd""日""(ddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦ggge_mm_dd曜日英略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ggge"".""mm"".""dd""""(ddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

Sub 西暦yyyy_m_d曜日英略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "yyyy"".""m"".""d""""(ddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 西暦yyyyスラmスラd曜日英略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "yyyy""/""m""/""d""""(ddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 西暦yyyy年m月d日曜日英略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "yyyy""年""m""月""d""日""(ddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 西暦yyyy_mm_dd曜日英略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "yyyy"".""mm"".""dd""""(ddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 西暦yyyyスラmmスラdd曜日英略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "yyyy""/""mm""/""dd""""(ddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 西暦yyyy年mm月dd日曜日英略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "yyyy""年""mm""月""dd""日""(ddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

Sub mm_dd曜日英略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "mm"".""dd""""(ddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub mmスラdd曜日英略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "mm""/""dd""""(ddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub mm月dd日曜日英略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "mm""月""dd""日""(ddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub m_d曜日英略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "m"".""d""""(ddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub mスラd曜日英略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "m""/""d""""(ddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub m月d日曜日英略()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "m""月""d""日""(ddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

Sub 和暦ge_m_d曜日英()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ge"".""m"".""d""""(dddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦ge年m月d日曜日英()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ge""年""m""月""d""日""(dddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦ggge年m月d日曜日英()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ggge""年""m""月""d""日""(dddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

Sub 和暦ggge_m_d曜日英()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ggge"".""m"".""d""""(dddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

Sub 和暦ge_mm_dd曜日英()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ge"".""mm"".""dd""""(dddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦ge年mm月dd日曜日英()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ge""年""mm""月""dd""日""(dddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦ggge年mm月dd日曜日英()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ggge""年""mm""月""dd""日""(dddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 和暦ggge_mm_dd曜日英()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ggge"".""mm"".""dd""""(dddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

Sub 西暦yyyy_m_d曜日英()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "yyyy"".""m"".""d""""(dddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 西暦yyyyスラmスラd曜日英()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "yyyy""/""m""/""d""""(dddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 西暦yyyy年m月d日曜日英()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "yyyy""年""m""月""d""日""(dddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 西暦yyyy_mm_dd曜日英()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "yyyy"".""mm"".""dd""""(dddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 西暦yyyyスラmmスラdd曜日英()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "yyyy""/""mm""/""dd""""(dddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub 西暦yyyy年mm月dd日曜日英()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "yyyy""年""mm""月""dd""日""(dddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

Sub mm_dd曜日英()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "mm"".""dd""""(dddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub mmスラdd曜日英()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "mm""/""dd""""(dddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub mm月dd日曜日英()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "mm""月""dd""日""(dddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub m_d曜日英()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "m"".""d""""(dddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub mスラd曜日英()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "m""/""d""""(dddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub m月d日曜日英()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "m""月""d""日""(dddd)"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub


Sub yyyyのみ()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "yyyy"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub yyのみ()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "yy"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub yyyy年のみ()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "yyyy年"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub yy年のみ()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "yy年"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

Sub geのみ()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ge"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub gggeのみ()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ggge"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub ge年のみ()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ge年"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub ggge年のみ()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ggge年"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub geeのみ()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "gee"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub gggeeのみ()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "gggee"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub gee年のみ()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "gee年"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub gggee年のみ()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "gggee年"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

Sub gのみ()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "g"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub gggのみ()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ggg"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

Sub eのみ()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "e"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub eeのみ()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ee"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub e年のみ()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "e年"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub ee年のみ()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ee年"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

Sub mのみ()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "m"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0End Sub
Sub mmのみ()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "mm"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub m月のみ()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "m月"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub mm月のみ()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "ee年
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub

Sub dのみ()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "d"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub ddのみ()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "dd"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub d日のみ()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "d日"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
Sub dd日のみ()
On Error Resume Next
Application.ScreenUpdating = False
For Each ddd In Selection
ddd.Value = StrConv(ddd.Value, vbNarrow)
ddd.Value = Replace(ddd, ".", "/")
ddd.Value = ddd.Value
ddd.NumberFormatLocal = "dd日"
if ddd.value <>"" then
ddd.Value = CDate(ddd)
End if
Next
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
スポンサーサイト

全角ハイフン/マイナス(-)の数を統一するマクロ

2017–11–02 (Thu) 09:44
Sub ハイフン統一()
'ハイフンの数を一つに統一します

Dim MaxRow As Long
Dim MaxCol As Long
On Error Resume Next
Dim ws As Worksheet
Set ws = ActiveSheet
With ws.UsedRange
MaxRow = .Find("*", , xlFormulas, , xlByRows, xlPrevious).Row
MaxCol = .Find("*", , xlFormulas, , xlByColumns, xlPrevious).Column
End With

Dim ken As Variant
ken = ws.Range(Cells(1, 1), Cells(MaxRow, MaxCol))
Dim x As Long, y As Long, j As Long, t As Long
For x = 1 To MaxRow
For y = 1 To MaxCol
If InStr(ken(x, y), "-") <> 0 Then
If ken(x, y) = "-" Then
Else
t = 0
For j = 1 To Len(ken(x, y))
If Mid(ken(x, y), j, 1) = "-" Then t = t + 1
Next
If t = Len(ken(x, y)) Then
ken(x, y) = "-"
End If
End If
End If
Next
Next
ws.Range(Cells(1, 1), Cells(MaxRow, MaxCol)) = ken
On Error GoTo 0
End Sub

 | HOME | 

プロフィール

あゆみ

Author:あゆみ
FC2ブログへようこそ!

最新記事

最新コメント

フリーエリア

月別アーカイブ

カテゴリ

ブロとも申請フォーム

検索フォーム

RSSリンクの表示

リンク