ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Ошибка прерывания кода. (возникает случайным образом)
23 сообщений из 23, страница 1 из 1
Ошибка прерывания кода. (возникает случайным образом)
    #38525432
Фотография lopuxi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lopuxi
Участник
Всем доброго дня.
Написал я макрос, но работает он как то не стабильно. Я по образованию не программист, разобраться самостоятельно в причине возникновения этой воистину случайной ошибки - я не смог.
Ошибка хаотична, она то, возникает, потом перезапустишь пару раз макрос по новой и все вроде бы работает.

Текст ошибки: - "code execution has been interrupted"

притом место ошибки всегда хаотично, то на прорисовке сетки, то на завершении макроса на команде sub, то на одном из циклов For. Показывает не ошибку, а место прерывания работы макроса, а где кроется ошибка... я пока понять не могу .

Я заметил что чаще всего данная ошибка возникает когда я использую msgbox для проверки.
А так же чаще всего прерываться в конце кода, вот на этом месте:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Worksheets(2).Select
Worksheets(2).Range("a1:h1").Interior.Color = 5296274
Worksheets(2).Range("a1:h1").Font.Bold = True
Worksheets(2).Range(Cells(1, 1), Cells(Sheet2_iRow, 8)).Borders(xlEdgeLeft).LineStyle = xlContinuous
Worksheets(2).Range(Cells(1, 1), Cells(Sheet2_iRow, 8)).Borders(xlEdgeTop).LineStyle = xlContinuous
Worksheets(2).Range(Cells(1, 1), Cells(Sheet2_iRow, 8)).Borders(xlEdgeBottom).LineStyle = xlContinuous
Worksheets(2).Range(Cells(1, 1), Cells(Sheet2_iRow, 8)).Borders(xlEdgeRight).LineStyle = xlContinuous
Worksheets(2).Range(Cells(1, 1), Cells(Sheet2_iRow, 8)).Borders(xlInsideVertical).LineStyle = xlContinuous
Worksheets(2).Range(Cells(1, 1), Cells(Sheet2_iRow, 8)).Borders(xlInsideHorizontal).LineStyle = xlContinuous
Worksheets(2).Range(Cells(2, 8), Cells(Sheet2_iRow, 8)).NumberFormat = "0"



p.s.
И если вдруг макрос прервался, то можно остановить и сразу запустить, он сработает и даст результат. Иногда это помогает :)

(Весь код кидаю отдельно. То с чем код работает, будет лежать в книге)
FAQ по макрасу.
1 лист - не трогаем, это информация которая будет обрабатывается макрасом.
2 лист - результат работы макроса.
3 лист - то, что, не вошло на 2 лист.

 
Код: vbnet
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.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
115.
116.
117.
118.
119.
120.
121.
122.
123.
124.
125.
126.
127.
128.
129.
130.
131.
132.
133.
134.
135.
136.
137.
138.
139.
140.
141.
142.
143.
144.
145.
146.
147.
148.
149.
150.
151.
152.
153.
154.
155.
156.
157.
158.
159.
160.
161.
162.
163.
164.
165.
166.
167.
168.
169.
170.
171.
172.
173.
174.
175.
176.
177.
178.
179.
180.
181.
182.
183.
184.
185.
186.
187.
188.
189.
190.
191.
192.
193.
194.
195.
196.
197.
198.
199.
200.
201.
202.
203.
204.
205.
206.
207.
208.
209.
210.
211.
212.
213.
214.
215.
216.
217.
218.
219.
220.
221.
222.
223.
224.
225.
226.
227.
228.
229.
230.
231.
232.
233.
234.
235.
236.
237.
238.
239.
240.
241.
242.
243.
244.
245.
246.
247.
248.
249.
250.
251.
252.
253.
254.
255.
256.
257.
258.
259.
260.
261.
262.
263.
264.
265.
266.
267.
268.
269.
270.
271.
272.
273.
274.
275.
276.
277.
278.
279.
280.
281.
282.
283.
284.
285.
286.
287.
288.
289.
290.
291.
292.
293.
294.
295.
296.
297.
298.
299.
300.
301.
302.
303.
304.
305.
306.
307.
308.
309.
310.
311.
312.
313.
314.
315.
316.
317.
318.
319.
320.
321.
322.
323.
324.
325.
326.
327.
328.
329.
330.
331.
332.
333.
334.
335.
336.
337.
338.
339.
340.
341.
342.
343.
344.
345.
346.
347.
348.
349.
350.
351.
352.
353.
354.
355.
356.
357.
358.
359.
360.
361.
362.
363.
364.
365.
366.
367.
368.
369.
370.
371.
372.
373.
374.
375.
376.
377.
378.
379.
380.
381.
382.
383.
384.
385.
386.
387.
388.
389.
390.
391.
392.
393.
394.
395.
396.
397.
398.
399.
400.
401.
402.
403.
404.
405.
406.
407.
408.
409.
410.
411.
412.
413.
414.
415.
416.
417.
418.
419.
420.
421.
422.
423.
424.
425.
426.
427.
428.
429.
430.
431.
432.
433.
434.
435.
436.
437.
438.
439.
440.
441.
442.
443.
444.
445.
446.
447.
448.
449.
450.
451.
452.
453.
454.
455.
456.
457.
458.
459.
460.
461.
462.
463.
464.
465.
466.
467.
468.
469.
470.
471.
472.
473.
474.
475.
476.
477.
478.
479.
480.
481.
482.
483.
484.
485.
486.
487.
488.
489.
490.
491.
492.
493.
494.
495.
496.
497.
498.
499.
500.
501.
502.
503.
504.
505.
506.
507.
508.
509.
510.
511.
512.
513.
514.
515.
516.
517.
518.
519.
520.
Option Explicit

Dim j, i, y, NumRow, NumCol, iRow, yColl, Sheet3_iRow, Sheet3, Sheet2_iColl, Sheet2_iRow, Sheet2 As Integer
Dim Kanal, Auditor, StrKanal, StrKanal2, StrAudit, StrAudit2, Gorod As String
Dim Aud_Perviy, Aud_EURONEWS, Aud_Disney, Aud_TV3, Aud_RenTV, Aud_Pyatiy, Aud_U, Aud_2x2, Aud_Pyatnica As String ' VI
Dim Aud_NTV, Aud_TVC, Aud_TNT, Aud_Zvezda As String ' Alkasar
Dim Aud_Russia1, Aud_Russia2, Aud_Russia24 As String ' RTR-Media
Dim Aud_STS, Aud_Perec, Aud_Dom As String ' Эверест-С
Dim Aud_Miscow24, Aud_MiscowDoverie As String ' РА Диаманд
Dim Sell_VI, Sell_Alkasar, Sell_RTR_Media, Sell_STS_Media, Sell_Diamand_Media As String ' точка родаж
Dim SellTipe_GRP, SellTipe_MIN  As String ' Тип продаж
Dim TVR_BA, TVR_CA As Single ' Целевые и базовые аудитории.

