С Excel можете да използвате Visual Basic, за да добавите набор от различни функции към електронните си таблици, включително „UserForms“. Чрез UserForms можете да покажете на потребителя формуляр за въвеждане, който е отделен от основния работен лист, което е полезно за събиране на данни от лица, които може да не са запознати с електронните таблици. С малко код на Visual Basic можете да добавите всички тези данни към електронната си таблица в нови редове.
Определете полетата си
Стартирайте Excel. Въведете имената на всички полета, които искате да заснемете в горния ред, започвайки от „А1“ и работещи вдясно. Щракнете върху „Програмист“ и след това върху „Visual Basic“. Ще се появи прозорецът на Visual Basic. Щракнете върху иконата „A“ от кутията с инструменти и щракнете и плъзнете вътре в прозореца „UserForm1“ на мястото, където искате да премине първото поле на формуляра. Редактирайте етикета, като промените свойството „Caption“ в нещо по-описателно, като например „Име“ например. Създайте етикет за всяко от полетата, които сте въвели в работния си лист.
Добавете текстовите си полета
Изберете иконата „TextBox“ от кутията с инструменти и издърпайте текстово поле точно вдясно от първия си етикет. Ако ще използвате само няколко полета, приемливо е да оставите свойството „(Име)“ като подразбиращо се „TextBox1“. Ако обаче се нуждаете от голям брой полета, това може да стане объркващо, така че трябва да ги редактирате, за да съответстват на етикетите, които вече сте създали. Уверете се, че всеки етикет има съответно текстово поле.
Добавете бутон за изпращане
Щракнете върху иконата „Команден бутон“ в Кутията с инструменти, която изглежда като стандартен бутон в стил Windows. Щракнете и го плъзнете до размера и местоположението, които се изискват в UserForm1. Обикновено ще искате това под или край крайното текстово поле във вашата форма. Променете свойството „Caption“ на бутона на „Submit Data“ или нещо подобно, като посочите на потребителя, че трябва да щракне върху този бутон, за да изпрати своите данни.
Добавете код на Visual Basic
Щракнете двукратно върху бутона. Въведете следния код между „Private Sub“ и „End Sub“:
eRow = Sheet1.Cells (Rows.Count, 1) .End (xlUp) .Offset (1,0) .Row
След това започнете нов ред под този и след това въведете следното:
Клетки (erow, 1) = TextBox1.Text
Ако сте преименували текстовите си полета, променете „TextBox1“ на името, което сте дали на първото текстово поле. Направете това за всяко поле за въвеждане, което сте създали, като започнете нов ред и въведете правилните имена на текстови полета, както е подходящо. Също така, за всеки нов ред, увеличете цифрата в скобите с един. Например следващият ред може да изглежда така:
Клетки (erow, 2) = TextBox2.Text
Щракнете върху бутона „Пусни“ в горната част на прозореца, за да започнете да улавяте данни.
