Výběr data aplikace Excel | Jak vložit výběr data (kalendář) do aplikace Excel?

Jak vložit výběr data v aplikaci Excel?

K vložení rozevíracího kalendáře použijeme ovládací prvek ActiveX,  kterým je „Microsoft Date and Time Picker Control 6.0 (SP6)“ .

Tuto šablonu aplikace Excel pro výběr data si můžete stáhnout zde - šablonu aplikace Excel pro výběr data

Předpokládejme, že musíme udržovat údaje pro zaměstnance společnosti. Existuje několik polí jako

  • Emp Code
  • Emp Název
  • Emp Datum připojení
  • Emp oddělení

Pro zadávání dat do MS Excel jsme vytvořili následující formát.

Chcete-li zadat Emp Joining Date, musíme vytvořit rozevírací kalendář, aby bylo pro uživatele snadnější zadat připojovací data.

Postup vytvoření rozevíracího kalendáře je uveden níže - 

Musíme vložit „ovládací prvek ActiveX“ s názvem „Microsoft Date and Time Picker Control 6.0 (SP6)“ . K vložení použijeme příkaz „Vložit“ ve skupině „Ovládací prvky“ v části „Vývojář“

Pokud karta „Vývojář“ není viditelná, níže jsou uvedeny kroky, které je třeba provést, aby bylo viditelné stejné.

  • Krok 1: V nabídce Soubor vyberte možnost Možnosti.

  • Krok 2: Otevře se dialogové okno s názvem „Možnosti aplikace Excel“ . Na levém okraji dialogového okna vyberte možnost Přizpůsobit pás karet . Zaškrtněte políčko na kartě „Vývojář“ a klikněte na „OK“ .

  • Krok 3: Nyní vidíme kartu Vývojář na poslední z karet.

  • Krok 4: V části Ovládací prvky ActiveX vyberte možnost Další ovládací prvky.

  • Krok 5: Vyberte ze seznamu „Microsoft Date and Time Picker Control 6.0 (SP6)“ a klikněte na „OK“ .

  • Krok 6: Kliknutím kdekoli na listu vytvoříte rozevírací kalendář.

  • Krok 7: Klikněte pravým tlačítkem na „Výběr data“ a v seznamu vyberte „Vlastnosti“ .

  • Krok 8: Změňte hodnotu z „False“ na „True“ pro vlastnost „CheckBox“, aby bylo možné přijmout i nulové hodnoty. Zavřete dialogové okno „Vlastnosti“ .

  • Krok 9: Klikněte znovu pravým tlačítkem na Výběr data a v kontextové nabídce vyberte možnost „Zobrazit kód“ .

  • Krok 10: V editoru jazyka „Visual Basic“ vidíme, že nějaký kód je již napsán. Nahraďte kód následujícím kódem.

Kód:

 Soukromý dílčí list_SelectionChange (ByVa l Target jako rozsah) s Sheet1.DTPicker1 .Height = 20 .Width = 20, pokud se neprotíná (Target, Range ("C: C")), pak nic není. Visible = True. Top = Target.Top .Left = Target.Offset (0, 1) .Left .LinkedCell = Target.Address Else .Visible = False End If End With End Sub 

  • Krok 11: První příkaz v kódu říká kompilátoru MS Excel, aby spustil kód vždy, když je vybrána nová buňka (výběr je změněn). Vybraná buňka se odešle do procedury Sub jako „Cíl“ .
 Private Sub Worksheet_SelectionChange (ByVal Target As Range)
  • Krok 12: Tyto příkazy nastavují výšku a šířku nástroje pro výběr data na 20 bodů v aplikaci Excel. Lze pozorovat, že jsme použili operátor „With“ , takže nemusíme znovu a znovu odkazovat na DTPicker1 .
 S Listem 1. DTPicker1. Výška = 20. Šířka = 20
  • Krok 13: Následující klauzule „If“ stanoví kritéria, že pokud je ve sloupci „C“ vybrána jakákoli buňka, zviditelní se až poté Výběr data. Použili jsme funkci „Protínat“, protože tato funkce kontroluje, zda jsme vybrali jakoukoli buňku ve sloupci C, pak tato funkce vrátí adresu, jinak by byla hodnota null.
 Pokud se neprotínají (cíl, rozsah („C: C“)), pak nic není. Visible = True 
  • Krok 14: Vlastnost „Nahoře“ nástroje pro výběr data je nastavena na stejnou hodnotu jako „Nahoře“ hodnota vlastnosti Vybraná buňka. To znamená, že to půjde spolu s horním okrajem vybrané buňky.
.Top = Target.Top
  • Krok 15: Tento příkaz nastaví levou vlastnost nástroje pro výběr data na stejnou hodnotu jako u další pravé buňky vybrané buňky (vzdálenost levého okraje sloupce D od krajní levé strany listu). Abychom získali odkaz na další pravou buňku, použili jsme funkci 'Offset' s 0 jako argumentem řádku a 1 jako argumentem sloupce, protože tím získáme odkaz na buňku v dalším sloupci.
.Left = Target.Offset (0, 1). Left
  • Krok 16: Toto prohlášení propojí nástroj pro výběr data s cílovou buňkou tak, aby byla v rozevíracím kalendáři zobrazeném v buňce vybrána libovolná hodnota.
.LinkedCell = Target.Address
  • Krok 17: Příkaz 'Else' říká kompilátoru, aby nezobrazoval Výběr data, když je vybrána jakákoli buňka kromě toho, že je ve sloupci C.
Jinak. Viditelné = Nepravdivé
  • Krok 18: Nakonec zavřeme „pokud“
 Konec, pokud 
  • Krok 19: Nakonec musíme uzavřít „With“
 Konec s 
  • Krok 20: Nyní bude dílčí postup ukončen.
 End Sub 

Ujistěte se, že uložíme soubor s příponou '.xlsm', protože uloží kód VBA, který jsme napsali, a my budeme moci tento kód spustit, když ve sloupci C vyberete libovolnou buňku.

Nyní, kdykoli vybereme jakoukoli buňku ve sloupci „C“, můžeme vidět rozevírací kalendář v pravém horním rohu vybrané buňky. Můžeme otevřít rozevírací kalendář kliknutím na symbol šipky dolů.

Musíme kliknout na libovolné datum v kalendáři ve vybraném měsíci a zadat toto datum do vybrané buňky.

Můžeme změnit měsíc na předchozí nebo následující pomocí tlačítka se šipkou umístěného na levé a pravé straně kalendáře.

Můžeme také kliknout na měsíc a vybrat měsíc z rozevírací nabídky.

Můžeme také změnit rok kliknutím na rok a poté pomocí šipek nahoru a dolů vyberte požadovaný rok.

Věci k zapamatování

  • ‚Microsoft Date and Time Picker Control 6.0 (SP6) ' není k dispozici pro 64bitovou verzi MS Excel.
  • Po napsání kódu VBA musíme soubor uložit s příponou '.xlsm' (Excel Macro-Enabled Workbook), jinak by se kód VBA nespustil.

$config[zx-auto] not found$config[zx-overlay] not found