Автозаполнение номера по последней строке

@DaK1978 · Регистрация: 23.04.2019

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

Здравствуйте, подскажите пожулуйста как в форме изменить код, чтоб при заполнении номер заполнялся автоматически, даже если там уже стоит номер к примеру 559, то следующий был 560, как это можно осуществить?
Сам код 1 формы и 2 формы:

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
67
68
69
70
71
72
73
74
75
76
77
78
79
Private Sub CommandButton2_Click()
Set sht = Sheets("1")
N = sht.Range("A1").CurrentRegion.Rows.Count
sht.Cells(N + 1, 1).Value = TextBox1.Text
sht.Cells(N + 1, 2).Value = TextBox8.Text
sht.Cells(N + 1, 3).Value = TextBox9.Text
sht.Cells(N + 1, 4).Value = TextBox10.Text
sht.Cells(N + 1, 5).Value = TextBox7.Text
sht.Cells(N + 1, 6).Value = TextBox6.Text
sht.Cells(N + 1, 7).Value = TextBox20.Text
sht.Cells(N + 1, 8).Value = TextBox19.Text
sht.Cells(N + 1, 9).Value = TextBox17.Text
sht.Cells(N + 1, 10).Value = TextBox18.Text
sht.Cells(N + 1, 11).Value = TextBox16.Text
sht.Cells(N + 1, 12).Value = TextBox15.Text
sht.Cells(N + 1, 13).Value = TextBox14.Text
sht.Cells(N + 1, 14).Value = TextBox13.Text
sht.Cells(N + 1, 15).Value = TextBox12.Text
sht.Cells(N + 1, 16).Value = TextBox11.Text
sht.Cells(N + 1, 17).Value = TextBox25.Text
sht.Cells(N + 1, 18).Value = TextBox24.Text
sht.Cells(N + 1, 19).Value = TextBox23.Text
sht.Cells(N + 1, 20).Value = TextBox22.Text
sht.Cells(N + 1, 21).Value = TextBox21.Text
sht.Cells(N + 1, 22).Value = TextBox38.Text
sht.Cells(N + 1, 23).Value = TextBox37.Text
sht.Cells(N + 1, 24).Value = TextBox36.Text
sht.Cells(N + 1, 25).Value = TextBox35.Text
sht.Cells(N + 1, 26).Value = TextBox34.Text
sht.Cells(N + 1, 27).Value = TextBox33.Text
sht.Cells(N + 1, 28).Value = TextBox32.Text
sht.Cells(N + 1, 29).Value = TextBox31.Text
sht.Cells(N + 1, 30).Value = TextBox30.Text
sht.Cells(N + 1, 31).Value = TextBox29.Text
sht.Cells(N + 1, 32).Value = TextBox28.Text
sht.Cells(N + 1, 33).Value = TextBox27.Text
sht.Cells(N + 1, 34).Value = TextBox26.Text
sht.Cells(N + 1, 35).Value = TextBox40.Text
sht.Cells(N + 1, 36).Value = TextBox41.Text
sht.Cells(N + 1, 37).Value = TextBox39.Text
 
TextBox1.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox7.Text = ""
TextBox6.Text = ""
TextBox20.Text = ""
TextBox19.Text = ""
TextBox17.Text = ""
TextBox18.Text = ""
TextBox16.Text = ""
TextBox15.Text = ""
TextBox14.Text = ""
TextBox13.Text = ""
TextBox12.Text = ""
TextBox11.Text = ""
TextBox25.Text = ""
TextBox24.Text = ""
TextBox23.Text = ""
TextBox22.Text = ""
TextBox21.Text = ""
TextBox38.Text = ""
TextBox37.Text = ""
TextBox36.Text = ""
TextBox35.Text = ""
TextBox34.Text = ""
TextBox33.Text = ""
TextBox32.Text = ""
TextBox30.Text = ""
TextBox29.Text = ""
TextBox28.Text = ""
TextBox27.Text = ""
TextBox26.Text = ""
TextBox40.Text = ""
TextBox41.Text = ""
TextBox39.Text = ""
TextBox31.Text = ""
End Sub