Sub Affinity()
'
' Affinity Макрос
' Обработка выгрузки из Palomars
' C:\Users\smLazarev\AppData\Roaming\Microsoft\Excel\XLSTART\PERSONAL.XLSB
' Сочетание клавиш: Ctrl+q
Function_Sheet2 (Sheet2)
If Worksheets(2).Cells(1, 1).Value <> "" Then
Worksheets(2).Select
Worksheets(2).Range(Cells(1, 1), Cells(Sheet2_iRow, Sheet2_iColl)).Clear
End If
 

Worksheets(2).Cells(1, 1) = "Город"
Worksheets(2).Cells(1, 2) = "Канал"
Worksheets(2).Cells(1, 3) = "БА"
Worksheets(2).Cells(1, 4) = "Тип продажи"
Worksheets(2).Cells(1, 5) = "Точка продажи"
Worksheets(2).Cells(1, 6) = "TVR БА"
Worksheets(2).Cells(1, 7) = "TVR ЦА"
Worksheets(2).Cells(1, 8) = "Affinity"
 
iRow = 2
yColl = 3
 
Worksheets(3).Cells(3, 2).Value = "каналы не найденные в файле БА" ' занесение данной строки на лист 3

'Подсчет количества имеющихся строк в выгрузке
NumRow = 0
While Worksheets(1).Cells(NumRow + 3, 1).Value <> ""
StrKanal = Worksheets(1).Cells(NumRow + 3, 2)  'Заполнение  Канал (StrKanal - канал (город) ).
    j = 1
    For j = 1 To 30
        StrKanal2 = Mid(StrKanal, j, 2) ' поиск в словах символа " ("
        If StrKanal2 = " (" Then
            StrKanal2 = Mid(StrKanal, 1, j - 1) ' Оставляем и используем все слов до символа " ("
            Worksheets(1).Cells(NumRow + 3, 2) = StrKanal2 ' (StrKanal2 - Только канал).
        End If
    Next

NumRow = NumRow + 1
Wend

NumCol = 0
While Worksheets(1).Cells(1, NumCol + 4).Value <> ""
NumCol = NumCol + 1

StrAudit = Worksheets(1).Cells(1, NumCol + 4)  'Заполнение  Канал (StrAudit - Аудитория + (канал) ).
    j = 1
    For j = 1 To 30
        StrAudit2 = Mid(StrAudit, j, 2) ' поиск в словах символа " ("
        If StrAudit2 = " (" Then
            StrAudit2 = Mid(StrAudit, 1, j - 1) ' Оставляем и используем все слов до символа " ("
            Worksheets(1).Cells(1, NumCol + 4) = StrAudit2 ' (StrAudit2 - Только аудитория).
        End If
    Next
Wend
 


'Цикл по строкам
For i = 1 To NumRow
  

    Kanal = Worksheets(1).Cells(i + 2, 2).Value ' переменая канала
    Gorod = Worksheets(1).Cells(i + 2, 1).Value ' переменная город
    TVR_CA = Worksheets(1).Cells(i + 2, 4).Value ' Переменная ЦА
    FnctionShareKanal (Auditor), (TVR_BA), (Kanal), (Gorod), (TVR_CA)
    
    'Worksheets(2).Cells(Sheet2_iRow, 1) = Worksheets(1).Cells(2 + i, 1) 'заполнение  Город
    'Worksheets(2).Cells(Sheet2_iRow, 2) = Worksheets(1).Cells(2 + i, 2) 'Заполнение  Канал
    'MsgBox Worksheets(2).Cells(Sheet2_iRow, 2)
    
    Worksheets(2).Cells(Sheet2_iRow, 3) = Auditor 'Заполнение  Базовой Аудитории (БА)
    Worksheets(2).Cells(Sheet2_iRow, 6) = TVR_BA 'Заполнение  TVR Базовой Аудитории (БА)
     
    
    'Worksheets(2).Cells(Sheet2_iRow, 7) = Worksheets(1).Cells(2 + i, 4) 'Заполнение  Целевой Аудитории (ЦА)
    Worksheets(2).Cells(Sheet2_iRow, 8) = "=RC[-1]/RC[-2]*100"
Next


Worksheets(2).Select
Worksheets(2).Range("a1:h1").Interior.Color = 5296274
Worksheets(2).Range("a1:h1").Font.Bold = True
Worksheets(2).Range(Cells(1, 1), Cells(Sheet2_iRow, 8)).Borders(xlEdgeLeft).LineStyle = xlContinuous
Worksheets(2).Range(Cells(1, 1), Cells(Sheet2_iRow, 8)).Borders(xlEdgeTop).LineStyle = xlContinuous
Worksheets(2).Range(Cells(1, 1), Cells(Sheet2_iRow, 8)).Borders(xlEdgeBottom).LineStyle = xlContinuous
Worksheets(2).Range(Cells(1, 1), Cells(Sheet2_iRow, 8)).Borders(xlEdgeRight).LineStyle = xlContinuous
Worksheets(2).Range(Cells(1, 1), Cells(Sheet2_iRow, 8)).Borders(xlInsideVertical).LineStyle = xlContinuous
Worksheets(2).Range(Cells(1, 1), Cells(Sheet2_iRow, 8)).Borders(xlInsideHorizontal).LineStyle = xlContinuous
Worksheets(2).Range(Cells(2, 8), Cells(Sheet2_iRow, 8)).NumberFormat = "0"
'Worksheets(2).Range(Cells(1, 1), Cells(Sheet2_iRow, 8)).Sort.Orientation = xlTopToBottom

'ActiveWorkbook.Worksheets ("Лист2")
        '.SetRange Range("A2:H17")
        '.Header = xlGuess
        '.MatchCase = False
        
 
   
End Sub

Public Function FnctionShareKanal(a, b, s, d, f As String)

