行の最終更新日を、あるセルに自動で入力させる方法
Last-modified: 2013-08-24 (土) 02:14:21 (3898d)
Top / 行の最終更新日を、あるセルに自動で入力させる方法
行の最終更新日を、あるセルに自動で入力させる方法 †
あるセルの情報を更新した際、その行のあるカラムに最終更新日を自動で入れたい場合、こんな方法で出来ます。
例えば、以下の様な表があって、「C7」セルに値を入力すると
「E7」セルに更新日が自動で入力されます。
これはVBSで実現してます。
サンプルファイルを添付しますので、興味があれば見てみてください。
ちなみに、VBSについてはシートを右クリック→コードの表示で、コードが表示できます。
VBSの内容は以下の通り。
Private Sub Worksheet_Change(ByVal Target As Range)
Dim MyRng As Range, R As Range, L As Range
Dim LastUpdated As Integer
Set MyRng = Intersect(Target, Range("B2:D18"))
If MyRng Is Nothing Then Exit Sub
LastUpdated = 5
For Each R In MyRng.Rows
Cells(R.Row, LastUpdated) = Now
Next
End Sub
2.PNG
1.PNG