КОД 2 ФОРМЫ:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub CommandButton1_Click()
Set sht = Sheets("Отдел ")
N = sht.Range("A1").CurrentRegion.Rows.Count
sht.Cells(N + 1, 1).Value = TextBox1.Text
sht.Cells(N + 1, 2).Value = TextBox2.Text
sht.Cells(N + 1, 3).Value = TextBox7.Text
sht.Cells(N + 1, 4).Value = TextBox4.Text
sht.Cells(N + 1, 5).Value = TextBox6.Text
sht.Cells(N + 1, 6).Value = TextBox5.Text
sht.Cells(N + 1, 7).Value = TextBox8.Text
TextBox1.Text = ""
TextBox2.Text = ""
TextBox7.Text = ""
TextBox4.Text = ""
TextBox6.Text = ""
TextBox5.Text = ""
TextBox8.Text = ""
End Sub

@Burk · 23.04.2019, 19:28

DaK1978, если номер, который вам нужен, находится в TextBox1, по тексту сообщения это непонятно (в следующий раз пишите конкретнее) и чтобы уменьшить ваш код, то можно так. Только я не увидел ваши тектбоксы в форме

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Private Sub CommandButton2_Click()
Dim Ar, I As Integer
Ar = Array(1, 8, 9, 10, 7) 'продолжить массив номерами по порядку следования текстбоксов
Set sht = Sheets("Образовательные программы")
N = sht.Range("A1").CurrentRegion.Rows.Count
TextBox1 = sht.Cells(N, 1) + 1
For I = 1 To 37
  sht.Cells(N + 1, I) = Me.Controls("TextBox" & Ar(I - 1))
  Me.Controls("TextBox" & Ar(I - 1)) = ""
Next
End Sub

@DaK1978 · 24.04.2019, 09:23 **[ТС]**

Burk, выдает ошибку на

Visual Basic
1
sht.Cells(N + 1, I) = Me.Controls("TextBox" & Ar(I - 1))

@Burk · 24.04.2019, 10:58

DaK1978, у меня же нет вашего файла, я не могу проверить, что вы там сделали. Какую ошибку выдает, какое значение I и N, как вы продолжили список номеров текстбоксов. Проще прислать файл или посмотреть эти параметры самому

@DaK1978 · 24.04.2019, 11:13 **[ТС]**

Burk, файл прилагаю

@Vlad999 · 24.04.2019, 11:29

и что не так? ошибки нет.

@Burk · 24.04.2019, 11:36

DaK1978, вы что-то не врубаетесь, на зачем вы мне прислали свой макрос, ошибка была в моём. Если будете неправильно читать, что вам пишут, то мне невозможно будет с вами работать. Ваши, пока ещё очень неквалифицированные макросы, меня не интересуют, только посмотреть расположение текстбоксов. А это уже есть в первом вашем сообщении.

Добавлено через 2 минуты
Vlad999, возможны всякие варианты от пользователя. НЕ ОБРАТИЛ ВНИМАНИЯ НА КОММЕНТАРИЙ И ОСТАВИЛ ПЯТЬ ЧИСЕЛ, неправильно или не все ввёл числа And So On

@DaK1978 · 24.04.2019, 11:39 **[ТС]**

Burk, вы имеете ввиду, что вставить ваш код?

@Vlad999 · 24.04.2019, 11:43

Burk, цикл до 37 великоват, по моему лучше так UBound(Ar)

@DaK1978 · 24.04.2019, 11:44 **[ТС]**

Burk,

@Vlad999 · 24.04.2019, 11:44

удалил. обратите внимание на 9 пост.

@DaK1978 · 24.04.2019, 11:49 **[ТС]**

так же ошибка на эту строчку

@DaK1978 · 24.04.2019, 11:53 **[ТС]**

Vlad999, а на какое место это вставлять?

@Burk · 24.04.2019, 12:02

Vlad999, ну как я и предполагал, массив как был для примера 5 чисел, так и остался.
DaK1978, 37 это не я выдумал, это по вашему бесподобно раздутому макросу так получается. Но боюсь, чт вы не поймете ничего, переходите на свой макрос только не забудьте TextBox1 = sht.Cells(N, 1) + 1

Добавлено через 5 минут

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

Ar = Array(1, 8, 9, 10, 7) 'продолжить массив номерами по порядку следования текстбоксов

Не обратили внимания?

@Vlad999 · 24.04.2019, 12:16

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

а на какое место это вставлять?

Visual Basic
1
For I = 1 To UBound(Ar)

@DaK1978 · 24.04.2019, 12:19 **[ТС]**

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

1
For I = 1 To UBound(Ar)

Спасибо.

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

