Как да заснемете данни от потребителски форми в работен лист на Excel

С Excel можете да използвате Visual Basic, за да добавите набор от различни функции към електронните си таблици, включително "UserForms". Чрез UserForms можете да показвате формуляр за въвеждане на потребителя, който е отделен от основния работен лист, което е полезно за улавяне на данни от лица, които може да не са запознати с електронни таблици. С малко код Visual Basic, можете да добавите всички тези данни към електронната си таблица в нови редове.

Определете вашите полета
Стартирайте Excel. Въведете имената на всички полета, които искате да заснемете в най-горния ред, започвайки от „A1“ и работейки вдясно. Щракнете върху „Разработчик“, след което щракнете върху „Visual Basic“. Ще се появи прозорецът Visual Basic. Кликнете върху иконата „А“ от Кутията с инструменти, след което щракнете и плъзнете в прозореца „Потребителска форма1“ на мястото, където искате да отиде първото поле за формуляр. Редактирайте етикета, като промените свойството „Caption“ в нещо по-описателно, като например „First Name“, например Създайте етикет за всяко от полетата, които сте въвели в работния си лист.

Добавете текстовите си полета < Изберете иконата "Текстова кутия" от кутията с инструменти и издърпайте текстовото поле отдясно на първия ви етикет. Ако използвате само няколко полета, е приемливо да напуснете имота "(Име)" Въпреки това, ако имате нужда от голям брой полета, това може да стане объркващо, така че трябва да ги редактирате, за да съответстват на вече създадените етикети. Уверете се, че всеки етикет има съответно текстово поле. h3> Добавяне на бутон за подаване
Кликнете върху иконата "Команден бутон" в кутията с инструменти, която прилича на стандартен бутон в стила на Windows.Кликнете и я плъзнете до размера и местоположението, които се изискват в UserForm1. това по-долу или близо до крайното текстово поле във формуляра. Променете свойствата на бутона „Caption“ в „Submit Data Или нещо подобно, показвайки на потребителя, че трябва да кликнат върху този бутон, за да изпратят данните си.

Добавяне на код Visual Basic
Кликнете два пъти върху бутона. Въведете следния код между „частен под” и „краен под”: eRow = Sheet1.Cells (Rows.Count, 1) .End (xlUp) .Offset (1,0) .Row След това започнете нов ред под този след това въведете следното: Cells (erow, 1) = TextBox1.Text Ако преименувате текстовите полета, променете "TextBox1" на името, което сте дали първото текстово поле. Направете това за всяко поле за въвеждане, което сте създали, започнете нов ред и въведете правилните имена на текстови полета, както е уместно. Също така, за всяка нова линия, увеличете цифрата в скобите с една. Например, следващият ред може да изглежда така: Клетки (erow, 2) = TextBox2.Text Щракнете върху бутона "Play" в горната част на прозореца, за да започнете да заснемате данни.

URL:https://bg.whycomputer.com/soft/100211705.html