トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 単語検索 最終更新   ヘルプ   最終更新のRSS

行の最終更新日を、あるセルに自動で入力させる方法

Last-modified: 2013-08-24 (土) 02:14:21 (2216d)
Top / 行の最終更新日を、あるセルに自動で入力させる方法

行の最終更新日を、あるセルに自動で入力させる方法

あるセルの情報を更新した際、その行のあるカラムに最終更新日を自動で入れたい場合、こんな方法で出来ます。

例えば、以下の様な表があって、「C7」セルに値を入力すると

1.PNG

「E7」セルに更新日が自動で入力されます。

2.PNG

これは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

参考サイト


添付ファイル: file2.PNG 1863件 [詳細] filesample.xlsm 856件 [詳細] file1.PNG 1762件 [詳細]