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/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

Martin Sukupčák

Martin Sukupčák

126 článkov
INESS

INESS

132 článkov
Roman Kebísek

Roman Kebísek

114 článkov
Tupou Ceruzou

Tupou Ceruzou

330 článkov
reklama
SkryťZatvoriť reklamu