переходите на свой макрос только не забудьте TextBox1 = sht.Cells(N, 1) + 1

, попробовала, но он даже не номерует, а можно как то сделать чтоб номер уже был в самой форме ?

@Vlad999 · 24.04.2019, 13:38

добавьте.

Visual Basic
1
2
3
4
Private Sub UserForm_Initialize()
   Me.TextBox1 = Sheets("Ëèñò1").Cells(Rows.Count, 1).End(xlUp).Value + 1
   Me.TextBox8.SetFocus
End Sub

@Burk · 24.04.2019, 13:58

DaK1978, вы хоть в программу свою смотрите? Куда делась строка

Visual Basic
1
2
3
4
5
sht.Cells(N + 1, 1).Value = TextBox1.Text
'раз вы её убрали, новый номер и не занесётся. Если у вас не стоит в программе опция 
Option Base 1
то For I = 1 To UBound(Ar) неправильно, т.к. тогда массив начинается с нуля, тогда надо писать
For I = 1 To UBound(Ar)+1

Вы хотя бы пару строчек в листе полностью ввели. Ну раз вы перешли на свой длинный макрос, то больше мне вам помочь нечем.
а строку TextBox1 = sht.Cells(N, 1) + 1 надо поставить при запуске формы, предварительно определив N

@DaK1978 · 24.04.2019, 16:16 **[ТС]**

Vlad999, добавила. но сам номер в 1 столбце не добавляет, в форме появилась цифра 3,но в самой записи нет, а при следующем вводе цифра 4 не появилась

@unick12345 · 24.04.2019, 16:44

ну во первых вы в первый столбец ничего не записываете

Visual Basic
1
sht.Cells(N + 1, 1).Value = TextBox1.Text

считывать и добавлять не к чему.
а еще, если бы вы номеру textbox присваивали номер ячейки строки, можно было бы все пустить через цикл. и быстрее и код намного меньше

Новые блоги и статьи Все статьи Все блоги /
Access VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .
Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025

@Burk 1847 / 1162 / 354 Регистрация: 11.07.2014 Сообщений: 4,107
	24.04.2019, 10:58
	DaK1978, у меня же нет вашего файла, я не могу проверить, что вы там сделали. Какую ошибку выдает, какое значение I и N, как вы продолжили список номеров текстбоксов. Проще прислать файл или посмотреть эти параметры самому 0

@Vlad999 3946 / 2339 / 790 Регистрация: 02.11.2012 Сообщений: 6,214
	24.04.2019, 11:29
	и что не так? ошибки нет. 0

@Burk 1847 / 1162 / 354 Регистрация: 11.07.2014 Сообщений: 4,107
	24.04.2019, 11:36
	DaK1978, вы что-то не врубаетесь, на зачем вы мне прислали свой макрос, ошибка была в моём. Если будете неправильно читать, что вам пишут, то мне невозможно будет с вами работать. Ваши, пока ещё очень неквалифицированные макросы, меня не интересуют, только посмотреть расположение текстбоксов. А это уже есть в первом вашем сообщении. Добавлено через 2 минуты Vlad999, возможны всякие варианты от пользователя. НЕ ОБРАТИЛ ВНИМАНИЯ НА КОММЕНТАРИЙ И ОСТАВИЛ ПЯТЬ ЧИСЕЛ, неправильно или не все ввёл числа And So On 0

@DaK1978 0 / 0 / 0 Регистрация: 23.04.2019 Сообщений: 41
	24.04.2019, 11:39 [ТС]
	Burk, вы имеете ввиду, что вставить ваш код? 0

@Vlad999 3946 / 2339 / 790 Регистрация: 02.11.2012 Сообщений: 6,214
	24.04.2019, 11:43
	Burk, цикл до 37 великоват, по моему лучше так UBound(Ar) 0

@Vlad999 3946 / 2339 / 790 Регистрация: 02.11.2012 Сообщений: 6,214
	24.04.2019, 11:44
	удалил. обратите внимание на 9 пост. 0

@DaK1978 0 / 0 / 0 Регистрация: 23.04.2019 Сообщений: 41
	24.04.2019, 11:49 [ТС]
	так же ошибка на эту строчку Миниатюры 0

@DaK1978 0 / 0 / 0 Регистрация: 23.04.2019 Сообщений: 41
	24.04.2019, 11:53 [ТС]
	Vlad999, а на какое место это вставлять? 0