'/////////////////// - ВИ - ////////////////////////
Aud_Perviy = "All 14-59"       ' Первый | ВИ
Aud_EURONEWS = "All 18+"       ' Евроньюсь | ВИ
Aud_Disney = "All 10-45"       ' Disney | ВИ
Aud_TV3 = "All 25-59"          ' ТВ-3 | ВИ
Aud_RenTV = "All 25-59"        ' Ren-TV | ВИ
Aud_Pyatiy = "All 25-59"       ' Пятый | ВИ
Aud_U = "W 14-39"              ' Ю | ВИ
Aud_2x2 = "All 11-34"          ' 2x2 | ВИ
Aud_Pyatnica = "All 14-44"     ' Пятница | ВИ

'////////////////// - Алькасар - /////////////////////////
Aud_NTV = "All 18+"            ' НТВ | Алькасар
Aud_TNT = "All 14-44"          ' ТНТ | Алькасар
Aud_TVC = "All 18+"            ' ТВ-Центр | Алькасар
Aud_Zvezda = "All 18+"         ' Звезда | Алькасар

'/////////////////// - РТР МЕДИА - ////////////////////////
Aud_Russia1 = "All 25+"        ' Россия 1 | РТР-Медиа
Aud_Russia2 = "M 25-59"        ' Россия 2 | РТР-Медиа
Aud_Russia24 = "M 25-59"       ' Россия 24 | РТР-Медиа

'/////////////////// - Эверест-С - ////////////////////////
Aud_STS = "All 10-45"          ' СТС | Эверест-С
Aud_Perec = "All 25-49"        ' Перец | Эверест-С
Aud_Dom = "W 25-59"            ' Домашний | Эверест-С

' //////////////////- РА Диаманд - ////////////////////
Aud_MiscowDoverie = "All 18+" ' МОСКВА.ДОВЕРИЕ" | РА Диаманд
Aud_Miscow24 = "All 18+" ' МОСКВА - 24" | РА Диаманд

'////////Точки продаж ///////////
Sell_VI = "ВИ"
Sell_Alkasar = "Алькасар"
Sell_RTR_Media = "РТР-Медиа"
Sell_STS_Media = "Эверест-С"
Sell_Diamand_Media = "РА Диаманд"

'////Тип продаж/////
SellTipe_GRP = "GRP"
SellTipe_MIN = "Мин"


For iRow = 3 To NumRow + 2
    If Worksheets(1).Cells(iRow, 2).Value = Kanal Then
