Як перенести дані користувача на робочий аркуш

Відеоролик: Как установить программу учёта Торгсофт

Зміст

Інструкції
Як перенести дані з UserForm на аркуш
Як
Повідомлення
Що вам потрібно

UserForms, також звані "діалоговими вікнами", є графічними вікнами, які дозволяють користувачам заповнювати інформацію в полях і вставляти такі дані в електронні таблиці Excel. UserForm вбудовується в Excel і запускається, коли ви відкриваєте файл Excel, зазвичай через макрос. Оскільки UserForms користуються перевагами мови Visual Basic, їх можна налаштувати, щоб переконати, що дані, введені в їх полях, є повними і дійсними, перш ніж передати їх до електронної таблиці Excel.

Інструкції

Excel UserForms є відмінним способом забезпечення правильного і чистого введення даних (зображення двійкових даних за rgbspace від Fotolia.com)

Як перенести дані з UserForm на аркуш

Відкрийте Excel і створіть новий лист, натиснувши на пункт "Файл" і вибравши "Новий". Збережіть файл як "updated_sheet.xls".
Тримайте аркуш відкритим і запускайте редактор Visual Basic, натиснувши "Alt" + "F11". Створіть нову UserForm, клацнувши меню "Insert" і вибравши "UserForm". Назвіть UserForm для "transferForm", змінивши атрибут "Name" у меню властивостей. Змініть атрибут "Caption" на "transferForm".
Додайте до форми текстове поле, вибравши його в панелі інструментів, перетягнувши його та скинувши його на форму. Назвіть текстове поле як "transferInput" у вікні властивостей. Якщо панель інструментів не відкрита, перейдіть до "Перегляд" і "Панель інструментів".
Додайте кнопку оновлення до форми. Виберіть "Командну кнопку" з панелі інструментів, перетягніть її і скиньте на форму. Назвіть командну кнопку для "transferButton" у вікні властивостей і змініть атрибут "Caption" на "Refresh Sheet".
Додайте кнопку, щоб закрити форму. Виберіть другу "Командну кнопку" з панелі інструментів, перетягніть її і скиньте на форму. Назвіть командну кнопку як "closeButton" у вікні властивостей і змініть атрибут "Caption" на "Close Form".
Відкрийте редактор Visual Basic, двічі натиснувши кнопку "transferButton". Введіть наступний код у функцію "transferButton_click ()", яка передає будь-яку заповнену інформацію в текстовому полі на робочий аркуш "worksheet_dual.xls", коли користувач натискає кнопку. Закрийте редактор коду.

Приватний Sub transferButton_Click () Розмістити перерву робочого столу як аркуш Set transferWorksheet = Робочі листи ("Sheet1") transferWorksheet.Cells (1,1) .Value = Me.transferInput.Value End Sub
Повторно відкрийте редактор коду Visual Basic, двічі натиснувши кнопку "closeButton". Вставте наступний код у функцію "closeButton_Click ()", яка закриє форму, коли користувач натискає кнопку. Закрийте редактор коду.

Приватний суб-закриттяButton_Click () Вивантаження кінця Sub Sub
Запустіть код форми, натиснувши кнопку "Виконати", а потім "Виконати Sub / UserForm". Заповніть текстове поле та натисніть кнопку "Передача кнопки". Переконайтеся, що дані були правильно передані до першої комірки робочого аркуша. Збережіть і закрийте UserForm.
Використовуйте процедуру події Excel, щоб відкрити групу користувачів, коли користувач відкриває робочий аркуш. Відкрийте "Project Explorer" і двічі клацніть вікно коду "ThisWorkbook". Вставте макрос нижче, який відкриє форму, коли відкриється робочий лист. Зберегти та закрити Visual Basic.

Приватний Sub Workbook_Open () transferForm.Show End Sub
Повторно відкрийте файл "updated_sheet.xls". Форма відкриється. Введіть текст у полі та натисніть кнопку "Передача кнопки". Текст, який ви заповните у формі, буде перенесено до першої комірки робочого аркуша.

Як

Щоб відкрити вікно Властивості або Провідник проекту, виберіть пункти меню "Перегляд" у редакторі Visual Basic.
Щоб змінити розмір елементів керування, доданих до форми, використовуйте маленькі квадрати, які з'являються при виборі елемента керування.
Спробуйте додати деяку перевірку до форми, щоб запобігти введенню недійсних даних користувачами.