質問: 設備実績シートのA列に会計期間が表示されています。 会計期間を実際の月に直したいので、データシートのB列の表示へ置換を行いたいです。
回答: データが多そうなので下記コードに変更しました。 Private Sub CommandButton1_Click() ''画面の更新を止める。 Application.EnableEvents = False Application.Calculation = xlCalculationManual Application.ScreenUpdating = False Dim jj As Long With Worksheets("設備実績") ''「設備実績」シートの参照 For jj = 3 To .Cells(.Rows.CountLarge, "A").End(xlUp).Row ''設備実績の行に合わせています Cells(jj, "B").Value = DateValue(Left(.Cells(jj, "A").Value, 4) & "/" & Right(.Cells(jj, "A").Value, 2) & "/1") Next jj End With ''画面の更新を再開する。 Application.EnableEvents = True Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = True End Sub 環境・条件 ・例は起動方法として「データ」シートにボタンで割り当てています。 マクロ起動の場合は、マクロ内にコード部分を記載してください。 ・設備実績の会計期間は表示されているフォーマットの固定(7文字構成、先4文字が年、後2文字が月)としています。 ・データシート行は設備実績と同行にあるとしています(例示のものは行が違っているようです。違っている場合は対応してください)。 ・「.」にご留意ください。Withで参照していますので。 ・「データ」の日付表示は書式で設定されているものとしています。 ・「日」は月の「1」日目としています。