Jak vložit výběr data v aplikaci Excel?
K vložení rozevíracího kalendáře použijeme ovládací prvek ActiveX, což je „Microsoft Date and Time Picker Control 6.0 (SP6)“ .
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“ ve složce „Vývojář“.
Pokud karta „Vývojář“ není viditelná, níže jsou uvedeny kroky, které je třeba provést, aby byla stejná viditelná.
- 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 (cíl ByVal 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 nějakou buňku ve sloupci C, pak tato funkce vrátí adresu; jinak by byla hodnota null.
Pokud se neprotínají (Target, Range ("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 hodnota „Nahoře“ ve vybrané buňce. 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). Chcete-li získat odkaz na další pravou buňku, použili jsme funkci 'Offset' s 0 jako argumentem řádku a 1 jako argumentem sloupce, protože to získá odkaz na buňku v dalším sloupci.
.Left = Target.Offset (0, 1). Left
- Krok 16: Toto prohlášení propojí 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 „If“.
Konec, pokud
- Krok 19: Nakonec musíme uzavřít „S“.
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.
Now, whenever we select any cell in the ‘C’ column, we can see a drop-down calendar at the top right corner of the selected cell. We can open the drop-down calendar by clicking on the down arrow symbol.
We need to click on any date in the calendar in the selected month to enter that date in the selected cell.
We can change month to previous or next using the arrow button placed at the left and right side of the calendar.
We can also click on the month to choose a month from the drop-down.
We can also change year by clicking on year and then using up and down arrows to choose the required one.
Things to Remember
- ‘Microsoft Date and Time Picker Control 6.0 (SP6)’ is not available for the 64-bit version of MS Excel.
- Po napsání kódu VBA musíme uložit soubor s příponou '.xlsm' (Excel Macro-Enabled Workbook); jinak by se kód VBA nespustil.
