Почему у меня не работает код в одном случае а во втором практически таком же работает

@Dasha356 · Регистрация: 25.11.2020

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

vba excel.

Вот этот не выводит сумму(цена товара) в Then TextBox7

Visual Basic
1
2
3
4
5
6
7
8
Private Sub ComboBox2_Change()
If ComboBox2 = "Хлопок" Then TextBox7 = 450
If ComboBox2 = "Шелк" Then TextBox7 = 450
If ComboBox2 = "Лен" Then TextBox7 = 450
If ComboBox2 = "Шерсть" Then TextBox7 = 350
If ComboBox2 = "Синтетика" Then TextBox7 = 350
If ComboBox2 = "Кружево" Then TextBox7 = 450
End Sub

Хотя вот тут практически тоже самое и все нормально

Visual Basic
1
2
3
4
5
6
7
8
9
10
Private Sub ComboBox3_Change()
If ComboBox3 = "Платье" Then TextBox6 = 800
If ComboBox3 = "Футболка" Then TextBox6 = 500
If ComboBox3 = "Юбка" Then TextBox6 = 500
If ComboBox3 = "Свитер" Then TextBox6 = 700
If ComboBox3 = "Худи" Then TextBox6 = 500
If ComboBox3 = "Брюки" Then TextBox6 = 500
If ComboBox3 = "Водолазка" Then TextBox6 = 600
If ComboBox3 = "Блузка" Then TextBox6 = 500
End Sub

Помогите пожалуйста

@Argus19 · 25.11.2020, 15:32

1). TextBox7 и ComboBox2 существуют?
2). Я не знаю VBA. Может так правильно?

Visual Basic
1
If ComboBox2 = "Хлопок" Then TextBox7.Text = 450

@Dasha356 · 25.11.2020, 15:40 **[ТС]**

Спасибо! но не сработало(

I can · 25.11.2020, 15:42

Dasha356, приложите файл.

@Dasha356 · 25.11.2020, 15:43 **[ТС]**

Ну там целая курсовая но я попробую

I can · 25.11.2020, 15:47

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

я попробую

Заархивируйте.

@Argus19 · 25.11.2020, 15:56

В VB 6.0 есть возможность установки точки останова (breakpoint). Есть ли такая возможность в VBA?

@Dasha356 · 25.11.2020, 15:59 **[ТС]**

Там это получается в UserForm4, ComboBox2

I can · 25.11.2020, 16:00

Argus19, не беги впереди паровоза

, только запутаешь больше. Сейчас покажет файл, и разберёмся

Добавлено через 1 минуту
Dasha356, файл то где?

@Dasha356 · 25.11.2020, 16:02 **[ТС]**

сейчас

@Argus19 · 25.11.2020, 16:03

Сообщение от I can

только запутаешь больше

Да ладно. Поставить точку останова в первом же пункте

Visual Basic
1
Private Sub ComboBox2_Change()

и, если не остановится, кричать "караул"

@Dasha356 · 25.11.2020, 16:07 **[ТС]**

куровая.7z

I can · 25.11.2020, 16:14

Dasha356, у Вас в источнике списка стоит пробел перед названиями тканей, уберите его, и всё заработает.

@Dasha356 · 25.11.2020, 16:22 **[ТС]**

точно! Я слепой

.Спасибо )

I can · 25.11.2020, 16:24

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

Visual Basic
1
2
3
4
5
6
7
8
Private Sub ComboBox2_Change()
If ComboBox2 = "Хлопок" Then TextBox7 = 450
If ComboBox2 = "Шелк" Then TextBox7 = 450
If ComboBox2 = "Лен" Then TextBox7 = 450
If ComboBox2 = "Шерсть" Then TextBox7 = 350
If ComboBox2 = "Синтетика" Then TextBox7 = 350
If ComboBox2 = "Кружево" Then TextBox7 = 450
End Sub

это процедуру рекомендую переделать так, чтобы брать значения с листа Эксель, а не из кода:

Visual Basic
1
2
3
Private Sub ComboBox2_Change()
    TextBox7.Text = ThisWorkbook.Sheets("Ткани").Cells(ComboBox2.ListIndex + 2, 2)
End Sub

Новые блоги и статьи Все статьи Все блоги /
Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .
модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ

@Dasha356 0 / 0 / 0 Регистрация: 25.11.2020 Сообщений: 7
	25.11.2020, 15:40 [ТС]
	Спасибо! но не сработало( 0

I can dive 4962 / 4658 / 845 Регистрация: 13.04.2015 Сообщений: 9,849
	25.11.2020, 15:42
	Dasha356, приложите файл. 0

@Dasha356 0 / 0 / 0 Регистрация: 25.11.2020 Сообщений: 7
	25.11.2020, 15:43 [ТС]
	Ну там целая курсовая но я попробую 0

@Argus19 1433 / 450 / 78 Регистрация: 24.09.2017 Сообщений: 2,533 Записей в блоге: 23
	25.11.2020, 15:56
	В VB 6.0 есть возможность установки точки останова (breakpoint). Есть ли такая возможность в VBA? 0

@Dasha356 0 / 0 / 0 Регистрация: 25.11.2020 Сообщений: 7
	25.11.2020, 15:59 [ТС]
	Там это получается в UserForm4, ComboBox2 0

I can dive 4962 / 4658 / 845 Регистрация: 13.04.2015 Сообщений: 9,849
	25.11.2020, 16:00
	Argus19, не беги впереди паровоза , только запутаешь больше. Сейчас покажет файл, и разберёмся Добавлено через 1 минуту Dasha356, файл то где? 0

@Dasha356 0 / 0 / 0 Регистрация: 25.11.2020 Сообщений: 7
	25.11.2020, 16:02 [ТС]
	сейчас 0

@Dasha356 0 / 0 / 0 Регистрация: 25.11.2020 Сообщений: 7
	25.11.2020, 16:07 [ТС]
	куровая.7z 0

I can dive 4962 / 4658 / 845 Регистрация: 13.04.2015 Сообщений: 9,849
	25.11.2020, 16:14
	Dasha356, у Вас в источнике списка стоит пробел перед названиями тканей, уберите его, и всё заработает. Миниатюры 0

@Dasha356 0 / 0 / 0 Регистрация: 25.11.2020 Сообщений: 7
	25.11.2020, 16:22 [ТС]
	точно! Я слепой.Спасибо ) 0