Jak podsumować wartości z pól tekstowych?
Przypuśćmy, że masz trzy pola tekstowe, które chcesz zsumować wartości w Textbox1 i Textbox2 i obliczyć wynik automatycznie w Textbox3, jak pokazano na poniższym zrzucie ekranu. Jak mógłbyś sobie poradzić z tą pracą w Excelu?
Zsumuj wartości z pól tekstowych za pomocą kodu VBA
Zsumuj wartości z pól tekstowych za pomocą kodu VBA
Aby podsumować wartości z dwóch pól tekstowych i przenieść wynik do trzeciego pola tekstowego, może Ci pomóc poniższy kod VBA.
1. Najpierw wstaw trzy pola tekstowe, kliknij Deweloper > wstawka > Pole tekstowe (formant ActiveX), a następnie narysuj pole tekstowe i zrób dwie kopie, zobacz zrzut ekranu:
2. Po wstawieniu pól tekstowych kliknij prawym przyciskiem myszy kartę arkusza zawierającą pola tekstowe, których chcesz użyć, i kliknij Wyświetl kod z menu kontekstowego, aby otworzyć plik Microsoft Visual Basic for Applications okno, a następnie skopiuj i wklej następujący kod VBA do pustego modułu:
Kod VBA: Zsumuj wartości z pól tekstowych:
Private Sub Sum_Click()
TextBox3.Text = Val(TextBox2.Text) + Val(TextBox1.Text)
End Sub
3. Następnie wpisz wartości w Textbox1 i Textbox2, a następnie naciśnij F5 klucz lub run przycisk do wykonania kodu, obliczony wynik jest natychmiast wyświetlany w Textbox3, patrz zrzut ekranu:
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!