行の最終更新日を、あるセルに自動で入力させる方法 のバックアップ(No.1)
- バックアップ一覧
- 差分 を表示
- 現在との差分 を表示
- ソース を表示
- 行の最終更新日を、あるセルに自動で入力させる方法 へ行く。
- 1 (2010-02-03 (水) 15:29:12)
行の最終更新日を、あるセルに自動で入力させる方法 †
あるセルの情報を更新した際、その行のあるカラムに最終更新日を自動で入れたい場合、こんな方法で出来ます。
例えば、以下の様な表があって、「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