Тази статия ще покаже как да използвате текстово поле в Excel VBA.
VBA има способността да създава формуляри, с които потребителят може да взаимодейства, като формуляри за фактури или данни за контакт. Текстовите полета са контроли, които могат да се използват в тези формуляри, или текстовите полета могат да се създават директно в самия Excel.
Създаване на текстови полета във формуляри VBA
За да вмъкнем текстово поле във VBA формуляр, първо трябва да създадем формуляра. Това става в редактора на VBE.
Първо отворете VBE Editor в Excel.
За да вмъкнете нов потребителски формуляр във вашия код, изберете UserForm опция от менюто за вмъкване.
Нов потребителски формуляр ще се появи в Project Explorer и ще бъде показан в прозореца за код вдясно.
Можете да преименувате формуляра си с помощта на Имоти кутия. Това трябва да се появи под вашия Project Explorer.
Ако е видимо, натиснете F4 или щракнете Изглед, Прозорец за свойства.
Щракнете в Име собственост и преименувайте формуляра си.
Вече можем да започнем да попълваме формуляра си с контроли - контролата на текстовото поле е най -популярният контрол заедно с контролата с етикети.
За да попълним формуляра с контроли, трябва да включим инструментариума.
В Меню, изберете Изглед> Кутия с инструменти.
За да създадете текстово поле във формуляра си, изберете контролата Текстово поле в кутията с инструменти.
Плъзнете форма на поле с формуляр с мишката, като задържите левия бутон надолу и след това пуснете бутона на мишката.
Тъй като това е първото текстово поле, което създаваме, то ще бъде наречено TextBox1. Както при формуляра, можете да използвате прозореца Свойства, за да преименувате текстовото поле.
Може да се наложи също да създадете етикет за текстовото си поле във формуляра. Това става с контрол на етикета. Плъзгате формуляра по същия начин, както правите за текстово поле, след което можете да въведете необходимия текст в контролата на етикета, например: Име, както е показано по -долу.
За да използваме формуляра във VBA Code, ще трябва да добавим команден бутон към формуляра. Това става, като изберете контролата на командния бутон в кутията с инструменти и плъзнете бутона във формуляра си.
След това можете да продължите да създавате формуляра си, като използвате текстови полета, етикети и командни бутони, като ги преименувате според случая.
Писане на код зад формулярите
След като създадем нашия формуляр, трябва да напишем VBA код, за да вмъкнем информацията във формуляра си в нашия работен лист на Excel. Този код се нарича CBF (Код зад формулярите).
Във VBE щракнете двукратно върху командния бутон, за да отидете до кода зад бутона.
Ще бъде създадена подпрограма за събитието щракване за бутона. Можем да въведем нашия VBA код в тази рутина. Например:
| 123456 | Частен под cmdOK_Click ()Диапазон ("A1") = Me.txtFirstNameДиапазон ("A2") = Me.txtSurnameОбхват ("A3") = Me.txtCellPhoneРазтоварвай МеEnd Sub |
Тази програма ще постави подробностите, въведени в текстовите полета, в Excel и след това ще затвори формуляра.
Създаване на текстови полета в работен лист на Excel
Възможно е също да създадете текстови полета в електронната таблица на Excel. За да направите това, трябва да включите лентата за програмисти.
Забележка: Ако не виждате лентата за програмисти, ще трябва да я активирате.
В лентата изберете Developer> Insert> ActiveX Controls> TextBox.
Щракнете и плъзнете във вашия работен лист на Excel, за да нарисувате текстовото поле в работния лист на желаната позиция. Отпуснете бутона на мишката, за да завършите изчертаването на текстовото поле.
Текстовото поле ще бъде в режим на проектиране. Докато сме в този режим, можем да оразмеряваме полето и да избираме свойствата на текстовото поле.
Кликнете върху Имоти бутон, за да се покаже прозорецът Свойства за текстовото поле. В този прозорец можем да променим различни свойства на текстовото поле, като например името на полето, цвета на текста, фона или рамката, стила на рамката и шрифта, използван за текста например в текстовото поле.
За да използваме текстовото поле директно в Excel, както го използвахме във формуляра VBA по -горе, се нуждаем от начин да върнем въведените в текстовото поле данни в листа на Excel. Това може да стане чрез добавяне на команден бутон ActiveX към работния лист и с помощта на click_event на този команден бутон, за да се върне информацията в текстовото поле в листа на Excel.
В лентата изберете Developer> Insert> ActiveX Controls> Command Button за да добавите команден бутон към вашия Excel лист. Включете прозореца Свойства и променете името на бутона, надписа на бутона и ускорителя на бутона, както е показано на изображението по -долу.
Щракнете двукратно върху бутона, за да отидете на събитието за кликване на VBA на бутона и въведете следния код:
| 123 | Частен под cmdOK_Click ()Диапазон ("A1") = Me.txtFirstNameEnd Sub |
Върнете се към работния лист на Excel, уверете се, че режимът на проектиране е изключен и след това въведете създаденото текстово поле.
Щракнете върху командния бутон, за да върнете текста в Excel.
