Создание useform для заполнение анкеты

@Denis896 · Регистрация: 13.12.2017

Студворк — интернет-сервис помощи студентам

Здравствуйте, хочу сделать подобную анкету.

Как сделать так чтобы ячейка, где должна быть записана фамилия менялась на A3,A4,A5 и т.д, при заполнении анкеты след. человека?
Например:

Visual Basic
1
2
3
4
Private Sub TextBox1_Change()
Range("A1") = "Фамилия"
Range("A2") = TextBox1.Value
End Sub

@ji2n · 28.05.2018, 20:27

Visual Basic
1
2
3
4
5
Private Sub TextBox1_Change()
Dim S As Long
S = Cells.SpecialCells(xlCellTypeLastCell).row + 1
Cells(S, 1) = TextBox1.Value
End Sub

Подойдёт?

Только TextBox1_Change не лучшее место

@Denis896 · 28.05.2018, 20:34 **[ТС]**

ji2n, Ячейка меняется после каждого символа.

@ji2n · 28.05.2018, 20:39

Сообщение от Denis896

Ячейка меняется после каждого символа

TextBox1_Change так и работает

, код следует поместить в обработчик событий кнопочки ( CommandButton1_Click() например)

@Denis896 · 28.05.2018, 20:41 **[ТС]**

На примере же textbox используется

@ji2n · 28.05.2018, 22:39

Сообщение от Denis896

Например:

"Например" подразумевает варианты, я Вам дал.
Если непременно надо в TextBox1_Change уставите какой-нибудь флаг регулирующий позицию.

Добавлено через 1 час 42 минуты
Вот для примера:

Visual Basic
1
2
3
4
5
6
7
Private Sub TextBox1_Change()
Dim S As Long
Static bFlag As Boolean
S = Cells.SpecialCells(xlCellTypeLastCell).row + bFlag + 1
Cells(S, 1) = TextBox1.Value
bFlag = True ' Поднять флаг!
End Sub

Только флагом bFlag нужно управлять вне процедуры (объявлять на уровне модуля), иначе как добавить больше 1 новой записи без выхода из макроса?

@Denis896 · 28.05.2018, 22:48 **[ТС]**

@ji2n то есть в остальных textbox значения повторяться будут?

@ji2n · 28.05.2018, 23:14

Сообщение от Denis896

то есть в остальных textbox значения повторяться будут?

нет.

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub TextBox1_Change()
Dim S As Long
S = Cells.SpecialCells(xlCellTypeLastCell).row + 1
Cells(S, 1) = TextBox1.Value
End Sub
 
Private Sub TextBox2_Change()
Dim S As Long
S = Cells.SpecialCells(xlCellTypeLastCell).row + 1
Cells(S, 2) = TextBox2.Value
End Sub
 
Private Sub TextBox3_Change()
Dim S As Long
S = Cells.SpecialCells(xlCellTypeLastCell).row + 1
Cells(S, 3) = TextBox3.Value
End Sub

Если будет так.

Добавлено через 4 минуты
Весь код Вы не дали, а зря. Вам бы тут помогли его оптимизировать и дали кучу полезных советов.

Добавлено через 17 минут
Т.е вот так, сорри, поспешил:

Кликните здесь для просмотра всего текста

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub TextBox1_Change()
Dim S As Long
Static bFlag As Boolean
S = Cells.SpecialCells(xlCellTypeLastCell).row + 1+ bFlag
Cells(S, 1) = TextBox1.Value
bFlag = True ' Поднять флаг!
End Sub
 
Private Sub TextBox2_Change()
Dim S As Long
Static bFlag As Boolean
S = Cells.SpecialCells(xlCellTypeLastCell).row + 1+ bFlag
Cells(S, 2) = TextBox2.Value
bFlag = True ' Поднять флаг!
End Sub
 
Private Sub TextBox3_Change()
Dim S As Long
Static bFlag As Boolean
S = Cells.SpecialCells(xlCellTypeLastCell).row + 1+ bFlag
Cells(S, 3) = TextBox3.Value
bFlag = True ' Поднять флаг!
End Sub

@Denis896 · 29.05.2018, 11:27 **[ТС]**

ji2n, Почему когда я запускаю программу то combobox нет item которые я добавил?

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
Option Explicit
 
Private Sub CommandButton2_Click()
Dim s As Long
 
Range("F1") = "Дети"
If CheckBox1.Value = True Then
s = Cells.SpecialCells(xlCellTypeLastCell).Row
Cells(s, 6) = "Есть"
End If
If CheckBox1.Value = False Then
s = Cells.SpecialCells(xlCellTypeLastCell).Row
Cells(s, 6) = "Нет"
End If
Range("G1") = "Образование"
ComboBox1.AddItem "Медицинское"
ComboBox1.AddItem "Филилогическое"
ComboBox1.AddItem "Экономическое"
ComboBox1.AddItem "Техническое"
ComboBox1.AddItem "Юридическое"
End
End Sub
 
Private Sub OptionButton1_Click()
Dim s As Long
s = Cells.SpecialCells(xlCellTypeLastCell).Row
Range("D1") = "Пол"
Cells(s, 4) = "Мужской"
End Sub
 
Private Sub OptionButton2_Click()
Dim s As Long
s = Cells.SpecialCells(xlCellTypeLastCell).Row
Range("D1") = "Пол"
Cells(s, 4) = "Женский"
End Sub
 
Private Sub TextBox1_Change()
Dim s As Long
Range("A1") = "Фамилия"
Static bFlag As Boolean
s = Cells.SpecialCells(xlCellTypeLastCell).Row + 1 + bFlag
Cells(s, 1) = TextBox1.Value
bFlag = True
End Sub
 
Private Sub TextBox2_Change()
Dim s As Long
Range("B1") = "Имя"
s = Cells.SpecialCells(xlCellTypeLastCell).Row
Cells(s, 2) = TextBox2.Value
End Sub
 
Private Sub TextBox3_Change()
Dim s As Long
Range("C1") = "Отчество"
s = Cells.SpecialCells(xlCellTypeLastCell).Row
Cells(s, 3) = TextBox3.Value
End Sub
 
Private Sub TextBox4_Change()
Dim s As Long
Range("E1") = "Дата рожд."
s = Cells.SpecialCells(xlCellTypeLastCell).Row
Cells(s, 5) = TextBox4.Value
End Sub

@ji2n · 29.05.2018, 21:10

Тут есть над чем поработать.

Сообщение от Denis896

combobox нет item которые я добавил

У Вас после заполнения КомбоБокса идёт End строка 21, то бишь останов программы, а нужно сначала куда значение передать из него, вроде: Cells(s, 8) = ComboBox1.Text
И над кодом в целом , в принципе, нужно тоже поработать.
Я сразу предложу по модификации кода следующие:
1) Создать заголовки столбцов (ФИО, пол, д.р. ипт)
2) Комбо и подобные разовые операции, пред установки заполнить заранее
Например, поместить их в обработчик событий формы: Private Sub UserForm_Activate()

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .

@Denis896 0 / 0 / 0 Регистрация: 13.12.2017 Сообщений: 34
	28.05.2018, 20:34 [ТС]
	ji2n, Ячейка меняется после каждого символа. 0

@Denis896 0 / 0 / 0 Регистрация: 13.12.2017 Сообщений: 34
	28.05.2018, 20:41 [ТС]
	На примере же textbox используется 0

@Denis896 0 / 0 / 0 Регистрация: 13.12.2017 Сообщений: 34
	28.05.2018, 22:48 [ТС]
	@ji2n то есть в остальных textbox значения повторяться будут? 0