Block if withound End If

@bboyRALF · Регистрация: 09.07.2012

Студворк — интернет-сервис помощи студентам

Немогу запустить, где я не завершил работу оператора (Block if withound End If)

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
32
33
34
35
36
37
38
39
40
Sub search()
'
' Ìàêðîñ1 Ìàêðîñ
' ïîèñê
'
orgOKDP = ""
i = 1
Do While i < 7
 If krit.Cells(i, 3) Like baz.Cells(j, 6) Then
 If i = 7 Then
 'auaia yoie no?iee a aaco
 Else
 i = i + 1
 
 'Else
 
 If orgOKDP(i) = 0 Then
 'auaia yoie no?iee a aaco
 Else
End If
 i = 10
 
 
 
 
'
    AddIns("Ïàêåò àíàëèçà").Installed = True
    AddIns("Ïîèñê ðåøåíèÿ").Installed = True
    AddIns.Add Filename:="Groove.SearchProtocolHandler.1"
    AddIns("Îáðàáîò÷èê ïðîòîêîëà ïîèñêà SharePoint Workspace").Installed = True
    ActiveSheet.Buttons.Add(571.5, 15.75, 102, 15.75).Select
    Application.Goto Reference:="Ìàêðîñ1"
 
    Application.ActiveProtectedViewWindow.Edit
    ActiveCell.Offset(0, -2).Columns("A:A").EntireColumn.Select
    ActiveSheet.Shapes.Range(Array("Button 2")).Select
    Application.Goto Reference:="Ïîèñê_ÎÊÄÏ"
 
 
End Sub

@Watcher_1 · 11.07.2012, 16:09

Тут у вас не end if а LOOP нету

@Апострофф · 11.07.2012, 16:12

Расставив отступы сразу видим три незакрытых блока

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
32
33
34
35
36
37
Sub search()
'
' Макрос1 Макрос
' поиск
'
orgOKDP = ""
i = 1
Do While i < 7  'не закрыто Loop
  If krit.Cells(i, 3) Like baz.Cells(j, 6) Then 'не закрыто End If
    If i = 7 Then 'не закрыто End If
    'auaia yoie no?iee a aaco
    Else
      i = i + 1
  
    'Else
  
      If orgOKDP(i) = 0 Then
        'auaia yoie no?iee a aaco
      Else
      End If
      i = 10
 
'
    AddIns("Пакет анализа").Installed = True
    AddIns("Поиск решения").Installed = True
    AddIns.Add Filename:="Groove.SearchProtocolHandler.1"
    AddIns("Обработчик протокола поиска SharePoint Workspace").Installed = True
    ActiveSheet.Buttons.Add(571.5, 15.75, 102, 15.75).Select
    Application.Goto Reference:="Макрос1"
 
    Application.ActiveProtectedViewWindow.Edit
    ActiveCell.Offset(0, -2).Columns("A:A").EntireColumn.Select
    ActiveSheet.Shapes.Range(Array("Button 2")).Select
    Application.Goto Reference:="Поиск_ОКДП"
 
 
End Sub

Где их надо закрывать - вам виднее?

@bboyRALF · 11.07.2012, 17:25 **[ТС]**

Я пока начинающий, в синтаксисе не силен. Что вы можете посоветовать ?

@Catstail · 11.07.2012, 17:48

Начинающему советую писать код предельно аккуратно. С отступами и комментариями. Анализировать легче, войдет в привычку (полезную!)

Dragokas · 11.07.2012, 19:01

Да, а еще копировать на форум код при выставленной русской раскладкой клавиатуры.

И не только на форум.

@mc-black · 11.07.2012, 19:30

Начинающему советую закрывающую часть блоков кода писать сразу за открывающей, только потом прописывать условия и внутреннее наполнение блока. Например, наберите нужную структуру, как:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Dim i As long
 
' Инициализация счетчика цикла
i = 0
Do While bF(i)
    If 1 Then
        ' Первый блок
    ElseIf 2 Then
        ' Второй блок
    Else
        ' Третий блок
    End If
    ' Приращение счетчика цикла
    i = i + 1
Loop

Дальше допишете или исправьте, что надо расставить до цикла, в условии продолжения цикла, в выражении приращения счетчика цикла, в условиях If и ElseIf, затем только куски кода, выполняющегося последовательно. Рассставаляйте всегда грамотно отступы (лучше клавишей Tab, а не Space), малосвязанные по смыслу участки кода разделяйте пустыми строками, никогда не пренебрегайте хотя бы скудными комментариями.

@bboyRALF · 11.07.2012, 23:09 **[ТС]**

расставил, цикл запустился и завис. почему ? где я ошибся

@Казанский · 11.07.2012, 23:26

Пройдите программу по шагам - F8, наблюдайте за переменными в окне Locals. Возможно, не происходит приращение переменной цикла.

Dragokas · 11.07.2012, 23:26

Смотри пошагово F8.

Пройдись по циклу, условие выхода из него не выполняется.
Или слижком долгий цикл. Выставь внутрь него процедуру:

Visual Basic
1
DoEvents

Новые блоги и статьи Все статьи Все блоги /
Функция установки текстового статуса в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .	Автоматическое создание документа при проведении другого документа Maks 29.03.2026 Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .

@Watcher_1 357 / 163 / 27 Регистрация: 21.06.2011 Сообщений: 350
	11.07.2012, 16:09
	Тут у вас не end if а LOOP нету 0

@bboyRALF 0 / 0 / 0 Регистрация: 09.07.2012 Сообщений: 110 Записей в блоге: 2
	11.07.2012, 17:25 [ТС]
	Я пока начинающий, в синтаксисе не силен. Что вы можете посоветовать ? 0

@Catstail Супер-модератор 38195 / 21128 / 4309 Регистрация: 12.02.2012 Сообщений: 34,733 Записей в блоге: 14
	11.07.2012, 17:48
	Начинающему советую писать код предельно аккуратно. С отступами и комментариями. Анализировать легче, войдет в привычку (полезную!) 0

Dragokas 18033 / 7736 / 892 Регистрация: 25.12.2011 Сообщений: 11,502 Записей в блоге: 16
	11.07.2012, 19:01
	Да, а еще копировать на форум код при выставленной русской раскладкой клавиатуры. И не только на форум. 2

@bboyRALF 0 / 0 / 0 Регистрация: 09.07.2012 Сообщений: 110 Записей в блоге: 2
	11.07.2012, 23:09 [ТС]
	расставил, цикл запустился и завис. почему ? где я ошибся 0

@Казанский 15155 / 6428 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	11.07.2012, 23:26
	Пройдите программу по шагам - F8, наблюдайте за переменными в окне Locals. Возможно, не происходит приращение переменной цикла. 0