VBAで質問なのですが､EXCELの複数のｾﾙに8/20や8/15等のさまざまな日付が入っていて､それを全て強制的に8/1にしたいのですが､どうしたらいいのでしょうか？ WINDOWS7 E…

人力検索はてな

ﾓﾊﾞｲﾙ版を表示しています｡PC版はこちら

VBAで質問なのですが､EXCELの複数のｾﾙに8/20や8/15等のさまざまな日付が入っていて､それを全て強制的に8/1にしたいのですが､どうしたらいいのでしょうか？

WINDOWS7 EXCEL2010です｡

●質問者: shotomo
●ｶﾃｺﾞﾘ:ｺﾝﾋﾟｭｰﾀ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

▽1 ● Mook
●100ﾎﾟｲﾝﾄ

ﾍﾞｽﾄｱﾝｻｰ

8月限定なのかどうか不明ですが､取りあえずのｻﾝﾌﾟﾙです｡

Sub Sample()
 Dim r As Range
 For Each r In ActiveSheet.UsedRange
 If IsDate(r.Value) = True Then
 r.Value = CDate("8/1")
 End If
 Next
End Sub

shotomoさんのｺﾒﾝﾄ
すみません｡8月が限定ではないです｡

shotomoさんのｺﾒﾝﾄ
出来ました｡ありがとうございました｡ Sub test() Dim r As Range For Each r In ActiveSheet.UsedRange If IsDate(r.Value) = True Then Dim m m = Month(r) p = m & "01" Dim strMOTO As String Dim 基準日 As Date strMOTO = p 基準日 = CDate(Format(strMOTO, "@@/@@")) r.Value = 基準日 End If Next End Sub

Mookさんのｺﾒﾝﾄ
そうであれば､こんなのでも｡ Sub test2() Dim r As Range For Each r In ActiveSheet.UsedRange If IsDate(r.Value) = True Then r.Value = DateSerial(Year(r.Value), Month(r.Value), 1) End If Next End Sub

shotomoさんのｺﾒﾝﾄ
さすがです｡すっきりですね｡ありがとうございました｡勉強します