Excel 2007 rada ?

[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.

[Jan Pašek]

Nenašel bys inspiraci třeba tady: http://www.pc-help.cz/viewtopic.php?f=3 ... &sk=t&sd=a" onclick="window.open(this.href);return false;

[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ší ?

[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 http://www.pc-help.cz/viewtopic.php?f=35&t=28628" onclick="window.open(this.href);return false; 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.

[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=calender


JarZa

[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.

[vinsjiri]

Samozřejmě si to chci importovat do svého listu a přesně nevím jak na to díky

[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

[vinsjiri]

Děkuji, ale ješě poslední dotaz.
Jestli že bych chtěl tento kalendář na více jak 2 rozsahy, Např.:

Kód: Vybrat vše

("A4:A20", "B4:B20", "C4:c20")

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.

[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

[vinsjiri]

To je přesně ono, děkuji moc.
Nashledanou -.-

[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.