Jak shrnout hodnoty z textových polí?
Předpokládejme, že máte tři textová pole, která chcete sečíst hodnoty v Textbox1 a Textbox2, a výsledek vypočítat automaticky do Textbox3, jak je znázorněno na následujícím obrázku. Jak jste mohli tuto práci zvládnout v Excelu?
Shrňte hodnoty z textových polí pomocí kódu VBA
Shrňte hodnoty z textových polí pomocí kódu VBA
Chcete-li shrnout hodnoty ze dvou textových polí a získat výsledek do třetího textového pole, může vám pomoci následující kód VBA.
1. Nejprve byste měli vložit tři textová pole, kliknout Vývojka > Vložit > Textové pole (ovládací prvek ActiveX), a potom nakreslete textové pole a vytvořte dvě kopie, viz screenshot:
2. Po vložení textových polí klikněte pravým tlačítkem na kartu listu, která obsahuje textová pole, která chcete použít, a klikněte na Zobrazit kód z kontextové nabídky otevřete Microsoft Visual Basic pro aplikace okno a poté zkopírujte a vložte následující kód VBA do prázdného modulu:
Kód VBA: Shrňte hodnoty z textových polí:
Private Sub Sum_Click()
TextBox3.Text = Val(TextBox2.Text) + Val(TextBox1.Text)
End Sub
3. Potom zadejte hodnoty do Textbox1 a Textbox2 a stiskněte F5 nebo Běh tlačítko k provedení kódu, vypočítaný výsledek se okamžitě zobrazí v Textbox3, viz screenshot:
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
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!