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

Question

shotomo

33

32もっと見る

100pt

コンピュータ

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

WINDOWS7 EXCEL2010です。

回答の条件

1人5回まで

登録：2014/08/23 00:40:37
終了：2014/08/23 02:55:34

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

コメントはまだありません

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

リクエスト送信済

回答リクエストを送信したユーザーはいません

Mook · Accepted Answer · 2014-08-23T00:58:18+09:00

No.1

Mook13143932014/08/23 00:58:18

100pt

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

他2件のコメントを見る

すみません。8月が限定ではないです。

2014/08/23 02:37:43

出来ました。ありがとうございました。

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

2014/08/23 02:54:58

そうであれば、こんなのでも。

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

2014/08/23 09:32:33

さすがです。すっきりですね。ありがとうございました。勉強します

2014/08/23 18:11:28

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

ベストアンサー

Mook13143932014/08/23 00:58:18

コメント（0件)

この質問への反応（ブックマークコメント）