Vloženie dátumu a času pri zmene bunky v MS Excel

Nedávno som dostal na školení otázku ako zabezpečiť vloženie dátumu a času v prípade, že sa susedná bunka zmení. Potrebovali to na spätnú kontrolu či bol údaj do bunky zapísaný v stanovenom čase, príp. kedy bol upravený, alebo vymazaný. Bežným spôsobom sa to urobiť nedá, ale riešenie existuje.

Písmo: A- | A+
Diskusia  (6)

Poveril som tým synovca Filipa, ktorý urobil jednoduchý kód vo VBA, ktorý zabezpečuje presne to čo účastníci školenia požadovali. Aby to fungovalo je potrebné v xlsx súbore dorobiť v editore VBA (Alt+F11) nasledovný kód pre konkrétny pracovný hárok.

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Column = "2" Then
 Cells(Target.Row, Target.Column + 1).Value = Now
 End If
End Sub

Kód jazyka VBA v MS Excel
Kód jazyka VBA v MS Excel 


Dvojka v úvodzovkách je stĺpec B (druhý v poradí) kam budeme zapisovať hodnotu. Do vedľajšieho stĺpca C ( Target.Column + 1) sa bude pri každej zmene vkladať dátum a čas. Podmienka If je tam preto, aby sa dátum/čas nemenil pri každej zmene v hárku. Tiež je možné to upraviť aj tak, aby sa do ďalšieho stĺpca vpísalo aj meno prihláseného používateľa.

SkryťVypnúť reklamu
SkryťVypnúť reklamu
Článok pokračuje pod video reklamou

VBA je dosť silný nástroj na rozšírenie možností aplikácii MS Office, len vyžaduje znalosti programovania ;-)

Peter Belko

Peter Belko

Bloger 
  • Počet článkov:  345
  •  | 
  • Páči sa:  15x

Môžete ho stretnúť ako lektora na počítačových školeniach, pri IT konzultáciách vo firmách, na letných terasách a v kaviarňach ako pozoruje dianie okolo seba, ale aj na potulkách po gréckych ostrovoch, pretože počítače nie sú jediné čo ho zaujíma.Ostrovné správy popisuje na osobnej stránke www.dovolenkar.skAktívne prispieva na svoj portál Tipy a triky v MS Office.. Zoznam autorových rubrík:  Tipy a triky MS Office 2013/20Externé tipy a triky MS OfficeSharePoint, spolupráca,Office3Tipy a trikyNávodyStalo sa ...Office 2010/2013 BetaMicrosoft KB článkySúkromnéNezaradené

Prémioví blogeri

Marian Nanias

Marian Nanias

274 článkov
Karolína Farská

Karolína Farská

4 články
Jiří Ščobák

Jiří Ščobák

765 článkov
Post Bellum SK

Post Bellum SK

90 článkov
Monika Nagyova

Monika Nagyova

299 článkov
Karol Galek

Karol Galek

115 článkov
reklama
reklama
SkryťZatvoriť reklamu