★Word/Excel (MS-OFFICE) 初心者スレッド Part36★

★Word/Excel (MS-OFFICE) 初心者スレッド Part36★ at PCQA

274:236
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

次ページ

続きを表示

1を表示