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

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

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

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

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

&ref(1.PNG);

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

&ref(2.PNG);



これはVBSで実現してます。

サンプルファイルを添付しますので、興味があれば見てみてください。
-[[サンプルエクセル:]]
-[[サンプルエクセル:http://www.hiroha.info/index.php?plugin=attach&pcmd=open&file=sample.xlsm&refer=%E8%A1%8C%E3%81%AE%E6%9C%80%E7%B5%82%E6%9B%B4%E6%96%B0%E6%97%A5%E3%82%92%E3%80%81%E3%81%82%E3%82%8B%E3%82%BB%E3%83%AB%E3%81%AB%E8%87%AA%E5%8B%95%E3%81%A7%E5%85%A5%E5%8A%9B%E3%81%95%E3%81%9B%E3%82%8B%E6%96%B9%E6%B3%95]]

ちなみに、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

***参考サイト [#y7750f74]
-http://okwave.jp/qa/q2827109.html
-http://officetanaka.net/excel/function/function/indirect.htm
-http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_event.html
-http://excelvba.pc-users.net/fol6/6_1.html
-http://homepage1.nifty.com/rucio/main/technique/MsgBox.htm
-

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

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