Stránka 1 z 2
Excel 2007 rada ?
Napsal: 08 črc 2008 10:17
od vinsjiri
Dobrý den,
chtěl jsem se zeptat jestli neexistuje jistě řešení.
za 1) Udělat rozevírací seznam viz.
http://office.microsoft.com/cs-cz/excel ... 91029.aspx není žádný problém, ale když rozevřu ten seznam tak jsou tam k nabídce položky, které jsem si tam nadefinoval. Kdybych chtěl při rozkliknutí místo seznamu s položkama malý kalendář na aktuální datum, šlo by to udělat ?
Za 2) Jestli v excelu jde předem nadefinovat buňka k použití hypertextového odkazu ?
Mám buňku a jen při jednom kliknutí na buňku bych chtěl, aby mi to vyhodilo nabídku hypertextového odkazu, zda-li to jde ?
Děkuji mnohokrát za jakékoliv odpovědi.
Re: Excel 2007 rada ?
Napsal: 08 črc 2008 10:41
od Jan Pašek
Re: Excel 2007 rada ?
Napsal: 08 črc 2008 11:16
od vinsjiri
Ne, asi si špatně pochopil, jde o to že když kliknu jakoby na seznam aby mi nevyjel seznam s položkama ale malý praktický kalendář se 30 dny v měsíci a abych si mohl vybrat datum nic víc :)
Opravdu nikdo netuší ?
Re: Excel 2007 rada ?
Napsal: 08 črc 2008 11:31
od Jan Pašek
Jak špatně pochopil v tom souboru z toho odkazu je rozvírací nabídka na časy časi jsou tuším definované jako pomocné pole ve sloupci AA pokud použiji funkci dnes +1, dnes +2 a p vytvořím seznam datumů odedneška do x.
V tomto tématu
viewtopic.php?f=35&t=28628 je tabulka jak excel pracuje s datem a časem bohužel nyní nemám čas vytvářet konkrétní tabulku přímo na tvůj požadavek.
Re: Excel 2007 rada ?
Napsal: 09 črc 2008 10:46
od JarZa
Ahoj,
viz příloha, vyskakovací kalendář pro buňky A4:A20. Kalendář je vestavěný excelovský ovládácí prvek, dostupný v MS Office Excel 2003 přes menu Zobrazit/Panely nástrojů/Ovládací prvky/Další ovládací prvky. Nevím, jak to vypadá ve verzi Office 2007.
převzato z
http://www.excelforum.com/showthread.ph ... t=calenderJarZa
Re: Excel 2007 rada ?
Napsal: 11 črc 2008 23:31
od vinsjiri
To je přesně ono !
Ale mohl by si mi úvést přesný postup při vkládání toho kalendáře a pak následného umístění na buňku, aby po kliknutí se zobrazoval tento kalendář ?
Vždy mi to napíše chybu v kodu VB, v tomto jazyce jsem pouze začátečník, prosím o pomoc.
Děkuji mnohokrát.
Re: Excel 2007 rada ?
Napsal: 11 črc 2008 23:32
od vinsjiri
Samozřejmě si to chci importovat do svého listu a přesně nevím jak na to díky

Re: Excel 2007 rada ?
Napsal: 12 črc 2008 08:41
od JarZa
V Excelu otevři svůj soubor, stiskni kombinaci kláves Alt+F11 - dostaneš se do okna editoru Visual Basic. Vlevo v navigačním okně bys měl vidět název toho excelovského souboru a názvy jeho listů. Dvojklikni na list, na kterém má být kalendář, a do hlavního okna zkopíruj programový kód níže. Uprav rozsah buněk (v příkladu Range("A4:A20")), jak potřebuješ.
Jarza
Kód: Vybrat vše
Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value 'vloží hodnotu z kalendáře do aktivní buňky
Calendar1.Visible = False 'zneviditelní kalendář
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A4:A20")) Is Nothing Then 'tady jsou uvedeny buňky, pro které se kalendář zobrazí
With Calendar1
.Visible = True
.Left = ActiveCell.Left + ActiveCell.Width
.Top = ActiveCell.Top
.Value = ActiveCell.Value
End With
Else
Calendar1.Visible = False
End If
End Sub
Re: Excel 2007 rada ?
Napsal: 13 črc 2008 19:00
od vinsjiri
Děkuji, ale ješě poslední dotaz.
Jestli že bych chtěl tento kalendář na více jak 2 rozsahy, Např.:
tak bych měl použít jakou syntaxi ?
Vypisuje mi to pořád chybu počet argumentů, logicky vím kde je chyba ale neumím jí opravit správnou syntaxí.
Právě v mém dokumentu potřebuju na 3 sloupce přiřadit kalendáře, ale v tomto kodu co jste mi napsali je možné pouze dva argumenty, nemohl byste správným příkazem proměnit tento kod na kod pro tři a více argumentů ?
Děkuji mnohokrát.
Re: Excel 2007 rada ?
Napsal: 13 črc 2008 21:58
od JarZa
V případě rozsahů, které uvádíš, by to bylo Range("A4:C20"), ale spíše jsi měl na mysli nesouvislou oblast buněk.
Možné řešení viz kód níže.
JarZa
Kód: Vybrat vše
If Not Intersect(Target, Range("A4:A20")) Is Nothing _
Or Not Intersect(Target, Range("C4:C20")) Is Nothing _
Or Not Intersect(Target, Range("D4:D12")) Is Nothing Then
Re: Excel 2007 rada ?
Napsal: 14 črc 2008 00:15
od vinsjiri
To je přesně ono, děkuji moc.
Nashledanou -.-
Re: Excel 2007 rada ?
Napsal: 08 pro 2011 15:23
od setuB
můžete mi prosím poradit? Udělal jsem přesně vše podle návodu a háže mi to chybu run-time error 424.