Results 1 to 2 of 2

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 | Ìàãàçèí çà åëåêòðîííè öèãàðè