'//////////////////////////////// ВИ  //////////////////////////////////////
        If Kanal = "ПЕРВЫЙ КАНАЛ" Then
            For yColl = 4 To NumCol + 4
                'MsgBox Worksheets(1).Cells(1, yColl).Value & " | " & Aud_Perviy
                If Worksheets(1).Cells(1, yColl).Value = Aud_Perviy Then
                    TVR_BA = Worksheets(1).Cells(iRow, yColl).Value
                    Auditor = Worksheets(1).Cells(1, yColl).Value
                    Function_Sheet2 (Sheet2)
                    Worksheets(2).Cells(Sheet2_iRow, 5).Value = Sell_VI     ' ВИ
                    Worksheets(2).Cells(Sheet2_iRow, 4).Value = SellTipe_GRP ' GRP
                    Worksheets(2).Cells(Sheet2_iRow, 1) = Gorod
                    Worksheets(2).Cells(Sheet2_iRow, 2) = Kanal
                    Worksheets(2).Cells(Sheet2_iRow, 7) = TVR_CA
                    
                    Exit For
                'Else: FunctionSheet3 (aa)
                End If
            Next
        ElseIf Kanal = "EURONEWS / ЕВК" Then
           For yColl = 4 To NumCol + 4
                If Worksheets(1).Cells(1, yColl).Value = Aud_TVC Then
                    TVR_BA = Worksheets(1).Cells(iRow, yColl).Value
                    Auditor = Worksheets(1).Cells(1, yColl).Value
                    Function_Sheet2 (Sheet2)
                    Worksheets(2).Cells(Sheet2_iRow, 5).Value = Sell_VI     ' ВИ
                    Worksheets(2).Cells(Sheet2_iRow, 4).Value = SellTipe_GRP ' GRP
                    Worksheets(2).Cells(Sheet2_iRow, 1) = Gorod
                    Worksheets(2).Cells(Sheet2_iRow, 2) = Kanal
                    Worksheets(2).Cells(Sheet2_iRow, 7) = TVR_CA
                    Exit For
                'Else: FunctionSheet3 (aa)
                End If
            Next
        ElseIf Kanal = "КАНАЛ DISNEY" Then
           For yColl = 4 To NumCol + 4
                If Worksheets(1).Cells(1, yColl).Value = Aud_Disney Then
                    TVR_BA = Worksheets(1).Cells(iRow, yColl).Value
                    Auditor = Worksheets(1).Cells(1, yColl).Value
                    Function_Sheet2 (Sheet2)
                    Worksheets(2).Cells(Sheet2_iRow, 5).Value = Sell_VI     ' ВИ
                    Worksheets(2).Cells(Sheet2_iRow, 4).Value = SellTipe_GRP ' GRP
                    Worksheets(2).Cells(Sheet2_iRow, 1) = Gorod
                    Worksheets(2).Cells(Sheet2_iRow, 2) = Kanal
                    Worksheets(2).Cells(Sheet2_iRow, 7) = TVR_CA
                    Exit For
                'Else: MsgBox "no"
                End If
            Next
        ElseIf Kanal = "ТВ-3" Then
           For yColl = 4 To NumCol + 4
                If Worksheets(1).Cells(1, yColl).Value = Aud_TV3 Then
                    TVR_BA = Worksheets(1).Cells(iRow, yColl).Value
                    Auditor = Worksheets(1).Cells(1, yColl).Value
                    Function_Sheet2 (Sheet2)
                    Worksheets(2).Cells(Sheet2_iRow, 5).Value = Sell_VI     ' ВИ
                    Worksheets(2).Cells(Sheet2_iRow, 4).Value = SellTipe_GRP ' GRP
                    Worksheets(2).Cells(Sheet2_iRow, 1) = Gorod
                    Worksheets(2).Cells(Sheet2_iRow, 2) = Kanal
                    Worksheets(2).Cells(Sheet2_iRow, 7) = TVR_CA
                    Exit For
                'Else: MsgBox "no"
                End If
            Next
        ElseIf Kanal = "РЕН ТВ" Then
           For yColl = 4 To NumCol + 4
                If Worksheets(1).Cells(1, yColl).Value = Aud_RenTV Then
                    TVR_BA = Worksheets(1).Cells(iRow, yColl).Value
                    Auditor = Worksheets(1).Cells(1, yColl).Value
                    Function_Sheet2 (Sheet2)
                    Worksheets(2).Cells(Sheet2_iRow, 5).Value = Sell_VI     ' ВИ
                    Worksheets(2).Cells(Sheet2_iRow, 4).Value = SellTipe_GRP ' GRP
                    Worksheets(2).Cells(Sheet2_iRow, 1) = Gorod
                    Worksheets(2).Cells(Sheet2_iRow, 2) = Kanal
                    Worksheets(2).Cells(Sheet2_iRow, 7) = TVR_CA
                    Exit For
                'Else: MsgBox "no"
                End If
            Next
        ElseIf Kanal = "ПЯТЫЙ КАНАЛ" Then
           For yColl = 4 To NumCol + 4
                If Worksheets(1).Cells(1, yColl).Value = Aud_Pyatiy Then
                    TVR_BA = Worksheets(1).Cells(iRow, yColl).Value
                    Auditor = Worksheets(1).Cells(1, yColl).Value
                    Function_Sheet2 (Sheet2)
                    Worksheets(2).Cells(Sheet2_iRow, 5).Value = Sell_VI     ' ВИ
                    Worksheets(2).Cells(Sheet2_iRow, 4).Value = SellTipe_GRP ' GRP
                    Worksheets(2).Cells(Sheet2_iRow, 1) = Gorod
                    Worksheets(2).Cells(Sheet2_iRow, 2) = Kanal
                    Worksheets(2).Cells(Sheet2_iRow, 7) = TVR_CA
                    Exit For
                'Else: MsgBox "no"
                End If
            Next
        ElseIf Kanal = "Ю" Then
           For yColl = 4 To NumCol + 4
                If Worksheets(1).Cells(1, yColl).Value = Aud_U Then
                    TVR_BA = Worksheets(1).Cells(iRow, yColl).Value
                    Auditor = Worksheets(1).Cells(1, yColl).Value
                    Function_Sheet2 (Sheet2)
                    Worksheets(2).Cells(Sheet2_iRow, 5).Value = Sell_VI     ' ВИ
                    Worksheets(2).Cells(Sheet2_iRow, 4).Value = SellTipe_GRP ' GRP
                    Worksheets(2).Cells(Sheet2_iRow, 1) = Gorod
                    Worksheets(2).Cells(Sheet2_iRow, 2) = Kanal
                    Worksheets(2).Cells(Sheet2_iRow, 7) = TVR_CA
                    Exit For
                'Else: MsgBox "no"
                End If
            Next
        ElseIf Kanal = "2X2" Then
           For yColl = 4 To NumCol + 4
                If Worksheets(1).Cells(1, yColl).Value = Aud_2x2 Then
                    TVR_BA = Worksheets(1).Cells(iRow, yColl).Value
                    Auditor = Worksheets(1).Cells(1, yColl).Value
                    Function_Sheet2 (Sheet2)
                    Worksheets(2).Cells(Sheet2_iRow, 5).Value = Sell_VI     ' ВИ
                    Worksheets(2).Cells(Sheet2_iRow, 4).Value = SellTipe_GRP ' GRP
                    Worksheets(2).Cells(Sheet2_iRow, 1) = Gorod
                    Worksheets(2).Cells(Sheet2_iRow, 2) = Kanal
                    Worksheets(2).Cells(Sheet2_iRow, 7) = TVR_CA
                    Exit For
                'Else: MsgBox "no"
                End If
            Next
        ElseIf Kanal = "ПЯТНИЦА" Then
           For yColl = 4 To NumCol + 4
                If Worksheets(1).Cells(1, yColl).Value = Aud_Pyatnica Then
                    TVR_BA = Worksheets(1).Cells(iRow, yColl).Value
                    Auditor = Worksheets(1).Cells(1, yColl).Value
                    Function_Sheet2 (Sheet2)
                    Worksheets(2).Cells(Sheet2_iRow, 5).Value = Sell_VI     ' ВИ
                    Worksheets(2).Cells(Sheet2_iRow, 4).Value = SellTipe_GRP ' GRP
                    Worksheets(2).Cells(Sheet2_iRow, 1) = Gorod
                    Worksheets(2).Cells(Sheet2_iRow, 2) = Kanal
                    Worksheets(2).Cells(Sheet2_iRow, 7) = TVR_CA
                    Exit For
                'Else: MsgBox "no"
                End If
            Next
