Results 1 to 2 of 2
Thread: MS EXCEL
Hybrid View
-
9th September 2005 12:20 #1
-
12th September 2005 11:08 #2Registered User
Join Date: Sep:2005
Location: Varna
Posts: 11
, VB. :
Tools/Macro/Visual Basic Editor.
, - . / :
VBAProject (__.xls)
Microsoft Excel Object
|____Sheet1 (Sheet1)
|____Sheet2 (Sheet2)
|____Sheet3 (Sheet3)
|____ThisWorkbook
( - - Sheet1, Sheet2 Sheet3) :
Option Explicit
Dim OldValue As String
Const TargetRow As Integer = 5
Const TargetCol As Integer = 5
Const DateRow As Integer = 1
Const DateCol As Integer = 1
Private Sub Worksheet_Change(ByVal Target As Range)
If Cells(TargetRow, TargetCol).Value <> OldValue Then
OldValue = Cells(TargetRow, TargetCol).Value
Cells(DateRow, DateCol).Value = Date & " " & Time
End If
End Sub
Private Sub Worksheet_Calculate()
If Cells(TargetRow, TargetCol).Value <> OldValue Then
OldValue = Cells(TargetRow, TargetCol).Value
Cells(DateRow, DateCol).Value = Date & " " & Time
End If
End Sub
5 5 (5), 1 1 (1). .
Tools/Macro/Security Low Medium.




Reply With Quote
7th May 2023, 16:02 in PC