Note: The other languages of the website are Google-translated. Back to English

Jak zobrazit kalendář při kliknutí na konkrétní buňku v aplikaci Excel?

Předpokládejme, že v listu je rozsah sloupců, které musíte často zadávat a měnit data uvnitř, ale nudit se můžete ručně zadávat nebo měnit datum za čas. Jak rychle zadávat data bez ručního zadávání do rozsahu sloupců? Tento článek hovoří o vyskakování kalendáře při kliknutí na buňky v určitém rozsahu a následném automatickém vložení data do vybrané buňky po výběru data v kalendáři.


Po kliknutí na konkrétní buňku s kódem VBA si otevřete kalendář

Vyřešte prosím tento problém krok za krokem.

Poznámka: Tato metoda může fungovat pouze v Microsoft Excel 32-bit.

Krok 1: Vytvořte UserForm s kalendářem

Vytvořte prosím UserForm, který obsahuje kalendář, který vyskakujete kliknutím na buňku.

1. lis Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > UserForm.

3. Pak a UserForm a Toolbox okna se objeví v Toolbox, klikněte na libovolný ovládací prvek a klikněte pravým tlačítkem, poté vyberte Další ovládací prvky z nabídky pravého tlačítka myši. Viz screenshot:

4. V Další ovládací prvky v dialogovém okně přejděte dolů a zkontrolujte Ovládání Microsoft MonthView možnost v Dostupné ovládací prvky a poté klikněte na OK .

5. Pak můžete vidět Měsíční náhled tlačítko je přidáno do Toolbox okno. Klikněte prosím na toto tlačítko MonthView a poté klikněte na okno UserForm1 a vytvořte kalendář v Userform.

Poznámka: Velikost okna UserForm můžete upravit tak, aby vyhovovala vloženému kalendáři, přetažením ohraničení UserForm.

6. Poklepejte na vložený kalendář v UserForm1 a v Kód v okně nahraďte původní kód následujícím skriptem VBA.

VBA code: create a user form with calendar

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
 On Error Resume Next
   Dim xRg As Object
   For Each xRg In Selection.Cells
      xRg.Value = DateClicked
   Next xRg 
   Unload Me
End Sub

Poznámka: Tento kód může pomoci vložit datum do vybrané buňky po výběru data z kalendáře.

Krok 2: Aktivujte kalendář kliknutím na buňku

Nyní musíte určit určité buňky, aby se po kliknutí zobrazil kalendář. Postupujte prosím následovně.

7. Poklepejte na název listu, který obsahuje buňky, na které kliknete, v levé části se zobrazí vyskakovací kalendář Projekt panelu, poté zkopírujte a vložte níže uvedený kód VBA do okna Kód. Viz snímek obrazovky:

VBA code: Click cell to pop up calendar

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If (Target.Count = 1) Then
    If Not Intersect(Target, Range("A2:A10")) Is Nothing Then UserForm1.Show
    End If
End Sub

Poznámka: v kódu A2: A10 jsou buňky, na které kliknete, aby se zobrazil kalendář. Podle potřeby změňte rozsah buněk.

8. lis Další + Q současně zavřete Microsoft Visual Basic pro aplikace okno.

Od této chvíle, když kliknete na libovolnou buňku uvnitř zadaného rozsahu v aktuálním listu, objeví se kalendář, jak je ukázáno níže. A datum se automaticky vloží do vybrané buňky po výběru data z kalendáře.


Po kliknutí na konkrétní buňku s kódem VBA si otevřete kalendář

Tato část představuje Výběr data užitečnost Kutools pro Excel. Po povolení této funkce klikněte na buňku s datem, vyskočí vám kalendář, můžete s ním snadno nahradit stávající datum novým datem. Chcete-li použít tuto funkci, postupujte podle následujících kroků.

1. cvaknutí Kutools > Obsah > Povolit výběr data.

2. Po povolení této funkce klikněte na buňku s datem a přímo v buňce vyskočí ikona kalendáře.

3. Klepnutím na ikonu kalendáře otevřete Výběr data v dialogovém okně a potom kliknutím na nové datum nahraďte datum ve vybrané buňce.

