..:: Nasvet/VBA ::..

Večkrat potrebujem ob datumu tudi dan v tednu (npr: sestanek je v sredo, 26/7/2000...). Ali lahko Word iz datuma 'izračuna' dan?


Rešitev je več, predstavil pa bom dve:

Najprej makro, ki vam odpre okno, kamor vnesete datum, Word pa ga (ustrezno oblikovanega) vrine v dokument:

''' ''' Procedura : VstaviDatum1() ''' Namen : Uporabnika vpraša za datum, ga ustrezno '' oblikuje in vrine v dokument ''' Vrača : nič ''' Argumenti : nič ''' Napisal : Matjaž Prtenjak, 01/08/2000 ''' Sub VstaviDatum1() ' če je prišlo do napake prekinem On Error GoTo konec: Dim datum As Date ' Vprašam uporabnika za datum datum = InputBox("Datum...") ' Vrinem datum v ustrezni obliki ' POZOR, ustrezno zamenjajte obliko "dddd, dd/mm/yyyy", ' za podrobnejša navodila poglejte pomoč ' za funkcijo Format Selection.InsertBefore Format(datum, "dddd, dd/mm/yyyy") ' Pravočasno pobegnem iz procedure Exit Sub konec: ' Če je prišlo do napake, obvestim uporabnika MsgBox "Niste vnesli datuma!" End Sub


Sedaj pa še makro, ki je uporaben za popravilo že napisanih dokumentov, saj uporabnik (že zapisan) datum označi, makro pa ga preoblikuje in vrine nazaj:

''' ''' Procedura : VstaviDatum2() ''' Namen : Uporabnik označi datum in izvede '' to proceduro, ki prebrani datum '' oblikuje in vrine nazaj v dokument ''' Vrača : nič ''' Argumenti : nič ''' Napisal : Matjaž Prtenjak, 01/08/2000 ''' Sub VstaviDatum2() ' če je prišlo do napake prekinem On Error GoTo konec: Dim datum As Date ' Preberem označen datum in ga odstranim datum = Selection.Range Selection.Range.Delete ' Datum oblikujem in ga vrinem nazaj ' POZOR, ustrezno zamenjajte obliko "dddd, dd/mm/yyyy", ' za podrobnejša navodila poglejte pomoč ' za funkcijo Format Selection.InsertBefore Format(datum, "dddd, dd/mm/yyyy") ' Pravočasno pobegnem iz procedure Exit Sub konec: ' Če je prišlo do napake, obvestim uporabnika MsgBox "Niste označili datuma!" End Sub



Navigacija

Se splača!

Tekmovanje

Najboljši krotilci kač...

Zadnje v forumu

04.01.2018 06:48:58: Samozapolnitev celic

01.01.2018 20:53:11: Celica, ki kaže na drugo celico

27.12.2017 12:37:39: Kopiranje med razli?nimi inštancami Excela