Exxcel VBA Tips 日時の中で時間をクリアするマクロ
Exxcel VBA Tips日時の中で時間をクリアするマクロです。Dim i, j As IntegerDim cell_date_str As StringDim cell_date, cell_date_only As DateSub conv1() For i = 5 To 3000 If Cells(i, 1) <> "" Or Cells(i, 2) <> "" Or Cells(i, 3) <> "" Or Cells(i, 4) <> "" Then j = 6 Cells(i, j) <> "" And IsDate(Cells(i, j)) Then cell_date = CDate(Cells(i, j).Value) cell_date_str = Format(cell_date, "yyyy/mm/dd") cell_date_only = CDate(cell_date_str) Cells(i, j).Value = cell_date_only End If If Cells(i, 1) = "" And Cells(i, 2) = "" And Cells(i, 3) = "" And Cells(i, 4) = "" Then Exit For End If Next i End Sub