Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Петля Next с другим шагом
 
#1
23.04.2017 20:46:33
Добрый вечер!

Помогите с петлей:
Код
   For i = 24 To 30 Step 2
   If Diesel.Range("B" & i).Value = "2/1" Then
   NumberMeasurementComboBoxDiesel.ListIndex = (24 - i)
   End If
   Next i
Если значение с 24 по 30 клетку с шагом в 2 иммет значение 2/1 то лист индекс у комбобокса должен менятся вот так:

24 = 0 индекс
26 = 1 индекс
28 = 2 индекс
30 = 3 индекс

Помогите пожалуйста реализовать
 
 
 
#2
23.04.2017 20:54:42
Что за "клетка"?
 
 
 
#3
23.04.2017 21:07:45
Юрий М, таблица, cells
 
 
 
#4
23.04.2017 21:31:15
Если значений немного, то можно через Select Case извернуться:
Код
   If Diesel.Range("B" & i).Value = "2/1" Then
Select Case i
Case i= 24
   NumberMeasurementComboBoxDiesel.ListIndex = (24 - i)
Case i=26
NumberMeasurementComboBoxDiesel.ListIndex = (24 - i)+1
Case i=28
NumberMeasurementComboBoxDiesel.ListIndex = (24 - i)+2
Case i=30
NumberMeasurementComboBoxDiesel.ListIndex = (24 - i)+3
End Select
   End If

Или еще так (и гораздо проще):
Код
 If Diesel.Range("B" & i).Value = "2/1" Then
NumberMeasurementComboBoxDiesel.ListIndex = (i-24)/2
End if

:)
Изменено: Пытливый - 23.04.2017 21:35:20
Кому решение нужно - тот пример и рисует.
 
 
 
#5
23.04.2017 21:41:57
Пытливый, Спасибо я не смекнул
 
 
 
Страницы: 1
Наверх