Ввод нумерованого списка

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Владимир1960
Начинающий
Начинающий
 
Сообщения: 0
Зарегистрирован: 03.02.2026 (Вт) 9:54

Ввод нумерованого списка

Сообщение Владимир1960 » 03.02.2026 (Вт) 10:45

Есть нумерованый список, не получается чтобы при вводе номера в ячейку номер в ячейке заменялся данным из списка и распространяться это должно на определенный диапазон (столбец), записать в автозамену это не решение, конструкция ВБА – IF активная ячейка = X THEN порождает такой небоскреб…и возможность быстрого изменения стремится к нулю
Ничего похожего на форуме не нашел. Хоть какие то наметки решения подскажите.

Vova_2581
Постоялец
Постоялец
 
Сообщения: 394
Зарегистрирован: 10.01.2010 (Вс) 18:08

Re: Ввод нумерованого списка

Сообщение Vova_2581 » 23.04.2026 (Чт) 18:06

Я не спец. в "ячейках"... )) но попробуйте спросить ИИ в Гугл. он бесплатный. У меня когда-то была проблема с кодом, нужно было быстро найти решение, то я сделал так: вызвал поисковик Google.com и описал проблему... ИИ помог... ) но только нужно четко и ясно написать, например, в каком редакторе вы пишите, на каком языке, что есть... и что нужно сделать... Пешите предложением... Ясно и понятно ставьте вопрос... Чем чётче будет вопрос, тем конкретнее будет ответ... ИИ даже напишет вам код на VBA, даст описание и укажет нюансы... Это работает! Бывает ответ будет не сразу, пробуйте ещё раз... возможно перефразировать... Google даёт "Обзор от ИИ" в самом начале...

Vova_2581
Постоялец
Постоялец
 
Сообщения: 394
Зарегистрирован: 10.01.2010 (Вс) 18:08

Re: Ввод нумерованого списка

Сообщение Vova_2581 » 23.04.2026 (Чт) 18:13

Начните свой вопрос с фразы: "помоги написать код на VBA..." или "помоги решить проблему в Ексель на языке VBA..." и тому подобное ... Далее конкретное описание...

Template
Обычный пользователь
Обычный пользователь
 
Сообщения: 75
Зарегистрирован: 09.09.2006 (Сб) 18:03

Re: Ввод нумерованого списка

Сообщение Template » 26.04.2026 (Вс) 22:07

Код: Выделить всё
Private Sub Worksheet_Change(ByVal Target As Range)
    Set Target = Intersect(Target, [B2:B100])
    If Not Target Is Nothing Then
       Application.EnableEvents = False
       MsgBox "Здесь происходит замена"
       Application.EnableEvents = True
    End If
End Sub

Vova_2581
Постоялец
Постоялец
 
Сообщения: 394
Зарегистрирован: 10.01.2010 (Вс) 18:08

Re: Ввод нумерованого списка

Сообщение Vova_2581 » 27.04.2026 (Пн) 18:12

Template
Стоп, стоп... Прошу прощения за свои посты, я не сразу заметил дату публикации топик стартера (начало февраля). Скорее всего актуальности уже нет. Так что, думаю, не стоит больше развивать эту тему. Ещё раз прошу прощения.

Template
Обычный пользователь
Обычный пользователь
 
Сообщения: 75
Зарегистрирован: 09.09.2006 (Сб) 18:03

Re: Ввод нумерованого списка

Сообщение Template » 28.04.2026 (Вт) 8:43

Vova_2581, Скорее всего вы правы и никому это уже нафиг не нужно.
Но тема была интересная и если бы топикстартер сразу сказал, что представляет собой список "автозамены", то, возможно, и ответ бы нашелся раньше. К примеру, если он расположен в ячейках листа, то в самом простом виде - поможет и функция листа ВПР, ведь её можно вызвать программно. А если в каком-нибудь текстовом файле, то тогда придётся его прочитать.
А вааще, даже к списку и работе с ним, стопиццот вопросов, например, что делать, если введут номер, которого нет в списке. или введут 5t считать это а) очепяткой и номером 5, б) оставить как есть, в) удалить. Или что делать, если в списке будут повторяющиеся номера. а) брать самый первый, как ВПР, б) брать последовательно каждый повтор (т.е. первое вхождение в списке, потом второе, ... , наконец последнее, а затем опять первое?)


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Majestic-12 [Bot] и гости: 8

    TopList