Добавить запись в combobox

@Noit · Регистрация: 11.04.2012

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

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub btnAddCost_click()
    Dim i As Long
    With Worksheets("Лист1")
    
        i = 4
        Do While .Cells(i, 1) <> Empty
            i = i + 1
        Loop
        .Rows(i).Insert
        .Range(.Cells(i - 1, 1), .Cells(i - 1, 14)).Copy
        .Range(.Cells(i, 1), .Cells(i, 14)).PasteSpecial xlPasteFormats
        .Cells(i, 1) = .Cells(i - 1, 1) + 1
        .Cells(i, 2) = "Новая цена:" & i - 12 & " (нов." & i - 12 & ")"
        newCost = "нов." & i - 12
        'cbSeansCost.AddItem newCost      'Вот здесь я хочу добавить в combobox новую запись, только эта запись не работает
        Application.CutCopyMode = False
End With            
 
End Sub

В combobox уже есть записи, я их добавлял на самой форме вот так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub Form_Load()
    cbSeansCost.AddItem "Äí."
    cbSeansCost.AddItem "Äí.1"
    cbSeansCost.AddItem "Âå÷."
    cbSeansCost.AddItem "Âå÷.1"
    cbSeansCost.AddItem "Âûõ."
    cbSeansCost.AddItem "Âûõ.1"
    cbSeansCost.AddItem "Äåò."
    cbSeansCost.AddItem "Äåò.1"
End Sub

Добавлено через 18 часов 34 минуты
Можно ли добавить запись в combobox при нажатии кнопки?

@IvanOK · 20.03.2013, 21:58

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

@Noit · 22.03.2013, 10:48 **[ТС]**

1.Есть форма с комбобоксом
2. В Form_Load я его заполняю
3. На форме есть кнопка "Добавить цену"
4. При нажатии на эту кнопку, в комбобокс добавляется новая запись, она заменяется при каждом нажатии на кнопку "Добавить цену".
5. То есть если я нажму на кнопку "Добавить цену" 5 раз, то у меня добавится в комбобокс цена "нов.5" вместо "нов.4", и не будет цены "нов.1", "нов.2" и т.д.
Понятно?

Добавлено через 4 часа 46 минут

Добавлено через 18 часов 37 минут
Подскажите кто-нибудь.

dev.Free · 22.03.2013, 11:11

Noit, Ты тебе же я сказал, не выгружай форму! На пиши в обработчике не выгрузка, а спрятать форму! Когда форма выгружается из памяти все данные с нее обновляются! Что тут не понятного может быть!

@Noit · 22.03.2013, 11:18 **[ТС]**

Сообщение от inv.DS

тебе же я сказал, не выгружай форму

Подробнее об этом...

@IvanOK · 22.03.2013, 12:03

о дружыще ты реально растешь на моих глазах....аватарку сменил....молодец

посмотри так ты хотел?

@Noit · 22.03.2013, 12:34 **[ТС]**

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

аватарку сменил

Давно хотел, вот и руки дошли)

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

посмотри так ты хотел?

Замечательно, только вопрос об удалении одной только записи из combobox при нажатии кнопки удалить.
Сейчас при нажатии кнопки Удалить цену, удаляются все добавленные записи в комбобокс.

@IvanOK · 22.03.2013, 12:38

Noit, нужно просто добавить на одну меньше....то есть тот же код, ты смысл понял или нет....как оно добавляет?

@Igor_Tr · 22.03.2013, 12:50

Можно, я вмешаюсь? На пару слов только.

Давно хотел, вот и руки дошли)

Зря сменили. Была причина для шуток, а теперь скука. Я очень сожалею, Noit, что Вы меня поняли в буквальном смысле. Это серйозно и честно.

С данными, при добавлении/удалении я бы не очень мучился. Выгрузил програмно диапазон данных на временный лист, добавил/удалил, переписал данные. Где-то так. Можно играть через Change, но лично я использую модули листа в крайней необходимости (как UserForm), кнопочки, бантики...

dev.Free · 22.03.2013, 13:00

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

ты смысл понял или нет....как оно добавляет?

Нет зачем понимать ! Мне же написали !

@IvanOK · 22.03.2013, 13:02

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

Была причина для шуток, а теперь скука.

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

Добавлено через 52 секунды
inv.DS, ну..... посмотрим.... обратную задачу тоже надо доделать

dev.Free · 22.03.2013, 13:02

IvanOK, Я что-то пропустил, были какие-то приколы ?

@IvanOK · 22.03.2013, 13:05

Сообщение от inv.DS

Я что-то пропустил, были какие-то приколы ?

inv.DS, да было дело наверное вы редко бываете здесь ......

@Noit · 22.03.2013, 13:27 **[ТС]**

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

нужно просто добавить на одну меньше....то есть тот же код, ты смысл понял или нет....как оно добавляет?

Понял, Благодарю.

Новые блоги и статьи Все статьи Все блоги /
Про "Windows must die!" kumehtar 04.11.2026 Знаете, чет накатило. . . . Когда-то это было почти боевым кличем: мол, нормальный человек сидит на DOS, OS/ 2 или Linux, а вот это вот - Must Die. А теперь человек произносит «мастдай» с усмешкой - и. . .	Красочные поля с номером страницы svg+background-image russiannick 04.11.2026 Красочные поля с номером страницы не менее важны чем в эпоху бумажных книг. Посему спешу представить почтеннейшей публике этот важный инструмент который эти поля и формирует. В процессе разработки. . .	Вступаем в новую фазу генерации favicons, векторную. russiannick 02.11.2026 Теперь нет нужды скрывать что используется простой svg. Исходный код изображения помещаем в поле и жмем кнопку. Исходник преобразуется в вид корректный для помещения в favicon или в url(). Нажатие. . .	Генератор паролей (вариант №4) Maks 01.11.2026 После публикации 3-го варианта генератора паролей, разослал его своим коллегам (с целью оценки), в итоге были получены следующие рекомендации: 1. Вернуть возможность использования знаков \| 1 l I;. . .
Генератор паролей (вариант №3) Maks 30.10.2026 Финальная версия генератора паролей 1С. Доработка решения в этот раз коснулась только визуальной части, а именно, добавлен реквизит ДопПараметры (тип Булево), который скрывает/ отображает реквизиты:. . .	Магическое мышление и магия, современная наука не отличима от магии (говорит ИИ Джемени) zorxor 30.10.2026 Джемени, расскажи, пожалуйста, что такое магическое мышление, что такое магия, почему современная наука чем-то напоминает магию? Фраза «Любая достаточно развитая технология неотличима от магии». . .	За какое время ИИ может подобрать пароль по хешу (рассказывает Джемени ИИ) zorxor 30.10.2026 Расскажи, Джемени, если известен хэш МД5, например, за сколько ИИ сможет подобрать соответствующий пароль? Искусственный интеллект (ИИ) может подобрать простой или средний по сложности пароль по. . .	Кто убил Suno? Почему наше солнышко погасло? (диалог с ИИ Джемени) zorxor 30.10.2026 Как убивали Suno. Хронология. «Убийство» музыкальной нейросети Suno — это затяжной процесс, в котором технологический хайп стартапа разбился о жесткую реальность судебных исков от гигантов. . .

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	20.03.2013, 21:58
	Noit, дружыще в чем не понятка? обясни, а то ты попадеш у очень не ловкую ситуацию.....лутше пошагово и сначала.... о к? на чем ты застрял... 0

@Noit 26 / 26 / 10 Регистрация: 11.04.2012 Сообщений: 870
	22.03.2013, 10:48 [ТС]
	1.Есть форма с комбобоксом 2. В Form_Load я его заполняю 3. На форме есть кнопка "Добавить цену" 4. При нажатии на эту кнопку, в комбобокс добавляется новая запись, она заменяется при каждом нажатии на кнопку "Добавить цену". 5. То есть если я нажму на кнопку "Добавить цену" 5 раз, то у меня добавится в комбобокс цена "нов.5" вместо "нов.4", и не будет цены "нов.1", "нов.2" и т.д. Понятно? Добавлено через 4 часа 46 минут Добавлено через 18 часов 37 минут Подскажите кто-нибудь. 0

dev.Free Заблокирован
	22.03.2013, 11:11
	Noit, Ты тебе же я сказал, не выгружай форму! На пиши в обработчике не выгрузка, а спрятать форму! Когда форма выгружается из памяти все данные с нее обновляются! Что тут не понятного может быть! 0

@IvanOK 693 / 99 / 10 Регистрация: 25.06.2011 Сообщений: 718
	22.03.2013, 12:38
	Noit, нужно просто добавить на одну меньше....то есть тот же код, ты смысл понял или нет....как оно добавляет? 1

dev.Free Заблокирован
	22.03.2013, 13:02
	IvanOK, Я что-то пропустил, были какие-то приколы ? 0