combobox и optionbutton

Программирование на Visual Basic for Applications
ViP
Начинающий
Начинающий
 
Сообщения: 2
Зарегистрирован: 10.06.2011 (Пт) 20:35

combobox и optionbutton

Сообщение ViP » 13.06.2011 (Пн) 9:25

Программа выбирает только рейтинг (например, 3 звезды), а выборку по округам не производит, в чем мой недочет?
возможно должны быть 2 условия в структуре case, например:

If (Worksheets(1).Cells(i, 2) = 3) and (Worksheets(1).Cells(i, 3) = ЗАО) Then... (оставляет только заголовок, что неправильно)

или:
Код: Выделить всё
k = 1
For i = 2 To 17
If (Worksheets(1).Cells(i, 2) = 3) Then
Otel(k) = Worksheets(1).Cells(i, 1).Value
Adr(k) = Worksheets(1).Cells(i, 4).Value
Tel(k) = Worksheets(1).Cells(i, 5).Value
Opis(k) = Worksheets(1).Cells(i, 6).Value
Servis(k) = Worksheets(1).Cells(i, 7).Value
k = k + 1
End If
Next i
, (ничего не меняет, что тоже неправильно)
[Viper] :: Пользуйся тэгами CODE!
Вложения
Новая папка.rar
(34.69 Кб) Скачиваний: 42

Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 3

    TopList