Как да прехвърляте данните за потребителски формуляри на работен лист

Съдържание

инструкции
Как да прехвърляте данни от потребителски формуляр към работен лист
съвети
предупредителен
Какво ви трябва

UserForms, наричани още "диалогови прозорци", са графични прозорци, които позволяват на потребителите да попълват информация в полетата и да вмъкват такива данни в електронните таблици на Excel. UserForm е вграден в Excel и се изпълнява, когато отворите Excel файл, обикновено чрез макрос. Тъй като UserForms се възползва от езика на Visual Basic, те могат да бъдат персонализирани, за да гарантират, че данните, въведени в техните полета, са пълни и валидни, преди да ги прехвърлите в електронна таблица на Excel.

инструкции

Excel UserForms са отличен начин да осигурите валидно и чисто въвеждане на данни (изображение на двоични данни от rgbspace от Fotolia.com)

Как да прехвърляте данни от потребителски формуляр към работен лист

Отворете Excel и създайте нов лист, като кликнете върху елемента "Файл" и изберете "Ново". Запазете файла като "updated_sheet.xls".
Дръжте работния лист отворен и стартирайте Visual Basic Editor, като натиснете "Alt" + "F11". Създайте нова потребителска форма, като щракнете върху менюто "Insert" и изберете "UserForm". Назовете UserForm за "transferForm", като промените атрибута "Name" в менюто със свойства. Променете атрибута "Надпис" в "transferForm".
Добавете текстово поле към формуляра, като го изберете в кутията с инструменти, като го плъзнете и го пуснете във формуляра. Назовете текстовото поле като "transferInput" в прозореца със свойства. Ако кутията с инструменти не е отворена, преминете към „Преглед“ и „Кутия с инструменти“.
Добавете бутон за актуализация във формуляра. Изберете "Команден бутон" от кутията с инструменти, плъзнете го и го пуснете във формуляра. Назовете командния бутон за „transferButton“ в прозореца със свойства и променете атрибута „Caption“ („Надпис“) на „Refresh Sheet“.
Добавете бутон, за да затворите формуляра. Изберете втората "Command Button" от кутията с инструменти, плъзнете я и я пуснете във формуляра. Назовете командния бутон като "closeButton" в прозореца със свойства и променете атрибута "Caption" на "Close Form".
Отворете редактора на Visual Basic, като щракнете двукратно върху бутона "transferButton". Въведете следния код в функцията "transferButton_click ()", която ще прехвърли пълната информация в текстовото поле на работния лист "worksheet_dual.xls", когато потребителят кликне върху бутона. Затворете редактора на код.

Private Sub transferButton_Click () Прехвърляне на текстWorksheet като Работен лист ПрехвърлянеWorksheet = Работни листове ("Sheet1") transferWorksheet.Cells (1,1) .Value = Me.transferInput.Value End Sub
Отворете отново редактора на код Visual Basic, като щракнете двукратно върху бутона "closeButton". Вмъкнете следния код в функцията "closeButton_Click ()", която ще затвори формата, когато потребителят кликне върху бутона. Затворете редактора на код.

Частно под затварянеButton_Click () Разтоварване на крайния под
Стартирайте кода на формуляра, като щракнете върху "Изпълни" и след това "Изпълни под / Потребителска форма". Попълнете текстовото поле и кликнете върху бутона "трансфер". Проверете дали данните са прехвърлени правилно към първата клетка в работния лист. Запазете и затворете потребителската форма.
Използвайте Excel събитие, за да отворите потребителската форма, когато потребителят отвори работния лист. Отворете "Project Explorer" и щракнете двукратно върху прозореца с код "ThisWorkbook". Вмъкнете макроса по-долу, който ще отвори формуляра, когато работният лист се отвори. Запазете и затворете Visual Basic.

Частно Sub Workbook_Open () transferForm.Show End Sub
Отворете отново файла "updated_sheet.xls". Формулярът ще се отвори. Въведете текст в полето и кликнете върху бутона „TransferButton“. Текстът, който попълвате във формуляра, ще бъде прехвърлен в първата клетка на работния лист.

съвети

За да отворите прозореца Свойства или Project Explorer, изберете елементите от менюто "Преглед" в редактора на Visual Basic.
За да промените размера на контролите, добавени във формуляра, използвайте малките квадратчета, които се появяват, когато е избран контролът.
Опитайте да добавите валидация към формуляра, за да попречите на потребителите да въвеждат невалидни данни.

предупредителен

Макросите няма да се изпълняват във всички версии на Excel.
Някои настройки за сигурност на Excel няма да позволят изпълнението на макросите.
Поддръжката за редактора на Visual Basic бе премахната в Excel 2008 за Mac.