Форум программистов, компьютерный форум, киберфорум
VBA
Форум программистов и сисадминов Киберфорум > Форум программистов > Basic > VBA
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
2 из 2 « 1 2
 
Рейтинг 4.50/6: Рейтинг темы: голосов - 6, средняя оценка - 4.50
0 / 0 / 0
Регистрация: 23.04.2019
Сообщений: 41

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

23.04.2019, 13:37. Показов 1616. Ответов 24
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Здравствуйте, подскажите пожулуйста как в форме изменить код, чтоб при заполнении номер заполнялся автоматически, даже если там уже стоит номер к примеру 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
Вложения
Тип файла: 7z 1.7z (401.5 Кб, 6 просмотров)
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
 23.04.2019, 13:37
Ответы с готовыми решениями:

Найти номера первой и последней запятой в строке
даны натуральное число n, s1..sn. Известно, что среди s1..sn есть по крайней мере одна запятая. Найти такие натуральные i, что: 1) si -...

Автозаполнение последней записью из таблицы +1
как выводить последнюю запись из id_tab (по порядку это получается 16) добавлять +1 чтобы сделать новую запись и заполнять её в edit6 ...

Найти максимум в первой строке матрице и в последней строке матрицы
Ввести двумерный массив A (NxM) , вывести его. Найти максимум в первой строке матрице и в последней строке матрицы. На большее из этих...

24
3947 / 2340 / 790
Регистрация: 02.11.2012
Сообщений: 6,222
24.04.2019, 17:01
Студворк — интернет-сервис помощи студентам
Цитата Сообщение от DaK1978 Посмотреть сообщение
а при следующем вводе цифра 4 не появилась
после очистки текстбоксов тоже нужно добавить эту строку, если я правильно понял.

Добавлено через 16 минут
замените ваш код этим и проверяйте.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

Private Sub CommandButton2_Click()
Dim Ar, I As Integer
Ar = Array(1, 8, 9, 10, 7, 6, 20, 19, 17, 18, 16, 15, 14, 13, 12, 11, 25, 24, 23, 22, 21, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 27, 26, 40, 41, 39) 'продолжить массив номерами по порядку следования текстбоксов
Set sht = Sheets("Лист1")
N = sht.Range("A1").CurrentRegion.Rows.Count
For I = 1 To UBound(Ar) + 1
  sht.Cells(N + 1, I) = Me.Controls("TextBox" & Ar(I - 1))
  Me.Controls("TextBox" & Ar(I - 1)) = ""
Next
Me.TextBox1 = Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Value + 1
End Sub
Private Sub UserForm_Initialize()
   Me.TextBox1 = Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Value + 1
   Me.TextBox8.SetFocus
End Sub
0
0 / 0 / 0
Регистрация: 23.04.2019
Сообщений: 41
24.04.2019, 17:07  [ТС]
unick12345, а можете показать на примера?, а то не поняла
0
0 / 0 / 0
Регистрация: 23.04.2019
Сообщений: 41
24.04.2019, 17:18  [ТС]
Цитата Сообщение от Vlad999 Посмотреть сообщение
Private Sub CommandButton2_Click()
Dim Ar, I As Integer
Ar = Array(1, 8, 9, 10, 7, 6, 20, 19, 17, 18, 16, 15, 14, 13, 12, 11, 25, 24, 23, 22, 21, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 27, 26, 40, 41, 39) 'продолжить массив номерами по порядку следования текстбоксов
Set sht = Sheets("Лист1")
N = sht.Range("A1").CurrentRegion.Rows.Count
For I = 1 To UBound(Ar) + 1
* sht.Cells(N + 1, I) = Me.Controls("TextBox" & Ar(I - 1))
* Me.Controls("TextBox" & Ar(I - 1)) = ""
Next
Me.TextBox1 = Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Value + 1
End Sub
Private Sub UserForm_Initialize()
* *Me.TextBox1 = Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Value + 1
* *Me.TextBox8.SetFocus
End Sub

