Forum » Programska oprema » Pomoč za excell
Pomoč za excell
Silikon ::
Zdravo!
V excellu bi rad naredi "avtomatski vnos" datuma v celico pod sledečim pogojem
če recimo v celico A1 vnesem neko besedilo , bi rad da se v celico B1 zapiše aktualen datum, oz če je celica a1 "polna" naj se v celico B1 zapiše datum
Lp
V excellu bi rad naredi "avtomatski vnos" datuma v celico pod sledečim pogojem
če recimo v celico A1 vnesem neko besedilo , bi rad da se v celico B1 zapiše aktualen datum, oz če je celica a1 "polna" naj se v celico B1 zapiše datum
Lp
P5B, INTEL E8400 3Ghz, 2GB RAM, VGA GTX260 CORE 216 - 896 RAM, 550W
BlackHole ::
Ampak naslednji dan se bo vrednost te celice spremenila v tekoči datum, tako da verjetno bo treba kak VBA uporabit.
LP Marko
-žiga- ::
Ampak naslednji dan se bo vrednost te celice spremenila v tekoči datum, tako da verjetno bo treba kak VBA uporabit.
Uf, na to pa še pomislil nisem. Sem potem malo googlal za kako preprosto rešitev, pa zgleda da bo res potreben VBA.
Sem pa naletel na neko drugo zanimivo reč, ki je prej nisem poznal. Če mogoče pride komu prav.
To insert a fixed date into a cell--a date that you don't want to change--hold down Ctrl while you press the semicolon ( ;) key. To insert the current time (without a date), press Ctrl-Shift-Semicolon.
smetko ::
Z spodnjim makrojem (VBA) dosežeš, da če v kolono "A" vpišeš karkoli, se ti v kolono 2 vpiše datum in čas ter v kolono 3 samo datum (uporabi kar rabiš), oziroma če ustrezno izbrišeš, se ti izbriše tudi ustrezne celice za datum.
To proceduro moraš v makrojih dati pod ustrezen list.
Private Sub Worksheet_Change(ByVal Target As Range)
For Each celica In Target ' to je potrebno če se spremeniš več celic hkrati
If celica.Column = 1 Then ' izvede če se spremeni kolona A
If IsEmpty(celica) Then ' izbriši datume, če izbrišeš celico
Cells(celica.Row, 2) = Empty 'izprazni celico 2 v ustrezni vrstici
Cells(celica.Row, 3) = Empty 'izprazni celico 3 v ustrezni vrstici
Else
Cells(celica.Row, 2) = Now ' v celico2 ustrezne vrstice vpiše datum in uro
Cells(celica.Row, 3) = Date ' v celico3 ustrezne vrstice vpiše datum in uro
End If
End If
Next
End Sub
To proceduro moraš v makrojih dati pod ustrezen list.
Private Sub Worksheet_Change(ByVal Target As Range)
For Each celica In Target ' to je potrebno če se spremeniš več celic hkrati
If celica.Column = 1 Then ' izvede če se spremeni kolona A
If IsEmpty(celica) Then ' izbriši datume, če izbrišeš celico
Cells(celica.Row, 2) = Empty 'izprazni celico 2 v ustrezni vrstici
Cells(celica.Row, 3) = Empty 'izprazni celico 3 v ustrezni vrstici
Else
Cells(celica.Row, 2) = Now ' v celico2 ustrezne vrstice vpiše datum in uro
Cells(celica.Row, 3) = Date ' v celico3 ustrezne vrstice vpiše datum in uro
End If
End If
Next
End Sub
Silikon ::
@smetko
Hvala, deluje!
Hvala, deluje!
P5B, INTEL E8400 3Ghz, 2GB RAM, VGA GTX260 CORE 216 - 896 RAM, 550W
Vredno ogleda ...
Tema | Ogledi | Zadnje sporočilo | |
---|---|---|---|
Tema | Ogledi | Zadnje sporočilo | |
» | Excel in dinamično risanje grafaOddelek: Programiranje | 1397 (1234) | Good Guy |
» | Excel: stolpce v vrstice ?Oddelek: Programska oprema | 5183 (4811) | _jackson_ |
» | [Excel]Kako izvleči vrednost?Oddelek: Programiranje | 3797 (3520) | Mobidick |
» | [Excel]Vrednost celice = ime dokumentaOddelek: Programska oprema | 4788 (4210) | veteran |
» | Prosim za pomoč pri VBAOddelek: Programiranje | 2110 (1913) | apachee |