Dobrý deň,
neviem prísť na to, ako v excel dosiahnuť toho, aby pri napísaní čísla v jednej bunke mi hneď vo vedľajšej bunke automaticky napísalo čas, kedy bola vedľajšia bunka pozmenená, inými slovami, napríklad ak napíšem do bunky 13, tak vo vedľajšej bunke mi automaticky zobrazí časový údaj, kedy som to číslo 13 napísal, prípade ideálne by bola nastaviť ešte aj formát času, napríklad hh:mm a ideálne aj ten čas mínus 1 minúta.
A úplne najideálnejšie by bolo, ak by tento automaticky vytvorený časový údaj vo vedľajšie bunka sa pri ďalšej zmene obsahu vedľajšej bunky nemenil - t. j. napríklad ja napíšem číslo 13 v bunke B1 a v bunke A1 mi napíše automaticky časový údaj v mnou zadanom formáte (ideálne) mínus mnou zadanou hodnotou, napr. 1 minúta (ideálne) a pri ďalšej zmene hodnoty v bunke, kde som ako v tomto príklade uviedol číslo 13 by sa čas už nemenil, ale zostal by taký, aký bol pri prvotnom vpísaní čísla pôvodného - v tomto prípade príklade 13 (!) - ideálne.
Samozrejme ak by v bunke nebolo nič, ani vedľa v bunke by sa nezobrazil žiaden časový údaj...
Vôbec neviem akým spôsobom toho možno docieliť, mňa napadlo cez podmienku vzorca if, no stále neviem, čo mám napísať, ak je v bunke niečo, aby mi vedľa napísalo časový údaj, kedy bolo do bunky prvý krát niečo napísané (hore uvedený problém)
=if(ISBLANK(B1);;"")
Za každý nápad budem vďačný.
Podmienka v excel
Re: Podmienka v excel
Na zaznamenanie zmeny bunky sa dá použiť cyklický vzorec C1
=IF(ISBLANK(B1);C1;NOW()), ale neviem, ako zabezpečiť, aby sa pri zmene v bunke B1 neprepísal nový čas.
Re: Podmienka v excel
dobre, aj to by mi stačilo, ale (!!!) je tu zásadný praktický problém a to, že po zatvorení a znovuotvorení dokumentu sa čas zasa aktualizuje! A navyše ďalší problém, ak skopírujem vzorec v stĺpci a v niektorej inej vedľajšej bunke v stĺpci napíšem text, zmenia sa vedľa všetky časové údaje v stĺpci!
Možno by pomohol takýto kód, ale neviem ako sa dá uplatniť na viacero buniek v stĺpci!
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then
Cells(3, 1) = Now
End If
End Sub
Možno by pomohol takýto kód, ale neviem ako sa dá uplatniť na viacero buniek v stĺpci!
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$3" Then
Cells(3, 1) = Now
End If
End Sub
Re: Podmienka v excel
Kód: Vybrat vše
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = "2" Then
With Cells(Target.Row, Target.Column + 1)
.Value = Format(Now, "d.m.yyyy hh:mm:ss")
.EntireColumn.AutoFit
End With
End If
End Sub
Re: Podmienka v excel
Funguje to ako má a formát dátum som si ešte v kóde upravil... Mnohokrát ďakujem.
- elninoslov
- Level 2.5
- Příspěvky: 369
- Registrován: červen 13
- Pohlaví:
- Stav:
Offline
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
- 16
- 6244
-
od mirekol
Zobrazit poslední příspěvek
20 říj 2023 08:31
-
- 3
- 1971
-
od Story-Long
Zobrazit poslední příspěvek
14 srp 2023 10:11
-
- 5
- 2510
-
od mmmartin
Zobrazit poslední příspěvek
13 črc 2023 18:44
-
- 2
- 1785
-
od honzzicek
Zobrazit poslední příspěvek
01 črc 2023 08:57
-
-
Excel komparacedvou soborů Příloha(y)
od teichmann.ondrej » 15 dub 2024 17:26 » v Kancelářské balíky - 6
- 1611
-
od zeus
Zobrazit poslední příspěvek
včera, 17:22
-
Kdo je online
Uživatelé prohlížející si toto fórum: Žádní registrovaní uživatelé a 6 hostů