Results 1 to 2 of 2

Thread: MS EXCEL

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User ChiefA's Avatar
    Join Date: Aug:2003
    Posts: 106

    MS EXCEL

    , , ?

  2. #2
    Registered 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.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 . .
iskamPC.com | mobility.BG | Bloody's Techblog | | 3D Vision Blog |