Forum » Programiranje » Excel if pogoj
Excel if pogoj

zigazupan2 ::
V Excelu bi potreboval sledeče:
Če je v B1 vpisan tekst (karkoli), v A1 vpiše čas,ko je bil tekst vpisan.
Torej v B1 vpišem tekst ob 13:40, na A1 se izpiše ura 13:40 in potem v B2 ob 15:40 in se v A2 vpiše 15:40 ...
Nekaj sem že poizkušal ampak se zatakne pri izpisu ure in da ostane ura, ko je bilo napisano v B celico.
Če je v B1 vpisan tekst (karkoli), v A1 vpiše čas,ko je bil tekst vpisan.
Torej v B1 vpišem tekst ob 13:40, na A1 se izpiše ura 13:40 in potem v B2 ob 15:40 in se v A2 vpiše 15:40 ...
Nekaj sem že poizkušal ampak se zatakne pri izpisu ure in da ostane ura, ko je bilo napisano v B celico.

bajsibajsi ::
@cyberlev
Zgornja formula sicer deluje v praksi pa ni ok, ker ti bo vsakic ob komitu spremenilo vse case in datume (kar poskusi z F9).
Ena izmed delujocih resitev, ki jo je zelel OP je tale.
Spodnja koda vsako spremembo v koloni B belezi v kolono A.
V excelu pritisnes ALT + F11 in prilimas v modul oz. v list1 ter fajl shranis kot makro.
Zgornja formula sicer deluje v praksi pa ni ok, ker ti bo vsakic ob komitu spremenilo vse case in datume (kar poskusi z F9).
Ena izmed delujocih resitev, ki jo je zelel OP je tale.
Spodnja koda vsako spremembo v koloni B belezi v kolono A.
V excelu pritisnes ALT + F11 in prilimas v modul oz. v list1 ter fajl shranis kot makro.
Private Sub Worksheet_Change(ByVal Target As Range) Dim WorkRng As Range Dim Rng As Range Dim xOffsetColumn As Integer Set WorkRng = Intersect(Application.ActiveSheet.Range("B:B"), Target) xOffsetColumn = -1 If Not WorkRng Is Nothing Then Application.EnableEvents = False For Each Rng In WorkRng If Not VBA.IsEmpty(Rng.Value) Then Rng.Offset(0, xOffsetColumn).Value = Now Rng.Offset(0, xOffsetColumn).NumberFormat = "dd.mm.yyyy, hh:mm:ss" Else Rng.Offset(0, xOffsetColumn).ClearContents End If Next Application.EnableEvents = True End If End Sub
Vredno ogleda ...
Tema | Ogledi | Zadnje sporočilo | |
---|---|---|---|
Tema | Ogledi | Zadnje sporočilo | |
» | ExcelOddelek: Pomoč in nasveti | 1053 (549) | jedateruk |
» | Calc/excel delo s tabeloOddelek: Programiranje | 1545 (1312) | salabajs |
» | Pomoč za excellOddelek: Programska oprema | 1418 (1324) | Silikon |
» | [VBA Excel]Oddelek: Programiranje | 1213 (1147) | Muzo |
» | Prosim za pomoč pri VBAOddelek: Programiranje | 2220 (2023) | apachee |