Automatické vyplňování textového pole VBA Excel

Automatické vyplňování textového pole je praktická funkce, která umožňuje rychlé zadávání dat v Excelu. Visual Basic for Applications (VBA) Excel má několik způsobů, jak implementovat tuto funkci, které mohou zjednodušit práci s tabulkami a zlepšit výkon.

Jednou z metod automatického vyplňování textového pole je použití funkce AutoComplete. Umožňuje automaticky nabízet možnosti zadávání na základě dříve zadaných hodnot. To je zvláště užitečné, když je v tabulce mnoho stejných nebo podobných hodnot.

Dalším způsobem je použití události Change. K této události dochází, když uživatel změní hodnotu v textovém poli. VBA lze tuto událost programově zachytit a automaticky vyplnit textové pole pomocí předdefinovaných hodnot nebo dat z jiných buněk.

Příklad: Řekněme, že máte seznam se jmény zaměstnanců. Když začnete zadávat jméno zaměstnance do textového pole, Automaticky se ze seznamu vytáhne a zvýrazní.

VBA Excel má další metody implementace automatického vyplňování textového pole a lze je doplnit v závislosti na konkrétních potřebách a úkolech. Díky nim je práce s tabulkami v Excelu pohodlnější a efektivnější.

Jak používat automatické vyplňování textového pole VBA Excel

Automatické vyplňování textového pole v aplikaci VBA Excel umožňuje zjednodušit proces zadávání dat, usnadnit práci s větším množstvím informací a snížit pravděpodobnost chyb. Tato funkce umožňuje uživateli nabídnout vhodné možnosti vyplnění na základě již zadaných dat.

Chcete-li použít automatické vyplňování textového pole v aplikaci VBA Excel, musíte postupovat podle následujících kroků:

1. Otevřít Editor VBA: Chcete-li to provést, klikněte na tlačítko Vývojář v horní liště nabídky a poté vyberte možnost Editor VBA.
2. Vytvořit modul: Na levé straně editoru VBA klikněte pravým tlačítkem na objekt " VBAProject "a vyberte možnost" Vložit " - > "Modul".
3. Napsat kód automatického vyplňování: V okně kódu modulu zadejte následující kód:

Private Sub TextBox1_Change()

Dim dataRange As Range

Dim cell As Range

'Nastavíme rozsah dat, na základě kterých bude automatické vyplňování

Set dataRange = Range("A1:A10")

'Vyčistěte seznam nápověd

'Ověřujeme, že textové pole není prázdné

If Len(TextBox1.Value) > 0 Then

'Hledáme shodné hodnoty v datovém rozsahu

For Each cell In dataRange

If Left(cell.Value, Len(TextBox1.Value)) = TextBox1.Value Then

'Přidejte nalezenou shodu do seznamu stop

TextBox1.AutoCompleteSource = TextBox1.AutoCompleteSource & ";" & cell.Value

Tento kód bude proveden pokaždé, když se změní obsah textového pole. Zkontroluje zadaný text a pokud najde shodu v rozsahu dat, přidá jej do seznamu stop pro automatické vyplňování.

Poznámka: V tomto příkladu je použit datový rozsah od A1 do A10. Můžete jej změnit na svůj.

Po napsání kódu uložte modul a zavřete Editor VBA. Nyní můžete začít používat automatické vyplňování textového pole v aplikaci VBA Excel.

Chcete-li zkontrolovat automatické vyplňování, přidejte do listu aplikace Excel textové pole (ActiveX TextBox Control) a propojte jej s napsaným modulem. Při zadávání textu do daného pole se automaticky nabízejí výzvy na základě zadaného textu a dat z daného rozsahu.

Použití automatického vyplňování textového pole v aplikaci VBA Excel umožňuje výrazně urychlit a zjednodušit proces zadávání dat, zejména při práci s velkým množstvím informací nebo často se opakujícími hodnotami.

Metody automatického vyplňování v textovém poli VBA Excel

V aplikaci VBA Excel existuje několik metod pro automatické vyplňování textového pole. Tyto metody usnadňují vyplňování textových polí v dokumentu a zvyšují efektivitu práce.

• AutoComplete - tato metoda umožňuje automatické vyplňování textového pole na základě existujících hodnot v seznamu. Při zadávání textu do pole systém automaticky nabízí možnosti dokončení na základě již zadaných hodnot. To je velmi užitečné, když si musíte vybrat z velkého seznamu hodnot.
• AutoFill - tato metoda je navržena tak, aby automaticky vyplňovala textové pole na základě předchozích hodnot ve sloupci nebo řadě. Při zadávání textu do pole systém automaticky nabízí možnosti dokončení na základě hodnot zadaných v sousedních buňkách. To je velmi užitečné, když je třeba automaticky pokračovat v sekvenci hodnot.
• AutoCorrect - tato metoda umožňuje automaticky upravit zadaný text v textovém poli na základě daných pravidel. Například při zadání "TH" jej systém automaticky nahradí "the". To je užitečné pro opravu častých překlepů a zlepšení kvality zadaného textu.

Chcete-li použít tyto metody, musíte vybrat požadované textové pole a zavolat příslušnou metodu z objektu aplikace . Pro automatické vyplňování lze například použít následující kód:

Sub AutoCompleteExample()Dim myTextBox As ObjectSet myTextBox = Sheets("Sheet1").Shapes("TextBox1")myTextBox.ControlFormat.AutoComplete = TrueEnd Sub

Nastavení automatického vyplňování lze také nakonfigurovat nastavením požadovaných vlastností objektu aplikace . Můžete například nastavit seznam automatického vyplňování různými způsoby:

Sub AutoFillExample()Dim myTextBox As ObjectSet myTextBox = Sheets("Sheet1").Shapes("TextBox1")myTextBox.ControlFormat.AutoFill = xlFillDefault' илиmyTextBox.ControlFormat.AutoFill = xlFillMonths' илиmyTextBox.ControlFormat.AutoFill = xlFillYears' и т.д.End Sub

Automatické vyplňování textových polí v aplikaci VBA Excel je výkonný nástroj, který výrazně urychluje vyplňování dokumentů a zlepšuje kvalitu zadaného textu.