'//////////////////////////////// АЛЬКАСАР  //////////////////////////////////////
        ElseIf Kanal = "НТВ" Then
           For yColl = 4 To NumCol + 4
                If Worksheets(1).Cells(1, yColl).Value = Aud_NTV Then
                    TVR_BA = Worksheets(1).Cells(iRow, yColl).Value
                    Auditor = Worksheets(1).Cells(1, yColl).Value
                    Function_Sheet2 (Sheet2)
                    Worksheets(2).Cells(Sheet2_iRow, 5).Value = Sell_Alkasar ' АЛЬКАСАР
                    Worksheets(2).Cells(Sheet2_iRow, 4).Value = SellTipe_GRP ' GRP
                    Worksheets(2).Cells(Sheet2_iRow, 1) = Gorod
                    Worksheets(2).Cells(Sheet2_iRow, 2) = Kanal
                    Worksheets(2).Cells(Sheet2_iRow, 7) = TVR_CA
                    Exit For
                'Else: MsgBox "no"
                End If
            Next
        ElseIf Kanal = "ТВ ЦЕНТР" Then
           For yColl = 4 To NumCol + 4
                If Worksheets(1).Cells(1, yColl).Value = Aud_TVC Then
                    TVR_BA = Worksheets(1).Cells(iRow, yColl).Value
                    Auditor = Worksheets(1).Cells(1, yColl).Value
                    Function_Sheet2 (Sheet2)
                    Worksheets(2).Cells(Sheet2_iRow, 5).Value = Sell_Alkasar ' АЛЬКАСАР
                    Worksheets(2).Cells(Sheet2_iRow, 4).Value = SellTipe_GRP ' GRP
                    Worksheets(2).Cells(Sheet2_iRow, 1) = Gorod
                    Worksheets(2).Cells(Sheet2_iRow, 2) = Kanal
                    Worksheets(2).Cells(Sheet2_iRow, 7) = TVR_CA
                    Exit For
                'Else: MsgBox "no"
                End If
            Next
        ElseIf Kanal = "ТНТ" Then
           For yColl = 4 To NumCol + 4
                If Worksheets(1).Cells(1, yColl).Value = Aud_TNT Then
                    TVR_BA = Worksheets(1).Cells(iRow, yColl).Value
                    Auditor = Worksheets(1).Cells(1, yColl).Value
                    Function_Sheet2 (Sheet2)
                    Worksheets(2).Cells(Sheet2_iRow, 5).Value = Sell_Alkasar ' АЛЬКАСАР
                    Worksheets(2).Cells(Sheet2_iRow, 4).Value = SellTipe_GRP ' GRP
                    Worksheets(2).Cells(Sheet2_iRow, 1) = Gorod
                    Worksheets(2).Cells(Sheet2_iRow, 2) = Kanal
                    Worksheets(2).Cells(Sheet2_iRow, 7) = TVR_CA
                    Exit For
                'Else: MsgBox "no"
                End If
            Next
        ElseIf Kanal = "ЗВЕЗДА" Then
           For yColl = 4 To NumCol + 4
                If Worksheets(1).Cells(1, yColl).Value = Aud_Zvezda Then
                    TVR_BA = Worksheets(1).Cells(iRow, yColl).Value
                    Auditor = Worksheets(1).Cells(1, yColl).Value
                    Function_Sheet2 (Sheet2)
                    Worksheets(2).Cells(Sheet2_iRow, 5).Value = Sell_Alkasar ' АЛЬКАСАР
                    Worksheets(2).Cells(Sheet2_iRow, 4).Value = SellTipe_GRP ' GRP
                    Worksheets(2).Cells(Sheet2_iRow, 1) = Gorod
                    Worksheets(2).Cells(Sheet2_iRow, 2) = Kanal
                    Worksheets(2).Cells(Sheet2_iRow, 7) = TVR_CA
                    Exit For
                'Else: MsgBox "no"
                End If
            Next
'////////////////////////////////  РТР - МЕДИА  //////////////////////////////////////
        ElseIf Kanal = "РОССИЯ 1" Then
           For yColl = 4 To NumCol + 4
                If Worksheets(1).Cells(1, yColl).Value = Aud_Russia1 Then
                    TVR_BA = Worksheets(1).Cells(iRow, yColl).Value
                    Auditor = Worksheets(1).Cells(1, yColl).Value
                    Function_Sheet2 (Sheet2)
                    Worksheets(2).Cells(Sheet2_iRow, 5).Value = Sell_RTR_Media ' РТР-МЕДИА
                    Worksheets(2).Cells(Sheet2_iRow, 4).Value = SellTipe_GRP ' GRP
                    Worksheets(2).Cells(Sheet2_iRow, 1) = Gorod
                    Worksheets(2).Cells(Sheet2_iRow, 2) = Kanal
                    Worksheets(2).Cells(Sheet2_iRow, 7) = TVR_CA
                    Exit For
                'Else: MsgBox "no"
                End If
            Next
        ElseIf Kanal = "РОССИЯ 2" Then
           For yColl = 4 To NumCol + 4
           'MsgBox Worksheets(1).Cells(1, yColl).Value & " | " & Aud_Russia2
                If Worksheets(1).Cells(1, yColl).Value = Aud_Russia2 Then
                    TVR_BA = Worksheets(1).Cells(iRow, yColl).Value
                    Auditor = Worksheets(1).Cells(1, yColl).Value
                    Function_Sheet2 (Sheet2)
                    Worksheets(2).Cells(Sheet2_iRow, 5).Value = Sell_RTR_Media ' РТР-МЕДИА
                    Worksheets(2).Cells(Sheet2_iRow, 4).Value = SellTipe_MIN ' Минуты
                    Worksheets(2).Cells(Sheet2_iRow, 1) = Gorod
                    Worksheets(2).Cells(Sheet2_iRow, 2) = Kanal
                    Worksheets(2).Cells(Sheet2_iRow, 7) = TVR_CA
                    'MsgBox "россия 2"
                    Exit For
                'Else: MsgBox Kanal
                End If
            Next
        ElseIf Kanal = "РОССИЯ 24" Then
           For yColl = 4 To NumCol + 4
                If Worksheets(1).Cells(1, yColl).Value = Aud_Russia24 Then
                    TVR_BA = Worksheets(1).Cells(iRow, yColl).Value
                    Auditor = Worksheets(1).Cells(1, yColl).Value
                    Function_Sheet2 (Sheet2)
                    Worksheets(2).Cells(Sheet2_iRow, 5).Value = Sell_RTR_Media ' РТР-МЕДИА
                    Worksheets(2).Cells(Sheet2_iRow, 4).Value = SellTipe_GRP ' GRP
                    Worksheets(2).Cells(Sheet2_iRow, 1) = Gorod
                    Worksheets(2).Cells(Sheet2_iRow, 2) = Kanal
                    Worksheets(2).Cells(Sheet2_iRow, 7) = TVR_CA
                    'MsgBox "россия 24"
                    Exit For
                'Else: MsgBox Kanal
                End If
            Next
        ElseIf Kanal = "СТС" Then
           For yColl = 4 To NumCol + 4
                If Worksheets(1).Cells(1, yColl).Value = Aud_STS Then
                    TVR_BA = Worksheets(1).Cells(iRow, yColl).Value
                    Auditor = Worksheets(1).Cells(1, yColl).Value
                    Function_Sheet2 (Sheet2)
                    Worksheets(2).Cells(Sheet2_iRow, 5).Value = Sell_STS_Media ' СТС-МЕДИА
                    Worksheets(2).Cells(Sheet2_iRow, 4).Value = SellTipe_GRP ' GRP
                    Worksheets(2).Cells(Sheet2_iRow, 1) = Gorod
                    Worksheets(2).Cells(Sheet2_iRow, 2) = Kanal
                    Worksheets(2).Cells(Sheet2_iRow, 7) = TVR_CA
                    Exit For
                'Else: MsgBox "no"
                End If
            Next
        ElseIf Kanal = "ПЕРЕЦ" Then
           For yColl = 4 To NumCol + 4
                If Worksheets(1).Cells(1, yColl).Value = Aud_Perec Then
                    TVR_BA = Worksheets(1).Cells(iRow, yColl).Value
                    Auditor = Worksheets(1).Cells(1, yColl).Value
                    Function_Sheet2 (Sheet2)
                    Worksheets(2).Cells(Sheet2_iRow, 5).Value = Sell_STS_Media ' СТС-МЕДИА
                    Worksheets(2).Cells(Sheet2_iRow, 4).Value = SellTipe_GRP ' GRP
                    Worksheets(2).Cells(Sheet2_iRow, 1) = Gorod
                    Worksheets(2).Cells(Sheet2_iRow, 2) = Kanal
                    Worksheets(2).Cells(Sheet2_iRow, 7) = TVR_CA
                    Exit For
                'Else: MsgBox "no"
                End If
            Next
        ElseIf Kanal = "ДОМАШНИЙ" Then
           For yColl = 4 To NumCol + 4
                If Worksheets(1).Cells(1, yColl).Value = Aud_Dom Then
                    TVR_BA = Worksheets(1).Cells(iRow, yColl).Value
                    Auditor = Worksheets(1).Cells(1, yColl).Value
                    Function_Sheet2 (Sheet2)
                    Worksheets(2).Cells(Sheet2_iRow, 5).Value = Sell_STS_Media ' СТС-МЕДИА
                    Worksheets(2).Cells(Sheet2_iRow, 4).Value = SellTipe_GRP ' GRP
                    Worksheets(2).Cells(Sheet2_iRow, 1) = Gorod
                    Worksheets(2).Cells(Sheet2_iRow, 2) = Kanal
                    Worksheets(2).Cells(Sheet2_iRow, 7) = TVR_CA
                    Exit For
                'Else: MsgBox "no"
                End If
            Next
