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 | 1094 (590) | jedateruk |
| » | Calc/excel delo s tabeloOddelek: Programiranje | 1602 (1369) | salabajs |
| » | Pomoč za excellOddelek: Programska oprema | 1472 (1378) | Silikon |
| » | [VBA Excel]Oddelek: Programiranje | 1270 (1204) | Muzo |
| » | Prosim za pomoč pri VBAOddelek: Programiranje | 2285 (2088) | apachee |