При выведении данных из формы раскидывает их на 100 ячеек

@Hesso · Регистрация: 12.05.2020

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

При выведении данных программа множит их в 100 ячеек, вместо того, чтобы красиво записать в одну.
Мб это из-за For I = 1 To 100
Буду благодарна любой помощи)

Многострадальную программу прилагаю:

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
Private Sub CommandButton1_Click()
Dim Форма As Object
Dim I As Integer
Set Форма = Sheets("Форма")
If TextBox2 = "" Then
MsgBox ("Пожалуйста, введите ФИО студента")
TextBox2.SetFocus
Exit Sub
End If
If TextBox3 = "" Then
MsgBox ("Пожалуйста, введите адрес студента")
TextBox3.SetFocus
Exit Sub
End If
If TextBox4 = "" Then
MsgBox ("Пожалуйста, введите средний балл при поступлении")
TextBox4.SetFocus
Exit Sub
End If
If TextBox5 = "" Then
MsgBox ("Пожалуйста, введите год рождения студента")
TextBox5.SetFocus
Exit Sub
End If
Worksheets("Форма").Activate
For I = 1 To 100
If Форма.Cells(I, 1) = "" Then
Форма.Cells(I, 1) = TextBox1.Value
Форма.Cells(I, 2) = TextBox2.Value
Форма.Cells(I, 3) = TextBox3.Value
Форма.Cells(I, 4) = TextBox4.Value
Форма.Cells(I, 5) = TextBox5.Value
End If
Next
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
Unload Me
End Sub

@Hesso · 17.05.2020, 15:31 **[ТС]**

