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 | ||
|
programovani:vba [08.03.2015 16:16] miloush |
programovani:vba [24.05.2016 19:25] 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