Проблема с ComboBox Excel - Microsoft Office Excel - Страница 2

Alexa6ka · 20.07.2011, 14:18

Да, обрадовали=(
а такой код я тож пробовала, ругается... говорит "run time error 483" ругается на 3ю строку...

RAN. · 20.07.2011, 15:09

Понебрежничал. И свою ошибку допустил, и вашу не заметил.

Код:

For i = 1 To 70
If ActiveSheet.Cells(i, 1) = CDate(ComboBox3.Text) Then
ActiveSheet.Cells(i, 1).Interior.ColorIndex = 3
End If
Next i

Alexa6ka · 21.07.2011, 06:33

Спасибо большое! работает

А про CDate я и не думала, мне казалось что и так должно работать...ну да ладно, суть понятна, теперь буду пытаться с остальными критериями и на отдельный

20.07.2011, 15:09	#12
RAN. Форумчанин Регистрация: 05.07.2011 Сообщений: 208	Понебрежничал. И свою ошибку допустил, и вашу не заметил. Код: `For i = 1 To 70 If ActiveSheet.Cells(i, 1) = CDate(ComboBox3.Text) Then ActiveSheet.Cells(i, 1).Interior.ColorIndex = 3 End If Next i`

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Проблема comboBox	Kors07	C# (си шарп)	2	09.05.2011 16:27
VBA,Excel, Создание аналогичных Textbox, Combobox	diikand	Помощь студентам	0	05.04.2010 21:37
Формирование ComboBox, VBA, Excel	Grusha	Microsoft Office Excel	3	07.01.2009 13:29
Проблема с ComboBox	boostman	Общие вопросы Delphi	13	13.08.2008 15:01
VBA Excel ComboBox	corsarlt	Microsoft Office Excel	2	05.06.2008 23:50

20.07.2011, 14:18	#11
Alexa6ka Пользователь Регистрация: 13.07.2011 Сообщений: 12	Да, обрадовали=( а такой код я тож пробовала, ругается... говорит "run time error 483" ругается на 3ю строку...

21.07.2011, 06:33	#13
Alexa6ka Пользователь Регистрация: 13.07.2011 Сообщений: 12	Спасибо большое! работает А про CDate я и не думала, мне казалось что и так должно работать...ну да ладно, суть понятна, теперь буду пытаться с остальными критериями и на отдельный