Jak automaticky vyplnit datum v buňce, když je sousední buňka aktualizována v aplikaci Excel?
Někdy můžete při aktualizaci buňky v určitém sloupci označit poslední datum aktualizace. Tento článek doporučí metodu VBA k vyřešení tohoto problému. Když se buňka aktualizuje, sousední buňka se automaticky vyplní aktuálním datem okamžitě.
Automatické vyplnění aktuálního data v buňce, když je sousední buňka aktualizována kódem VBA
Automatické vyplnění aktuálního data v buňce, když je sousední buňka aktualizována kódem VBA
Předpokládejme, že data, která potřebujete aktualizovat, se nacházejí ve sloupci B, a když se aktualizuje buňka ve sloupci B, aktuální datum se vyplní v sousední buňce sloupce A. Viz screenshot:
Chcete-li tento problém vyřešit, můžete spustit následující kód VBA.
1. Klikněte pravým tlačítkem na záložku listu, kterou chcete automaticky vyplnit na základě sousední aktualizované buňky, a poté klikněte Zobrazit kód z nabídky pravého tlačítka myši.
2. V okně Microsoft Visual Basic pro aplikace zkopírujte a vložte níže uvedený kód VBA do okna Kód.
Kód VBA: automatické vyplnění aktuálního data v buňce při aktualizaci sousední buňky
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Updated by Extendoffice 2017/10/12
Dim xRg As Range, xCell As Range
On Error Resume Next
If (Target.Count = 1) Then
If (Not Application.Intersect(Target, Me.Range("B:B")) Is Nothing) Then _
Target.Offset(0, -1) = Date
Application.EnableEvents = False
Set xRg = Application.Intersect(Target.Dependents, Me.Range("B:B"))
If (Not xRg Is Nothing) Then
For Each xCell In xRg
xCell.Offset(0, -1) = Date
Next
End If
Application.EnableEvents = True
End If
End Sub
Poznámky:
3. lis Další + Q současně zavřete Microsoft Visual Basic pro aplikace okno.
Od této chvíle se při aktualizaci buněk ve sloupci B vyplní sousední buňka ve sloupci A aktuálním datem okamžitě. Viz screenshot:
Související články:
- Jak automaticky naplnit další buňky při výběru hodnot v rozevíracím seznamu aplikace Excel?
- Jak se automaticky dokončuje při psaní v rozevíracím seznamu aplikace Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!