Как заставить ComboBox запомнить крайнее введенное значение?

@Alexandrovich · Регистрация: 09.05.2017

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

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
Private Sub UserForm_Initialize()
'poryadkoviy_nomer
    TextBox1.Value = ""
'data
    'chislo
        TextBox2.Value = ""
    'mesyac
        ComboBox1.AddItem "января"
        ComboBox1.AddItem "февраля"
        ComboBox1.AddItem "марта"
        ComboBox1.AddItem "апреля"
        ComboBox1.AddItem "мая"
        ComboBox1.AddItem "июня"
        ComboBox1.AddItem "июля"
        ComboBox1.AddItem "августа"
        ComboBox1.AddItem "сентября"
        ComboBox1.AddItem "октября"
        ComboBox1.AddItem "ноября"
        ComboBox1.AddItem "декабря"
    'god
        TextBox3.Value = ""
'familiya_dejurnogo
    ComboBox2.AddItem "Иванов П.А."
    ComboBox2.AddItem "Петров И.В."
    ComboBox2.AddItem "Сидоров К.С."
    ComboBox2.AddItem "Сталин И.И."
    ComboBox2.AddItem "Ленин В.И."
    ComboBox2.AddItem "Пушкин А.С."
    ComboBox2.AddItem "Филя"
    ComboBox2.AddItem "Степашка"
End Sub

Здравствуйте!Excel2010.На форме еще несколько TextBoxов и ComboBoxов, но их каждый раз редактировать необходимо.
Задача состоит в том, что бы при не однократной инициализации и редактирования формы без закрытия (и при иннициализации формы после открытия книги тоже) TextBox1, TextBox2, ComboBox1, ComboBox2 выдавали последнее введенное значение.
Шерстил форумы,нашел много воды и даже что-то похожее, но ничего конкретного к сожалению не вычитал.

@kalbasiatka · 09.05.2017, 18:28

Создать лист, скрыть его и записывать значения в ячейки. При Инициализации или при необходимости брать данные с листа.

@Alexandrovich · 10.05.2017, 06:07 **[ТС]**

За сутки вводить дату и фамилию дежурного придется до 20 и 30 раз.что бы этого не делать,а ввести единожды в начале и при каждой смене даты или дежурного.
А что вы предложили?я не понял если честно.

@_shark · 10.05.2017, 10:23

лучше всего на выходе сохранять значения текстбоксов и комбобоксов в реестре. А при активации формы, соответственно, считывать их оттуда

P.S. крайними бывают: плоть, Север, мера, срок и необходимость! Так что, наверное, все-таки не крайнее, а последнее значение

@kalbasiatka · 10.05.2017, 17:49

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

я не понял если честно

Бывает.

@Alexandrovich · 15.05.2017, 08:13 **[ТС]**

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
Private Sub UserForm_Initialize()
'poryadkoviy_nomer
    TextBox1.Value = ""
'data_vizova
    'chislo
        TextBox2.Value = Sheets("Вставка").Range("A2").Value
    'mesyac
        ComboBox1.Value = Sheets("Вставка").Range("B2").Value
        ComboBox1.AddItem "января"
        ComboBox1.AddItem "февраля"
        ComboBox1.AddItem "марта"
        ComboBox1.AddItem "апреля"
        ComboBox1.AddItem "мая"
        ComboBox1.AddItem "июня"
        ComboBox1.AddItem "июля"
        ComboBox1.AddItem "августа"
        ComboBox1.AddItem "сентября"
        ComboBox1.AddItem "октября"
        ComboBox1.AddItem "ноября"
        ComboBox1.AddItem "декабря"
    'god
        TextBox3.Value = Sheets("Вставка").Range("C2").Value
'familiya_dejurnogo
    ComboBox2.Value = Sheets("Вставка").Range("D2").Value
    ComboBox2.AddItem "Иванов П.А."
    ComboBox2.AddItem "Петров И.В."
    ComboBox2.AddItem "Сидоров К.С."
    ComboBox2.AddItem "Сталин И.И."
    ComboBox2.AddItem "Ленин В.И."
    ComboBox2.AddItem "Пушкин А.С."
    ComboBox2.AddItem "Филя"
    ComboBox2.AddItem "Степашка"
End Sub

Все получилось до безобразия просто.Назначил ячейки на другом листе для тех Box-ов, которые должны выдавать ПОСЛЕДНЕЕ введенное значение.т.е.каждый раз при заполнении формы значения перезаписываются,и при инициализации формы,в эти Box-ы вводятся данные именно с этих ячеек.

@OLEGOFF · 15.05.2017, 09:36

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

записывать значения в ячейки. При Инициализации или при необходимости брать данные с листа.

Вам это и предлагали

@kalbasiatka · 15.05.2017, 14:39

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

Все получилось до безобразия просто.

Интересное решение, никогда бы не подумал, что так можно.

SoftIce · 15.05.2017, 14:46

Не по теме:

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

Интересное решение, никогда бы не подумал, что так можно

Чукча не читатель, чукча писатель (с) :D

@Alexandrovich · 15.05.2017, 15:59 **[ТС]**

Интересно получилось.я как раз таки чукча.хоть и метис.

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД 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-динозавры, а новое поколение лёгких потоков. Откат?. . .

@kalbasiatka 416 / 263 / 83 Регистрация: 27.10.2012 Сообщений: 861
	09.05.2017, 18:28
	Создать лист, скрыть его и записывать значения в ячейки. При Инициализации или при необходимости брать данные с листа. 0

@Alexandrovich 1 / 1 / 0 Регистрация: 09.05.2017 Сообщений: 13
	10.05.2017, 06:07 [ТС]
	За сутки вводить дату и фамилию дежурного придется до 20 и 30 раз.что бы этого не делать,а ввести единожды в начале и при каждой смене даты или дежурного. А что вы предложили?я не понял если честно. 0

@_shark 193 / 191 / 31 Регистрация: 11.10.2016 Сообщений: 610
	10.05.2017, 10:23
	лучше всего на выходе сохранять значения текстбоксов и комбобоксов в реестре. А при активации формы, соответственно, считывать их оттуда P.S. крайними бывают: плоть, Север, мера, срок и необходимость! Так что, наверное, все-таки не крайнее, а последнее значение 0

@Alexandrovich 1 / 1 / 0 Регистрация: 09.05.2017 Сообщений: 13
	15.05.2017, 15:59 [ТС]
	Интересно получилось.я как раз таки чукча.хоть и метис. 0