< návrat zpět

MS Excel


Téma: rozbalovací kalendář v buňce rss

Zaslal/a 16.12.2012 21:55

Zdravím, šlo by poupravit tvorbu měsíčního kalendáře tak, aby se zobrazoval jako nabídka z jedné buňky a reagoval na kliknutí do konkrétního datumu? Nahradil by vypisování datumu do buňky. Děkuji

Příloha: rar10673_excel_array_formula_calendar.rar (21kB, staženo 345x)
Zaslat odpověď >

Strana:  1 2   další »
icon #010675
avatar
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.
Příloha: rar10675_calendar-in-sheet.rar (15kB, staženo 405x)
citovat
icon #010677
eLCHa
Nepoužívám, nemám vyzkoušené, ale můžete vyzkoušet i toto.

http://excelplus.net/news.php?readmore=66citovat
#010693
avatar
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 3
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
#010702
avatar
Soubor potřebuji využít na více počítačích v síti, na nich není nainstalován Access ani není možné doinstalovat doplněk. Takže se přikláním k řešení Milana-D, poprosím o soubor s VBA, v síti sice všichni mají Office 2010, ale ten je kompatibilní s předchozími verzemi, nikdo nebude zkoumat, v čem je to vytvořeno, ale jestli to funguje, soubor s příponou xls s makrem bude v pohodě. Děkuji předem.citovat
#013070
avatar
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 Sub
citovat
#013073
Opičák
Kdysi jsem měl nutkání také něco takového spáchat.
Nakonec jsem to nepoužil, ale také nevymazal. Udělal jsem to do UFormuláře. Funguje to ale jen na stávající měsíc, takže poslední den měsíce nelze zadat první den následujícího a naopak, první den měsíce nelze zadat včerejšek. Jedinou výhodou je to, že to můžu odsunout někam na stranu nebo zrušit a v případě potřeby opět vyvolat. Nejprve je třeba samozřejmě umístit kurzor na bunku, do které chceš zapsat datum, pak klik na datum.
Příloha: zip13073_kalendar-uf-a-maticovy-vzorec.zip (34kB, staženo 231x)
citovat
#013079
Opičák
Také lze použít daleko lepší doplněk Excelu:

http://www.rjurecek.cz/doplnky.htmcitovat
#013105
avatar
Tak jsem všechno prošel a vyzkoušel a nejlépe vyšel kalendář - doplněk doporučený eLCHou z Excelplus.NET. Al - bez Accessu se nechytám, loopi007 - nepodařilo se mi rozběhat ke spokojenosti, Opičák - jeden měsíc (aktuální) je na vkládání rozpětí datumů málo, chtělo by to v mém případě alespoň 3 (aktuální, předchozí a následující); Jurečkovo RJ Tools je spousta skvělých věcí, jeho řešení kalendáře však neumožňuje vložení datumu ve formátu dd.mm.rrrr. Všem moc děkuji za snahu! 1citovat
#013195
avatar
tady je funkční soubor, ale musíš si jej doopravit 1
Příloha: rar13195_cal.rar (15kB, staženo 466x)
citovat
#024888
avatar
Šlo by nějak modifikovat kalendář zde od Opičáka, aby se rozbaloval i jiný měsíc, rok?
Jedná se zde o soubor:
13073_kalendar-uf-a-maticovy-vzorec.zip

Popřípadě jiný rozbalovací kalendář. Děkujicitovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje