Добавить запись в 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

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

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

Новые блоги и статьи Все статьи Все блоги /
мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .	Нашел вот забавное видео о измерениях. Лучшее что я видел на эту тему kumehtar 26.08.2026 ILETXiw9bMQ Основная суть и тезисы по измерениям: 0D (Нулевое измерение): точка, не имеющая длины, ширины, высоты или объема. Объект не может перемещаться в 0D. 1D (Первое измерение):. . .	[EasyBuilder Pro] Памятка по разработке для панелей Weintek ФедосеевПавел 26.08.2026 Памятка по разработке для панелей Weintek ВВЕДЕНИЕ Ранее, при реализации проектов основное внимание уделял разработке управляющей программы для контроллера, а панели оператора доставалось время. . .
Модель по догадкам anaschu 25.08.2026 Прошло две недели. Я уже рассказывал, как разговаривал с сотрудниками у сортировки и как понял, что главная ветка — не про приёмку, а про отбор. Но тогда я думал, что понял механику. На этой неделе я. . .	Запись в регистр сведений независимо от заполненности табличной части Maks 25.08.2026 Реализация из решения ниже выполнена на нетиповом документе с несколькими табличными частями, разработанного в КА2. Задача: Обеспечить запись документа в регистр сведений независимо от. . .	Ноутбук Альфария kumehtar 24.08.2026 Встретился тут в сети ноутбук Альфария, примарха Альфа-Легиона. Хотя возможно, это ноутбук Омегона, разумеется. Ну как вам?	Мастера простых решений DevAlt 23.08.2026 В сишарп стэках winforms, да и wpf существует сложная система связывания источниках данных и элементов формы(текстовые поля и метки), опирается все это на технологию событий и мета. . .

@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