Работает, а можно как то убрать вот эти зеленые штуки? чтоб было как 559?
Изображения
 
0
0 / 0 / 0
Регистрация: 23.04.2019
Сообщений: 41
24.04.2019, 17:48  [ТС]
Цитата Сообщение от Vlad999 Посмотреть сообщение
замените ваш код этим и проверяйте.
Visual BasicВыделить код

Private Sub CommandButton2_Click()
Dim Ar, I As Integer
Ar = Array(1, 8, 9, 10, 7, 6, 20, 19, 17, 18, 16, 15, 14, 13, 12, 11, 25, 24, 23, 22, 21, 38, 37, 36, 35, 34, 33, 32, 31, 30, 29, 28, 27, 26, 40, 41, 39) 'продолжить массив номерами по порядку следования текстбоксов
Set sht = Sheets("Лист1")
N = sht.Range("A1").CurrentRegion.Rows.Count
For I = 1 To UBound(Ar) + 1
sht.Cells(N + 1, I) = Me.Controls("TextBox" & Ar(I - 1))
Me.Controls("TextBox" & Ar(I - 1)) = ""
Next
Me.TextBox1 = Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Value + 1
End Sub
Private Sub UserForm_Initialize()
Me.TextBox1 = Sheets("Лист1").Cells(Rows.Count, 1).End(xlUp).Value + 1
Me.TextBox8.SetFocus
End Sub
Цитата Сообщение от DaK1978 Посмотреть сообщение
Работает, а можно как то убрать вот эти зеленые штуки? чтоб было как 559?
Изображения
впрочем, неважно, скажите пожалуйста а можно как то сделать чтоб в форме вот эти цифры нельзя было удалить, и если такая запись уже есть, то он
бы выдавал предупреждение? что заменить или добавить
0
3947 / 2340 / 790
Регистрация: 02.11.2012
Сообщений: 6,222
25.04.2019, 08:28
Можно. но это уже другая тема.
П.С. не за чем цитировать все подряд.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
 25.04.2019, 08:28

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

Автоподстановка в форму номера последней записи таблицы
Добрый день всем форумчанам! Помогите,пожалуйста решить проблему:пытаюсь создать базу для автосервиса. Имеются 2 таблицы. В первую...

Автозаполнение массивов (каждой строке свой столбец)
Есть два одномерных массива А и Б Массив А вертикальный Массив Б горизонтальный Каждый элемент массива Б это соответсвующий...

Строки: Найти номера первой и последней по порядку запятой
Здравствуйте. Помогите пожалуйста со следующим заданием: Найти номера первой и последней по порядку запятой. Заменить запятые на...

Найти среднее арифметическое элементов, принадлежащих первой строке, последней строке, первому столбцу и последнему столбцу.
Дан двумерный массив размером n*m, заполненный случайными числами. Найти среднее арифметическое элементов, принадлежащих первой строке,...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
25
Ответ Создать тему
2 из 2 « 1 2
Новые блоги и статьи
Запустил конкурс "тем и промптов для текстовых квестов созданных почти чисто ИИ"
Adler 06.10.2026
Всем привет! За последние три-четыре дня я создал более 16 текстовых квестовых игр используя преимущественно по одному запросу к ИИ на игру. Мне так понравилось смотреть все ветки/ сцены во всех. . .
ИИ не может найти нужный язык в списке
Supersumestria 05.10.2026
Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .
Новая последняя моя музыка в SUNO
zorxor 05.10.2026
Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .
Программный домашний кинотеатр
russiannick 27.09.2026
Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого
zorxor 21.09.2026
Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .
Мобильное приложение ColorStep
pavlinmavlin 17.09.2026
Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .
Запрет дублирования строк в табличной части
Maks 13.09.2026
Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр.
Jin X 06.09.2026
Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru