09/02/15 14:48:57
>>269
以下は範囲選択して実行すると、範囲内の"m月d日"を文字列にするマクロ。
(手入力の日付のみ。TODAY関数等の式を使用している場合は除く)
なお、VBAはスレの主旨外なので、あとは自力でｶﾞﾝｶﾞﾚ。
Sub Sample()
Dim Rg As Range
Dim T As String
For Each Rg In Selection
With Rg '変数Rgを省略
If .NumberFormatLocal = "m""月""d""日""" Then '｢m月d日｣ならば
T = .Text '表示を文字として格納
.NumberFormatLocal = "@" '書式を｢文字列｣に変更
.Value = T '転記
End If
End With
Next
End Sub