'//////////////////////////////////////// РА Диаманд /////////////////////////////////////////////////
        ElseIf Kanal = "МОСКВА. ДОВЕРИЕ" Then
           For yColl = 4 To NumCol + 4
                If Worksheets(1).Cells(1, yColl).Value = Aud_MiscowDoverie Then
                    TVR_BA = Worksheets(1).Cells(iRow, yColl).Value
                    Auditor = Worksheets(1).Cells(1, yColl).Value
                    Function_Sheet2 (Sheet2)
                    Worksheets(2).Cells(Sheet2_iRow, 5).Value = Sell_Diamand_Media ' РА Диаманд
                    Worksheets(2).Cells(Sheet2_iRow, 4).Value = SellTipe_MIN ' Минуты
                    Worksheets(2).Cells(Sheet2_iRow, 1) = Gorod
                    Worksheets(2).Cells(Sheet2_iRow, 2) = Kanal
                    Worksheets(2).Cells(Sheet2_iRow, 7) = TVR_CA
                    Exit For
                'Else: MsgBox "no"
                End If
            Next
        ElseIf Kanal = "МОСКВА-24" Then
           For yColl = 4 To NumCol + 4
                If Worksheets(1).Cells(1, yColl).Value = Aud_Miscow24 Then
                    TVR_BA = Worksheets(1).Cells(iRow, yColl).Value
                    Auditor = Worksheets(1).Cells(1, yColl).Value
                    Function_Sheet2 (Sheet2)
                    Worksheets(2).Cells(Sheet2_iRow, 5).Value = Sell_Diamand_Media ' РА Диаманд
                    Worksheets(2).Cells(Sheet2_iRow, 4).Value = SellTipe_MIN ' Минуты
                    Worksheets(2).Cells(Sheet2_iRow, 1) = Gorod
                    Worksheets(2).Cells(Sheet2_iRow, 2) = Kanal
                    Worksheets(2).Cells(Sheet2_iRow, 7) = TVR_CA
                    Exit For
                'Else: MsgBox "no"
                End If
            Next
        Else
                Function_Sheet3 (Sheet3)
                'MsgBox Kanal
                Exit For
        End If
    End If
Next



    
'Worksheets(2).Cells(iRow, yColl).Select
End Function

Public Function Function_Sheet2(S2 As Integer)
    Sheet2_iRow = 1
    While Worksheets(2).Cells(Sheet2_iRow, 2).Value <> ""
        Sheet2_iRow = Sheet2_iRow + 1
    Wend
    Sheet2_iColl = 1
    While Worksheets(2).Cells(1, Sheet2_iColl).Value <> ""
        Sheet2_iColl = Sheet2_iColl + 1
    Wend
End Function

Public Function Function_Sheet3(S3 As Integer)
    Sheet3_iRow = 3
    While Worksheets(3).Cells(Sheet3_iRow, 2).Value <> ""
        Sheet3_iRow = Sheet3_iRow + 1
    Wend
        Worksheets(3).Cells(Sheet3_iRow, 2).Value = Kanal
        Worksheets(3).Cells(Sheet3_iRow, 3).Value = "Не найдена аудитория"
End Function

Модератор: Учимся использовать спойлер для простыней
...
Рейтинг: 0 / 0
14.01.2014, 12:23
| Ответить | Цитировать | Написать  
Ошибка прерывания кода. (возникает случайным образом)
    #38525542
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Sub Affinity() вижу... End Sub - в упор не вижу.

Не надо постить кривой хлам...
...
Рейтинг: 0 / 0
14.01.2014, 13:41
| Ответить | Цитировать | Написать  
Ошибка прерывания кода. (возникает случайным образом)
    #38525557
Фотография lopuxi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lopuxi
Участник
Akina,

Так назывался макрос, так оно в названии и осталось.

End sub идет сразу после:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Worksheets(2).Select
Worksheets(2).Range("a1:h1").Interior.Color = 5296274
Worksheets(2).Range("a1:h1").Font.Bold = True
Worksheets(2).Range(Cells(1, 1), Cells(Sheet2_iRow, 8)).Borders(xlEdgeLeft).LineStyle = xlContinuous
Worksheets(2).Range(Cells(1, 1), Cells(Sheet2_iRow, 8)).Borders(xlEdgeTop).LineStyle = xlContinuous
Worksheets(2).Range(Cells(1, 1), Cells(Sheet2_iRow, 8)).Borders(xlEdgeBottom).LineStyle = xlContinuous
Worksheets(2).Range(Cells(1, 1), Cells(Sheet2_iRow, 8)).Borders(xlEdgeRight).LineStyle = xlContinuous
Worksheets(2).Range(Cells(1, 1), Cells(Sheet2_iRow, 8)).Borders(xlInsideVertical).LineStyle = xlContinuous
Worksheets(2).Range(Cells(1, 1), Cells(Sheet2_iRow, 8)).Borders(xlInsideHorizontal).LineStyle = xlContinuous
Worksheets(2).Range(Cells(2, 8), Cells(Sheet2_iRow, 8)).NumberFormat = "0"
'Worksheets(2).Range(Cells(1, 1), Cells(Sheet2_iRow, 8)).Sort.Orientation = xlTopToBottom

