更新日付を自動で入れるマクロ - EXCEL
例えば、B列に以下テスト画面のようにa,b,c,dと入れたら、自動で「日付」と先頭に書かれた列に更新日付を入れたい。
コードは下記。
① 先頭行の更新は無視
② 先頭行で”日付”を探し位置(列数)を返す
③ 先頭行に”日付”が見つかった列の更新は無視
コードは下記。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <> 1 Then '①
Dim ret As Variant
Set myApp = New Excel.Application
ret = myApp.WorksheetFunction.Match("日付", Range("1:1"), 0) '②
If Target.Column <> ret Then '③
Cells(Target.Row, ret) = Date
End If
End If
End Sub
① 先頭行の更新は無視
② 先頭行で”日付”を探し位置(列数)を返す
③ 先頭行に”日付”が見つかった列の更新は無視
以上
コメント
コメントを投稿