Комбобокс !!!

[Rom213]

Народ всем привет !!!
Нужна подсказка как сделать правильние: есть файл в нем форма а в ней 3 комбобокса. Хотелось бы узнать как в 3 отобразить допустим значение 3 столбца из соответствующей строки.


Благодарю за внимание.

[Rom213]

совсем извиняюсь, не вставил вот этот код в файлик, но он вроде как не помогает так как выдает 0 не могу понять почему

For Y = 7 To 10000
Dim Produkt As Double
Produkt = 0
If Worksheets("ñêëàä").Cells(Y, 4).Value = "" Then
Y = 10000
Else
If Worksheets("ñêëàä").Cells(Y, 4).Value = Vvod1.ComboBox1.Value Then
If Worksheets("ñêëàä").Cells(Y, 2).Value = Vvod1.ComboBox2.Value Then
Produkt = Produkt + Worksheets("ñêëàä").Cells(Y, .Value
End If
End If
End If
Vvod1.TextBox5.Value = Produkt
Next Y

[Viper]

А что он должен выдавать то? У тебя Produkt на каждом шаге цикла обнуляется.

И вот это что такое?

Y = 10000

Пользуйся Exit For для выхода из цикла.


З.Ы. Теги форматирования тебе помогут! а пока этоn перл

Produkt = Produkt + Worksheets("ñêëàä").Cells(Y, .Value

отправляется в цитаты

[Rom213]

Y = 10000 это диапазон поиска (с 7 до 1000).
а теги посморю. thk.

[Viper]

Ндя...

1. Теги не смотреть надо, а применять к приводимому коду.
2. Ты пишешь Y = 10000. Зачем? Чтобы выйти из цикла? Так для этого есть Exit For.
3. Еще раз повторяю, у тебя переменная Produkt на каждом шаге цикла обнуляется! И никакой суммы ты соответственно не получишь.

[Rom213]

хорошо, что она обнуляется я вижу тока не могу понять почему после того как я выбираю 2 комбобокс и значение в нем он мне все равно пишет 0.
Exit for я понял(вроде бы)

For Y = 7 To 10000
Dim Produkt As Double
Produkt = 0
If Worksheets("ñêëàä").Cells(Y, 4).Value = "" Then
Exit For

но не это меня сильно тревожит , почему 0

[Rom213]

вроде бы как на этом этапе Produkt = Produkt + Worksheets("ñêëàä").Cells(Y, 8 ).Value он должен же накапливать значения а он почему то превращает их в 0.

[Nicky]

Ндаа, объявление переменных в цикле - это сильно.
Может выкинуть ее просто?

[Viper]

Ну вот как человеку объяснить?
ну сделай так что ли...

Код: Выделить всё

Dim Produkt As Double
For Y = 7 To 10000
' чей то делаем
Produkt = Produkt + Worksheets("ñêëàä").Cells(Y, 8).Value
Next Y

[Rom213]

Спасибочки за подсказочку не обратил внимание , но даже при выносе система выдает 0.

[KL]

Попробуй так.

[Rom213]

Огромное спасибочки за помощь KL, которая оказывается практически в каждом топике и за его гениальные мысли )).

[Rom213]

кстати что бы значение появлялось автоматически или что бы оно то есть значение было бы в textbox? но что то combobox3.value и textbox1.value не помогает и значок из строчки combobox 2 не уходит, почему то :-=).
Опять тербуется хирургическое вмешательство.

[KL]

1. ComboBox1=0

2. TextBox1=RemoveDuplicates(rng)(1)

3. Uberi stroku
If ComboBox1=Empty Then...

Pardon za latinitsu I netochnosti - pishu s BlackBerry.

[Rom213]

нет немного не то хотел да и это дельце не получается так как не могу найти If ComboBox1=Empty Then вроде бы как нет такого, а на это TextBox1=RemoveDuplicates(rng)(1) ругается.

Латиница это ничего главное что понятно

[KL]

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

[Rom213]

ничего страшного и на этом огромное спасибо.