Пишу такую программу впервые.
В Excel в разработчике Visual basic.
Вот этот код прекрасно работает, не могу понять в чем отличие первого от второго(

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
Private Sub CommandButton1_Click()
Dim Форма As Object
Dim I As Integer
Set Форма = Sheets("Форма")
If TextBox2 = "" Then
MsgBox ("Пожалуйста, введите ФИО студента")
TextBox2.SetFocus
Exit Sub
End If
If TextBox3 = "" Then
MsgBox ("Пожалуйста, введите название факультета")
TextBox3.SetFocus
Exit Sub
End If
Worksheets("Форма").Activate
For I = 1 To 100
If Форма.Cells(I, 1) = "" Then
Форма.Cells(I, 1) = TextBox1.Value
Форма.Cells(I, 2) = TextBox2.Value
Форма.Cells(I, 3) = TextBox3.Value
If OptionButton1 = True Then
Форма.Cells(I, 4) = "Очная"
ElseIf OptionButton2 = True Then
Форма.Cells(I, 4) = "Вечерняя"
ElseIf OptionButton3 = True Then
Форма.Cells(I, 4) = "Заочная"
End If
Форма.Cells(I, 5) = ComboBox1.Value
If CheckBox1.Value = True Then Форма.Cells(I, 6) = ComboBox2.Value
 
Exit For
End If
Next
CheckBox1.Value = False
TextBox2 = ""
TextBox3 = ""
Unload Me
End Sub

@Карян · 17.05.2020, 23:15

Вот рабочий код, проверенный.
На рабочем листе Excel, в ячейке(1,6) записываем цифру 1. Это необходимо чтобы при заполнении таблицы поле закрытия макроса и его повторного открытия программа продолжила заполнение таблицы, в противном случае после повторного запуска макроса таблица начнется заполнятся с первой строки, удаляя старые записи.

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
Dim rownumber As Integer
 Private Sub UserForm_Activate()
TextBox1 = Format(Now, "dd/mm/yy")
rownumber = Cells(1, 6)
End Sub
Private Sub CommandButton1_Click()
If TextBox2 = "" Then
MsgBox ("Пожалуйста, введите ФИО студента")
TextBox2.SetFocus
Exit Sub
End If
If TextBox3 = "" Then
MsgBox ("Пожалуйста, введите адрес студента")
TextBox3.SetFocus
Exit Sub
End If
If TextBox4 = "" Then
MsgBox ("Пожалуйста, введите средний балл при поступлении")
TextBox4.SetFocus
Exit Sub
End If
If TextBox5 = "" Then
MsgBox ("Пожалуйста, введите год рождения студента")
TextBox5.SetFocus
Exit Sub
End If
 
Cells(rownumber, 1) = TextBox1.Value
Cells(rownumber, 2) = TextBox2.Value
Cells(rownumber, 3) = TextBox3.Value
Cells(rownumber, 4) = TextBox4.Value
Cells(rownumber, 5) = TextBox5.Value
rownumber = rownumber + 1
Cells(1, 6) = rownumber
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
 
End Sub

@Hesso · 18.05.2020, 16:48 **[ТС]**

Карян, спасибо огромное!
Но все же разрешите мне еще немного вас помучить.

У меня есть два листа: на одном сама кнопка, на втором список, который должен заполняться. Лист со списком называется form. Я пыталась связать их вот так.

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
Private Sub CommandButton1_Click()
Dim form As Object
Set form = Sheets("form")
If TextBox2 = "" Then
MsgBox ("Пожалуйста, введите ФИО студента")
TextBox2.SetFocus
Exit Sub
End If
If TextBox3 = "" Then
MsgBox ("Пожалуйста, введите адрес студента")
TextBox3.SetFocus
Exit Sub
End If
If TextBox4 = "" Then
MsgBox ("Пожалуйста, введите средний балл при поступлении")
TextBox4.SetFocus
Exit Sub
End If
If TextBox5 = "" Then
MsgBox ("Пожалуйста, введите год рождения студента")
TextBox5.SetFocus
Exit Sub
End If
Worksheets("form").Activate
Cells(rownumber, 1) = TextBox1.Value
Cells(rownumber, 2) = TextBox2.Value
Cells(rownumber, 3) = TextBox3.Value
Cells(rownumber, 4) = TextBox4.Value
Cells(rownumber, 5) = TextBox5.Value
rownumber = rownumber + 1
Cells(2, 7) = rownumber
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
 
End Sub

Программа работает, но только в случае ее запуска из Visual Basic с помощью клавиши f5.
При запуске с помощью кнопки выдает ошибку 1004(((
Что делать?

@Карян · 18.05.2020, 19:24

Прикрепите сам файл Excel, тогда можно будет отследить и исправить ошибку.

@Hesso · 18.05.2020, 20:27 **[ТС]**

Загрузить просто как файл не дали, так как он с поддержкой макросов. Поэтому только так, к сожалению

@Hesso · 18.05.2020, 20:28 **[ТС]**

Прикрепить просто, как файл, не дали, так как он поддерживает макросы, а это формат xlsm...
Поэтому только так, к сожалению

@Карян · 18.05.2020, 21:08

Вы не там указываете команду

Visual Basic
1
Worksheets("form").Activate

Она у вас указана в процедуре кнопки сохранить, ее оттуда надо удалить. И вставить в процедуру обработки кнопки ведомость работ (кнопка расположена на лист 1)

@Hesso · 18.05.2020, 21:42 **[ТС]**

Не понимаю...
Вставить в Private Sub UserForm_Activate()?
Оно так не работает у меня(((

@Карян · 18.05.2020, 22:00

На листе 1, у вас есть кнопка Ведомость работ, которая открывает (загружает) форму заполнения. В процедуру этой кнопки необходимо добавить следующий код:

Visual Basic
1
Worksheets("form").Activate

Чтобы внести изменения в код обработки этой кнопки вам необходимо щелкнуть правой кнопкой мыши по кнопке, в контекстном меню выбрать назначить макрос. В появившемся окне выбрать Загрузка_формы и нажать кнопку правка, после чего в нести вышеуказанный код в процедуру нажатия кнопки.

@Карян · 18.05.2020, 22:03

Важно не забыть удалить:

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
Private Sub CommandButton1_Click()
Dim form As Object
Set form = Sheets("form")
If TextBox2 = "" Then
MsgBox ("Пожалуйста, введите ФИО студента")
TextBox2.SetFocus
Exit Sub
End If
If TextBox3 = "" Then
MsgBox ("Пожалуйста, введите адрес студента")
TextBox3.SetFocus
Exit Sub
End If
If TextBox4 = "" Then
MsgBox ("Пожалуйста, введите средний балл при поступлении")
TextBox4.SetFocus
Exit Sub
End If
If TextBox5 = "" Then
MsgBox ("Пожалуйста, введите год рождения студента")
TextBox5.SetFocus
Exit Sub
End If
Worksheets("form").Activate ' Необходимо удалить эту строчку кода
Cells(rownumber, 1) = TextBox1.Value
Cells(rownumber, 2) = TextBox2.Value
Cells(rownumber, 3) = TextBox3.Value
Cells(rownumber, 4) = TextBox4.Value
Cells(rownumber, 5) = TextBox5.Value
rownumber = rownumber + 1
Cells(2, 7) = rownumber
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
 
End Sub

@Hesso · 18.05.2020, 22:18 **[ТС]**

Все получилось! Я счастлива

Спасибо огромное, Карян!
Моя искренняя благодарность за терпение и последовательное объяснение моих косяков)

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит переходные токи и напряжения на элементах схемы. . . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .

@Карян 92 / 58 / 21 Регистрация: 09.05.2019 Сообщений: 184
	18.05.2020, 19:24
	Прикрепите сам файл Excel, тогда можно будет отследить и исправить ошибку. 0

@Hesso 0 / 0 / 0 Регистрация: 12.05.2020 Сообщений: 16
	18.05.2020, 20:28 [ТС]
	Прикрепить просто, как файл, не дали, так как он поддерживает макросы, а это формат xlsm... Поэтому только так, к сожалению 0

@Hesso 0 / 0 / 0 Регистрация: 12.05.2020 Сообщений: 16
	18.05.2020, 21:42 [ТС]
	Не понимаю... Вставить в Private Sub UserForm_Activate()? Оно так не работает у меня((( 0

@Hesso 0 / 0 / 0 Регистрация: 12.05.2020 Сообщений: 16
	18.05.2020, 22:18 [ТС]
	Все получилось! Я счастлива Спасибо огромное, Карян! Моя искренняя благодарность за терпение и последовательное объяснение моих косяков) 0

При выведении данных из формы раскидывает их на 100 ячеек

Решение