Как да сумирам стойности от текстови полета?
Да предположим, че имате три текстови полета, в които искате да сумирате стойностите в Textbox1 и Textbox2 и да изчислите резултата автоматично в Textbox3, както е показано на следната екранна снимка. Как бихте могли да се справите с тази работа в Excel?
Обобщаване на стойности от текстови полета с VBA код
Обобщаване на стойности от текстови полета с VBA код
За да сумирате стойности от две текстови полета и да получите резултата в третото текстово поле, следният VBA код може да ви помогне.
1. Първо, трябва да вмъкнете три текстови полета, щракнете Софтуерен Инженер > Поставете > Текстово поле (ActiveX Control)и след това нарисувайте текстово поле и направете две копия, вижте екранната снимка:
2. След като вмъкнете текстовите полета, щракнете с десния бутон върху раздела на листа, който съдържа текстовите полета, които искате да използвате, и щракнете Преглед на кода от контекстното меню, за да отворите Microsoft Visual Basic за приложения прозорец и след това копирайте и поставете следния VBA код в празния модул:
VBA код: Обобщете стойностите от текстовите полета:
Private Sub Sum_Click()
TextBox3.Text = Val(TextBox2.Text) + Val(TextBox1.Text)
End Sub
3. След това въведете стойностите в Textbox1 и Textbox2 и след това натиснете F5 или бягане бутон за изпълнение на кода, изчисленият резултат се показва незабавно в Textbox3, вижте екранната снимка:
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!