Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
am-wrag
10 / 10 / 2
Регистрация: 17.02.2011
Сообщений: 145
1

Блок кода

05.08.2011, 12:43. Просмотров 870. Ответов 3
Метки нет (Все метки)

Всем привет
Немогу понять, что в этой часте ему не нравится. Ошибки: Елемент end if в отсутствии if или тоже самое с Else.
Извиняюсь конечн если вопрос совсем тупой, пишу как умею.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
If arr1(i, 2) = "ÑòðГ*õîâГ*Г*ГЁГҐ VIP êëèåГ*òîâ" Then
prgID = 82
With find.Range("G2:I30")
Set Find1 = .find(What:=LCase(arr1(i, 3)), LookIn:=xlFormulas, LookAt:=xlPart, MatchCase:=False, SearchFormat:=False)
    If Find1.Offset(0, -1).Value = 1 Then chnlID = Find1.Offset(0, -2).Value
    If Find1.Offset(0, -1).Value = 0 Or Find1 Is Nothing Then
    èòîã.Cells(i + 2, 6).Value = "Íåñîîòâåñòâèå ГЉГЏ ïðîãðГ*ììå!"
    GoTo nextI
    Else
        If arr1(i, 4) = "" Then
        èòîã.Cells(i + 2, 6).Value = "Íåîáõîäèì Г*Г*äêГ*Г*Г*Г«"
        GoTo nextI
        Else
        With find.Range("G2:I30")
        Set Find2 = .find(What:=LCase(arr1(i, 4)), LookIn:=xlFormulas, LookAt:=xlPart, MatchCase:=False, SearchFormat:=False)
            If Find2 Is Nothing Then
            èòîã.Cells(i + 2, 6).Value = "ГЌГ*äêГ*Г*Г*Г« Г*ГҐ ñîîòâåòñòâóåò!"
            GoTo nextI
            Else
                For n = 8 To 28
                    If arr1(i, 3) = arr3(n, 3) And arr3(n, 2) = Find2.Offset(0, -2).Value Then
                    chnlID = arr3(n, 1)
                    Exit For
                    End If
                Next n
            End If
        End If
     End If
Else
prgID = 120
End If
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
05.08.2011, 12:43
Ответы с готовыми решениями:

Составить блок схему для программного кода
Private Sub CommandButton1_Click() n = 3 m = 4 Dim mass(3, 4) For i = 1 To...

Блок схема кода
Кто может составить блок схему этого кода? using System; using...

Блок кода в эклипс
Как в коде сделать произвольный блок кода сворачивающимся (по типу как для...

Из кода в блок-схему
Приветствую вас, не могли бы вы мне помочь представить блок-схему из данного...

Перевод из кода в блок-схему
Подскажите программу которая сможет перевести код паскаля в блок-схему (но он...

3
Watcher_1
353 / 159 / 27
Регистрация: 21.06.2011
Сообщений: 350
05.08.2011, 13:10 2
А где закрытие With?
End With нету
1
am-wrag
10 / 10 / 2
Регистрация: 17.02.2011
Сообщений: 145
05.08.2011, 13:32  [ТС] 3
Как все просто
0
Ципихович Эндрю
1411 / 321 / 28
Регистрация: 10.04.2009
Сообщений: 5,040
05.08.2011, 16:09 4
Цитата Сообщение от am-wrag Посмотреть сообщение
With find.Range("G2:I30")
строка 3 и 14 одинаковые, 14ю долой!!!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
05.08.2011, 16:09

Создание кода по блок схеме
Прощу помощи в создании кода VB по данной ниже блок схеме. Код чем проще тем...

Вставка php кода в блок
Доброго времени суток. Не получается вставить php код в блок: например при...

Блок-схема для кода C++
Помогите пожалуйста, а то вообще понятия не имею как это делается:help: ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru