Rozdíly
Zde můžete vidět rozdíly mezi vybranou verzí a aktuální verzí dané stránky.
Obě strany předchozí revize Předchozí verze Následující verze | Předchozí verze Poslední revize Obě strany příští revize | ||
programovani:vba [08.03.2015 16:16] miloush |
programovani:vba [24.05.2016 19:24] vm |
||
---|---|---|---|
Řádek 1: | Řádek 1: | ||
====== VBA ====== | ====== VBA ====== | ||
+ | ===== Excel ===== | ||
+ | * [[vba/excel-tabulky]] | ||
+ | |||
===== Vstup ===== | ===== Vstup ===== | ||
==== Seznam povolených klávesnic ==== | ==== Seznam povolených klávesnic ==== | ||
Řádek 107: | Řádek 110: | ||
Next i | Next i | ||
+ | End Sub | ||
+ | </code> | ||
+ | Přidat věk ze začátku opakování v den narození... | ||
+ | <code> | ||
+ | Sub VěkDoKalendáře() | ||
+ | |||
+ | Dim contacts As MAPIFolder | ||
+ | Dim a As AppointmentItem | ||
+ | Dim r As RecurrencePattern | ||
+ | Dim o As AppointmentItem | ||
+ | |||
+ | Dim born As Date | ||
+ | | ||
+ | | ||
+ | Set contacts = Session.PickFolder | ||
+ | |||
+ | For i = contacts.Items.Count To 1 Step -1 | ||
+ | Set a = contacts.Items(i) | ||
+ | If a.IsRecurring And a.Start < #1/1/2004# Then | ||
+ | born = DateAdd("yyyy", 9, a.Start) | ||
+ | Set r = a.GetRecurrencePattern() | ||
+ | l = 9 | ||
+ | |||
+ | While born < #1/1/2021# | ||
+ | born = DateAdd("yyyy", 1, born) | ||
+ | l = l + 1 | ||
+ | If born >= #1/1/2000# Then | ||
+ | Set o = r.GetOccurrence(born) | ||
+ | o.Location = l & " let" ' (" & DatePart("yyyy", a.Start) & ")" | ||
+ | o.Save | ||
+ | End If | ||
+ | Wend | ||
+ | | ||
+ | End If | ||
+ | Next i | ||
End Sub | End Sub | ||
</code> | </code> |
programovani/vba.txt · Poslední úprava: 24.05.2016 19:25 autor: vm