Google先生に聞いても欲しい回答が見つからないので、自分で書いてみた。 やりたいことは、例えば、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
![EXCEL – 更新日付を自動で入れるVBマクロ | 狸おやじの色々備忘録](https://cdn-ak-scissors.b.st-hatena.com/image/square/59ada130ef1f435911b0d30012fa0bbcae04a773/height=288;version=1;width=512/http%3A%2F%2Fnekosuki.sakura.ne.jp%2Fitneko%2Fwp-content%2Fuploads%2F2012%2F09%2FWS0000901.jpg)