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+

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
Článok pokračuje pod video reklamou
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/20,  Externé tipy a triky MS Office,  SharePoint, spolupráca,Office3,  Tipy a triky,  Návody,  Stalo sa ...,  Office 2010/2013 Beta,  Microsoft KB články,  Súkromné,  Nezaradené

Prémioví blogeri

Milota Sidorová

Milota Sidorová

5 článkov
Roman Kebísek

Roman Kebísek

122 článkov
Pavol Koprda

Pavol Koprda

10 článkov
Lucia Nicholsonová

Lucia Nicholsonová

207 článkov
Marcel Rebro

Marcel Rebro

323 článkov
Věra Tepličková

Věra Tepličková

1,258 článkov
reklama
SkryťZatvoriť reklamu