Poznámky:

  • Tlačítko Zpět: Klepnutím na toto tlačítko vrátíte zpět datum nahrazení;
  • Tlačítko Zavřít: Klepnutím na toto tlačítko zavřete dialogové okno Výběr data;
  • Tuto funkci lze použít pouze pro buňky obsahující datum.

  Pokud chcete mít bezplatnou zkušební verzi (30-den) této utility, kliknutím jej stáhněte, a poté přejděte k použití operace podle výše uvedených kroků.


Související články:


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
officetab dno
Komentáře (18)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Chci zobrazit vyskakovací kalendář pod vybranou buňkou. Jak mám postupovat?
Tento komentář byl moderátorem webu minimalizován
Použil jsem tyto kódy VBA a zatím je vše v pořádku. Rozsah je A2:A10 a kalendář se zobrazí, když do něj vyberete buňku. Ale pokud znovu označíte řádek od 2 do 10, kalendář se znovu objeví. Stejné je to se sloupcem "A", pokud jej označíte, kalendář opět vyskočí. Jak mám postupovat, abych získal kalendář pouze v rozsahu, který jsem definoval?
Tento komentář byl moderátorem webu minimalizován
Ahoj všichni,

Může mi někdo říct, jak otevřít kalendář v řadě buněk, ale počínaje buňkou vpravo pod záhlavím tabulky a dolů ve sloupci aplikace Excel.


Děkuji předem.
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Omlouvám se, že jsem nedostal vaši otázku. Bylo by hezké, kdybyste mohli poskytnout snímek obrazovky toho, co se snažíte udělat.
Tento komentář byl moderátorem webu minimalizován
Použijte např.: Range("B6:C30")
Tento komentář byl moderátorem webu minimalizován
Použijte např.: Range("B6:C30")
Tento komentář byl moderátorem webu minimalizován
tarihi seçebiliyorum ama a1:a10 hücrelerine seçtiğim tarih eklenmiyor. teşekkür ederim
Tento komentář byl moderátorem webu minimalizován
pokud se pokusím vybrat řádek, vyskakovací okno se aktivuje a v každé buňce v tomto řádku se zobrazí datum


jak se tomu mohu vyhnout
Tento komentář byl moderátorem webu minimalizován
Ahoj Same,
Kód byl v článku aktualizován o řešení problému. Zkuste to prosím a děkuji za váš komentář.
Tento komentář byl moderátorem webu minimalizován
Salve il codice funziona benissimo, ma se volessi farlo funzionare anche su un altro foglio
Tento komentář byl moderátorem webu minimalizován
Ahoj, Je možné umístit vyskakovací okno pro výběr data pro více sloupců, protože v mém listu mám "datum zahájení", "datum ukončení" a "datum smlouvy". pokud ano, tak jak?
Tento komentář byl moderátorem webu minimalizován
ahoj jeet,
Postupujte podle kroků a nahraďte rozsah "A2:A10" v druhém kódu VBA rozsahem sloupců (například C2:E2).
Tento komentář byl moderátorem webu minimalizován
Děkuji mnohokrát! Tyto pokyny byly velmi užitečné :)
Tento komentář byl moderátorem webu minimalizován
Kalendář se zobrazí, ale když kliknu na datum, buňka se nenaplní
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Kód v mém případě funguje dobře. Jakou verzi Excelu používáte?
Tento komentář byl moderátorem webu minimalizován
Není zde uveden žádný ovládací prvek Microsoft MonthView (Office 365) a zde uvedené pokyny nevysvětlují, jak lze tento ovládací prvek získat, takže je to v podstatě k ničemu, pokud nepoužíváte starší verzi Excelu.
Tento komentář byl moderátorem webu minimalizován
V seznamu nevidím ovládací prvek Microsoft MonthView, ale může to být tak, jak Pete (#32847) zmínil, že to nebude fungovat v Office 365 nebo 64bitovém Microsoft Office.
Tento komentář byl moderátorem webu minimalizován
Ahoj Teagan Caudle,
Hledal jsem a zkoušel jsem metody navržené na Googlu, ale nakonec jsem nemohl zaregistrovat ovládací prvek MonthView v Microsoft 365.
Omluvám se za nepříjemnost. Možná to můžete zkontrolovat.
https://social.technet.microsoft.com/Forums/Azure/en-US/db3b4dff-aad7-4d88-87cc-8f3f117be550/microsoft-windows-common-controls-60-for-office-2016
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL