Vlož datum a čas změny v buňce

Vlož datum a čas změny v buňce zodpovězená otázka

Dobrý den,

umíte někdo nadefinovat funkci ve VBA vlozdatum() ?

Pokud chci sledovat čas změny stavu buňky ve sloupci B a použiji:

=KDYŽ(B2=0;"";NYNÍ())

..tak po provedení povelu nyní() se přepočítá celý sešit a řekněme sloupec A vypadá celý stejně.

Kdyby šlo vložit datum nějak nedynamicky, sešit by vypadal takto: sloupec B -údaj, sloupec A -kdy byl vložen údaj do sl.B.

Děkuji za pomoc

nahlásit spam

odpovědět

25. 1. 2012 14:32

František Hůle

28 74

Pomocí VBA zkopírovat buňku a vložit jako hodnotu

Range("B2").Copy
Range("B2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

nahlásit spam

odpovědět

dík za pomoc, ale netuším, jak tohle implementuji na celý sloupec B

nahlásit spam

odpovědět

DotNETcollege: Mohlo by vás zajímat

MAUI - multiplatformní aplikace v .NETu

Úvod do XAML

Vyvíjíme univerzální aplikace pro Windows

Kontejnery, Docker a Azure Kubernetes Service (AKS)

TypeScript

Testování v prostředí .NET - unit testy a integrační testy

Kontinuální integrace pomocí TeamCity

Entity Framework pro pokročilé

Xamarin - vývoj multiplatformních mobilních aplikací

Javascript pro mírně pokročilé

Jde-li o to, aby se po změně obsahu buňky ve sloupci B zapsal do buňky sloupce A (stejného řádku) datum a čas, pak zkuste do Worksheet daného listu vložit kód:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim adr As String, cas As Date
  If Target.Column = 2 Then
    cas = Now()
    adr = "A" & Target.Cells.Row
    Range(adr).Select
    ActiveCell.FormulaR1C1 = cas
    Range(Target.Address).Select
  End If
End Sub

nahlásit spam

1 / 1

odpovědět

tak toto bylo naprosto přesné a brilantní řešení. Funguje to přesně, tak jak má.

Mnohokrát děkuji za pomoc

nahlásit spam

-1 / 1

odpovědět

Aktivovaci buňky pro zápis lze vynechat. Zjednodušený kód:

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim adr As String, cas As Date
  If Target.Column = 2 Then
    cas = Now()
    adr = "A" & Target.Cells.Row
    'Range(adr).Select
    'ActiveCell.FormulaR1C1 = cas
    'Range(Target.Address).Select
    Range(adr).Formula = cas
  End If
End Sub

nahlásit spam

odpovědět

otázka připomínka kladné hodnocení záporné hodnocení

Nadpis:

Antispam:

Komu se občas házejí perly?

Příspěvek bude publikován pod identitou anonym.

Administrátoři si vyhrazují právo komentáře upravovat či mazat bez udání důvodu.
Mazány budou zejména komentáře obsahující vulgarity nebo porušující pravidla publikování.

Pokud nejste zaregistrováni, Vaše IP adresa bude zveřejněna. Pokud s tímto nesouhlasíte, příspěvek neodesílejte.

dotNETportal.cz