'ActiveWorkbook.Worksheets ("Лист2")
        '.SetRange Range("A2:H17")
        '.Header = xlGuess
        '.MatchCase = False
         
End Sub



все остальное, то есть ниже по коду это функции.
...
Рейтинг: 0 / 0
14.01.2014, 13:53
| Ответить | Цитировать | Написать  
Ошибка прерывания кода. (возникает случайным образом)
    #38525601
5005
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
5005
Гость
lopuxi,

 
на всякей
а
может
FontBold

...
Рейтинг: 0 / 0
14.01.2014, 14:14
| Ответить | Цитировать | Написать  
Ошибка прерывания кода. (возникает случайным образом)
    #38525617
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
5005,

не имеет значения, можно и так и так
...
Рейтинг: 0 / 0
14.01.2014, 14:21
| Ответить | Цитировать | Написать  
Ошибка прерывания кода. (возникает случайным образом)
    #38525662
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
Ну так и выложи ДВА файла. Один с данными, другой с макросом. И точную методику воспроизведения проблемы.
...
Рейтинг: 0 / 0
14.01.2014, 14:35
| Ответить | Цитировать | Написать  
Ошибка прерывания кода. (возникает случайным образом)
    #38525673
Фотография lopuxi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lopuxi
Участник
Ковыряясь в коде, я тут обнаружил проблем.
Она в моменте поиска по аудиториям, канала Россия 2.
То есть, второй цикл ломается, на первом моменте, когда канал Россия 2 (переменная - Kanal) проходит условия совпадения. kanal = Россия 2. Вступает второй цикл с поиском аудитории и тут буквально на первой же проверке:
Код: vbnet
1.
If Worksheets(1).Cells(1, yColl).Value = Aud_Russia2 Then


он выдает ошибку: - "code execution has been interrupted"

Перепроверил переменные... закомпилировал все, оставил только цикл, ошибка перемещается с уловия If в цикл For и остается. Почему то, именно на этом месте код буксует, пока не могу понять почему..

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
For yColl = 4 To NumCol + 4
                    MsgBox Worksheets(1).Cells(1, yColl).Value & " | " & Aud_Russia2
                 'If Worksheets(1).Cells(1, yColl).Value = Aud_Russia2 Then
                    'TVR_BA = Worksheets(1).Cells(iRow, yColl).Value
                    'Auditor = Worksheets(1).Cells(1, yColl).Value
                    'Function_Sheet2 (Sheet2)
                    'Worksheets(2).Cells(Sheet2_iRow, 5).Value = Sell_RTR_Media ' &#208;&#210;&#208;-&#204;&#197;&#196;&#200;&#192;
                    'Worksheets(2).Cells(Sheet2_iRow, 4).Value = SellTipe_GRP  ' &#204;&#232;&#237;&#243;&#242;&#251;
                    'Worksheets(2).Cells(Sheet2_iRow, 1) = Gorod
                    'Worksheets(2).Cells(Sheet2_iRow, 2) = Kanal
                    'Worksheets(2).Cells(Sheet2_iRow, 7) = TVR_CA
                    'Exit For
                'Else: Worksheets(3).Cells(1, 1).Value = Kanal
                'Worksheets(3).Cells(2, 1).Value = Aud_Russia2
                  'End If
            Next



При том странность на этом не заканчивается. Полностью идентичный код, к пример "первый Канал" - работает, как по маслу.
...
Рейтинг: 0 / 0
14.01.2014, 14:41
| Ответить | Цитировать | Написать  
Ошибка прерывания кода. (возникает случайным образом)
    #38525676
Фотография lopuxi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lopuxi
Участник
Akina,

Вот макрос. В первом сообщении я крипел книгу1.xlsx, то с чем работает макрос.
...
Рейтинг: 0 / 0
14.01.2014, 14:43
| Ответить | Цитировать | Написать  
Ошибка прерывания кода. (возникает случайным образом)
    #38525806
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
lopuxi,

заменила листы на ссылки подправила код
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
Debug.Print Now, Excel.ActiveSheet.Name
WS2.Select
WS2.Activate
WS2.Range("a1:h1").Interior.Color = 5296274
WS2.Range("a1:h1").Font.Bold = True
''WS2.Range(Cells(1, 1), Cells(Sheet2_iRow, 8)).Borders.v
WS2.Range(Cells(1, 1), Cells(Sheet2_iRow, 8)).Borders(xlEdgeLeft).LineStyle = xlContinuous



у вас видимо модуль зависит от того, какой лист активен при запуске
...
Рейтинг: 0 / 0
14.01.2014, 15:52
| Ответить | Цитировать | Написать  
Ошибка прерывания кода. (возникает случайным образом)
    #38525814
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
lopuxi,

забыла приложить
...
Рейтинг: 0 / 0
14.01.2014, 15:55
| Ответить | Цитировать | Написать  
Ошибка прерывания кода. (возникает случайным образом)
    #38525833
Фотография lopuxi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lopuxi
Участник
ПЕНСИОНЕРКА,

спасибо. Однако странность с Россией 2 продолжается. Канал почему то не обрабатывается кодом, не в носится на лист 2. А так же не вносится на лист 3, куда должны попадать те каналы, что не вошли на лист 2 :-)
...
Рейтинг: 0 / 0
14.01.2014, 16:02
| Ответить | Цитировать | Написать  
Ошибка прерывания кода. (возникает случайным образом)
    #38525843
Фотография lopuxi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lopuxi
Участник
ПЕНСИОНЕРКА,

а нет, все нормально! Код России 2 был закомпелипрован, я не обратил внимание. :)
...
Рейтинг: 0 / 0
14.01.2014, 16:06
| Ответить | Цитировать | Написать  
Ошибка прерывания кода. (возникает случайным образом)
    #38525876
