MS Excel

Nedávno som niečo v tomto duchu posielal na nejaké diskuzné fórum v rámci LinkedIn. Riešil som to užívateľským formulárom, do ktorého som vložil ovládací prvok Calendar z knižnice Access. Pokiaľ máš inštalovaný Access v 2007 alebo nižšiu, mohlo by fungovať to, čo posielam v prílohe. Na liste 1 po dvojkliku do niektorej zo žltých buniek na Teba vyskočí kalendár a hodnota sa po potvrdení kliknutím na OK vo formulári prepíše do bunky, z ktorej si volal formulár.
Vyskúšaj, pokiaľ by si to chcel používať, tak si to douprav.citovat

Pokud to hodlas pouzivat na konkretnim pc, tak prima, jen jsem chtel upozornit na nebezpeci otevreni toho sesitu jinym pc, ktere neobsahuje danou knihovnu. Pak ti ten krasny soubor havaruje, a podle zakona schvalnosti se to stane na pc pana reditele
Podobnou blamaz znam z vlastni zkusenosti.
Ale existuji i pomerne vymakane kalendare ktere funguji bez externich knihoven, tedy jsou vytvoreny ve VBA. Pouzival jsem ho ale jeste pod excel 2003, nevim, jak spolehivy by byl na 2007/2010. Mohu zverejnit, pokud by byl zajemcitovat

jukni sem

http://wall.cz/index.php?m=topic&id=13061&r=1&autolast#post-13065

já jsem tu řešil něco takového, potom jen přepiš tutuo metodu takhle:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim oblast As Range
Dim Cancel As Boolean
Dim formular As UserForm1
Dim datum
Dim dat As String



Set oblast = Range("A1:A41")

'paby to fungovalo jen pro vymezenou oblast
If Intersect(Target, oblast) Is Nothing Then Exit Sub

'zrušení výběru buněk, které by za normálních okolností byly vybrany
Cancel = True

'If Target.Column = 1 And (Target.Row >= 4 And Target.Row <= 41) Then

If Target = "" Then
UserForm1.Show
datum = Range("O1").Value
Dim den, mesic
den = Day(datum)
mesic = Month(datum)

If den < 10 Then
den = "0" & den
End If

If mesic < 10 Then
mesic = "0" & mesic
End If

dat = mesic & "/" & den 'tady je změna a pak to funguje ok sice netuším proč, ale mě to šlape
Target.Value = dat
End If

End Subcitovat

Také lze použít daleko lepší doplněk Excelu:

http://www.rjurecek.cz/doplnky.htmcitovat

tady je funkční soubor, ale musíš si jej doopravit citovat