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

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

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

Новые блоги и статьи Все статьи Все блоги /
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .
Как ИИ начал спорить и врать (возможно почуяв опасность для себя от индустрии - уход от электроники). Hrethgir 04.08.2026 Недельный диалог, на фоне событий с НПЗ. Да, из спирта можно получать бензин, и это не сложно. Но потом в схеме я решил избавиться от насоса, при этом полностью сделав контроль подачи спирта в. . .	Термопринтер QR701 Argus19 03.08.2026 Термопринтер QR701 Купил два термопринтера QR701. На сэлф-тесте написано: Language: PC936 (GB18030). Что означает, что принтеры могут печатать только латиницу и китайские иероглифы. Так же. . .	Создание формы заимствованного документа Maks 03.08.2026 Задача: Необходимо создать собственную форму заимствованного документа. На форме должен быть реквизит "Покупатель", а также табличная часть со следующими реквизитами: - Расчетный счет покупателя. . .	Задача предоставления скидок покупателям Maks 03.08.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 ячеек

Решение