При выведении данных из формы раскидывает их на 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 **[ТС]**

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

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

Новые блоги и статьи Все статьи Все блоги /
[golang] Конкурентный fetcher с ограничением максимального количества одновременных HTTP запросов. alhaos 10.06.2026 Задача Реализовать конкурентный fetcher с ограничением максимального количества одновременных HTTP запросов. Сигнатура func Fetch(urls string, maxConcurrent int) Result Пример urls :=. . .	[golang] Состояние гонки (race condition) alhaos 10.06.2026 Состояние гонки (race condition) Состояние гонки (Race Condition) — это ошибка, возникающая при одновременном доступе нескольких горутин к одним и тем же данным без должной синхронизации. При этом. . .	Взрослые отношения, и почему они не получаются kumehtar 09.06.2026 Когда в детстве ребёнок не получает от родителей чего-то важного, он лишается не просто приятных переживаний, а основы для формирования определённых внутренних качеств и навыков. Если ребёнок не. . .	[golang] Worker Pool alhaos 09.06.2026 Worker Pool Worker Pool — паттерн конкурентной обработки задач в Go. Суть: фиксированное количество горутин-воркеров читают задачи из общего канала и пишут результаты в общий канал результатов. . . .
[golang] Pipeline alhaos 08.06.2026 Pipeline Pipeline — паттерн конкурентной обработки данных в Go. Суть: данные проходят через цепочку независимых стадий, каждая из которых работает в своей горутине и общается с соседями через. . .	Свет внутри себя kumehtar 07.06.2026 Пусть это будет здесь lIs4oanZS9Y	Программа для com-порта Uhbif79 05.06.2026 Всем привет, давно хотел изучить Qt, начинал, бросал, потом снова начинал. И сейчас вот смог написать свою первую программу. До этого имел опыт программирования микроконтроллеров, писал прошивки на. . .	Транскрипция 55-минутного видео через Whisper: WhisperDesktop облажался, спас Google Colab[ anaschu 01.06.2026 Понадобилось получить текст из свежезагруженного видео на YouTube. Казалось бы, задача на пять минут. Заняла полтора часа. Делюсь опытом — может кому пригодится последовательность решений. . . .

@Карян 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 ячеек

Решение