Фотография lopuxi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lopuxi
Участник
ПЕНСИОНЕРКА,

а что значит Debug.Print ? Я первый раз это встречаю. Как она работает?)
...
Рейтинг: 0 / 0
14.01.2014, 16:23
| Ответить | Цитировать | Написать  
Ошибка прерывания кода. (возникает случайным образом)
    #38525910
Фотография ПЕНСИОНЕРКА
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ПЕНСИОНЕРКА
Участник
lopuxi,
я не люблю msgbox, пользуюсь редко
Debug.Print выводит в окно отладки
можно задать трассировку
затем внимательно проанализировать
...
Рейтинг: 0 / 0
14.01.2014, 16:48
| Ответить | Цитировать | Написать  
Ошибка прерывания кода. (возникает случайным образом)
    #38525927
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
ПЕНСИОНЕРКАя не люблю msgbox, пользуюсь редко
Debug.Print выводит в окно отладки
можно задать трассировку
затем внимательно проанализировать
Ещё удобнее не Debug.Print, а комбинация Locals+Watch Windows. Видишь всё сразу, порой даже то, что не собирался смотреть - а оно вдруг изрядно помогает.
...
Рейтинг: 0 / 0
14.01.2014, 16:56
| Ответить | Цитировать | Написать  
Ошибка прерывания кода. (возникает случайным образом)
    #38525958
Фотография lopuxi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lopuxi
Участник
Я еще немного Вас помучаю.
Сейчас код работает, но работает отнюдь не все делает так как я хочу :)

Россия 2 все так и не хочет переносится на 3 лист, если аудитория данного канала не была найдена на листе 1.
Отсюда возникает непонятность. Пройти условие проверки по аудитории он не может.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
ElseIf Kanal = "РОССИЯ 2" Then
           For yColl = 4 To NumCol + 3 
           'Debug.Print WS1.Cells(1, yColl).Value & " | " & Aud_Russia2
                If WS1.Cells(1, yColl).Value = Aud_Russia2 Then
                    TVR_BA = WS1.Cells(iRow, yColl).Value
                    Auditor = WS1.Cells(1, yColl).Value
                    Function_Sheet2 (Sheet2)
                    WS2.Cells(Sheet2_iRow, 5).Value = Sell_RTR_Media ' РТР-МЕДИА
                    WS2.Cells(Sheet2_iRow, 4).Value = SellTipe_MIN ' Минуты
                    WS2.Cells(Sheet2_iRow, 1) = Gorod
                    WS2.Cells(Sheet2_iRow, 2) = Kanal
                    WS2.Cells(Sheet2_iRow, 7) = TVR_CA
                    Exit For
                'Else: MsgBox Kanal
                End If
            Next



Соответсвенно мы перепрыгиваем к Else

Код: vbnet
1.
2.
3.
4.
 Else 
                MsgBox Kanal & "  - сработало Else"
                Function_Sheet3 (Sheet3) 
                Exit For



Что должен выдать MsgBox? Наверное искомое Россия 2. А вот нет. Выдает ТВ ЦЕНТР / 3 КАНАЛ.

Почему, как переменная меняет свое ранее заданное значение ? О_о
...
Рейтинг: 0 / 0
14.01.2014, 17:17
| Ответить | Цитировать | Написать  
Ошибка прерывания кода. (возникает случайным образом)
    #38525960
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
lopuxiЧто должен выдать MsgBox? Наверное искомое Россия 2Почему вдруг? Он должен выдать все что угодно, кроме Россия 2, потому что в ветке If Kanal = "РОССИЯ 2" Then нет MsgBox-а
...
Рейтинг: 0 / 0
14.01.2014, 17:19
| Ответить | Цитировать | Написать  
Ошибка прерывания кода. (возникает случайным образом)
    #38525976
Фотография lopuxi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lopuxi
Участник
Shocker.Pro,

В переменную Kanal заносится - "Россия 2". Далее она идет сверяться со всеми другими каналами в большом цикле, находит саму себя, тоесть kanal(Россия2) = "Россия 2". Включается внутренний второй цикл по и If по поиску аудитории. И так как ее нету, он должен перейти к Else, все еще держа в памяти "Россия 2".

Я даже не могу понять, когда он меняет переменную.
...
Рейтинг: 0 / 0
14.01.2014, 17:29
| Ответить | Цитировать | Написать  
Ошибка прерывания кода. (возникает случайным образом)
    #38525991
Фотография lopuxi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lopuxi
Участник
Shocker.Pro,

Ты прав. До меня дошло что не так))
...
Рейтинг: 0 / 0
14.01.2014, 17:39
| Ответить | Цитировать | Написать  
Ошибка прерывания кода. (возникает случайным образом)
    #38525999
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Открой для себя отладку, точки останова и пошаговое выполнение программы
...
Рейтинг: 0 / 0
14.01.2014, 17:44
| Ответить | Цитировать | Написать  
Ошибка прерывания кода. (возникает случайным образом)
    #38526063
Фотография lopuxi
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lopuxi
Участник
Shocker.Pro,

если бы я знал это сделать. Я еще пока не понял как работает Debug.Print.
Сможешь объяснить как пользоваться Debug.Print и тобой предложенной комбинацией Locals+Watch Windows?

Или может есть хорошая, статья на эту тему.
...
Рейтинг: 0 / 0
14.01.2014, 18:18
| Ответить | Цитировать | Написать  
Ошибка прерывания кода. (возникает случайным образом)
    #38526067
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
lopuxiЯ еще пока не понял как работает Debug.Print.
Сможешь объяснить как пользоваться Debug.Print и тобой предложенной комбинацией Locals+Watch Windows?
View - Immediate Window
Откроется окно. Именно в него пишет Debug.Print.
Ну и там же остальные пункты.
...
Рейтинг: 0 / 0
14.01.2014, 18:20
| Ответить | Цитировать | Написать  
Ошибка прерывания кода. (возникает случайным образом)
    #38526094
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
lopuxi,

Изучи меню Debug
почитай учебник
...
Рейтинг: 0 / 0
14.01.2014, 18:39
| Ответить | Цитировать | Написать  
23 сообщений из 23, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Ошибка прерывания кода. (возникает случайным образом)
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&tid=2156577]:
 0ms
get settings:
 9ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 41ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 61ms
get tp. blocked users:
 1ms
others: 274ms
total:  416ms
созд. / загр.: 416ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]