Имя: Пароль:
1C
 
Ошибка " Ожидается ключевое слово 'Тогда' "
0 Despa1r
 
20.03.15
16:19
Для e=НачСтр По КонСтр Цикл
                Если list.Cells(e,1)Font.Italic = Истина Тогда
                   c=list.Cells(e,1).value;  
                   v=c-1;
                   list.Range(Excel.Cells(c,1),Excel.Cells(v,1)).Rows.Group();
                   Продолжить;
               Иначе
                   Продолжить;
                КонецЕсли;
            КонецЦикла;
1 Fragster
 
гуру
20.03.15
16:22
ошибка выше (или ниже)
2 Лефмихалыч
 
20.03.15
16:23
Продолжить;
               Иначе
                   Продолжить;
                КонецЕсли;
            КонецЦикла;


гениально, ящетаю
3 Shrek_yar
 
20.03.15
16:24
точку забыл
list.Cells(e,1).Font.Italic = Истина
4 aka AMIGO
 
20.03.15
16:24
(0) у тебя что делает этот (кмк, странный) оператор?

list.Range(Excel.Cells(c,1),Excel.Cells(v,1)).Rows.Group();
5 Новый участник
 
20.03.15
16:25
(2) Ненуачо? Нашёл курсив на листе - стал с этим фрагментом работать.
6 Despa1r
 
20.03.15
16:26
AMIGO, группирует ячейки в экселе по идее
7 Despa1r
 
20.03.15
16:27
Shrek_yar, ошибка ушла, появилась другая

Переменная не определена (КонСтр)
            Для e=НачСтр По <<?>>КонСтр Цикл
8 salvator
 
20.03.15
16:27
(7) А что непонятного написано в тексте ошибки?
9 Despa1r
 
20.03.15
16:28
Функция Группировка(excel,book,list,Дебиторка)
            
            НачСтр=5;
            Для q=1 по 10000 Цикл
                Если list.cells(q,1).value="Итого:" Тогда
                    itogo=list.cells(q,1).value;
                    list.Range(Excel.Cells(itogo,1)).value=КонСтр;
                    Прервать;
                КонецЕсли;
            КонецЦикла;
            
            Для e=НачСтр По КонСтр Цикл
                Если list.Cells(e,1).Font.Italic = Истина Тогда
                   c=list.Cells(e,1).value;  
                   v=c-1;
                   list.Range(Excel.Cells(c,1),Excel.Cells(v,1)).Rows.Group();
                КонецЕсли;
            КонецЦикла;    
            
        Для w=НачСтр По КонСтр Цикл
                Если list.cells(w,1).Font.Bold = Истина Тогда
                    z=list.cells(w,1).value;
                    x=z-1;
                    list.Range(Excel.Cells(z,1),Excel.Cells(x,1)).Rows.Group();
                КонецЕсли;
            КонецЦикла;            
КонецФункции


Полный код.
10 AntiBuh
 
20.03.15
16:28
(7) может быть Переменная не определена (КонСтр) ?
11 Despa1r
 
20.03.15
16:29
Всем большое спасибо, заменил
list.Range(Excel.Cells(itogo,1)).value=КонСтр;
на
КонСтр=list.Range(Excel.Cells(itogo,1)).value;
12 Torquader
 
20.03.15
16:30
Точку перед Font поставьте и всё будет работать!!!
13 Shrek_yar
 
20.03.15
16:30
ужас))))
14 aka AMIGO
 
20.03.15
16:30
или поменяй операторы местами:
list.Range(Excel.Cells(itogo,1)).value=КонСтр;
15 aka AMIGO
 
20.03.15
16:31
(11) :))
опоздал :)
16 Бледно Золотистый
 
20.03.15
16:31
(11) А если условие не сработает? Пользователю плюнет же в лицо ошибкой.
17 Despa1r
 
20.03.15
16:32
Поставил точку перед Font и заменил строчку с переменной КонСтр :)
Не судите строго, первый код на 1с
18 aka AMIGO
 
20.03.15
16:32
(17) да всё нормально :)
19 salvator
 
20.03.15
16:33
(17) Нормально. Обычно первый код наподобие Сообщить("Хеллоу ворлд");
20 Stim
 
20.03.15
16:33
Продолжить;
               Иначе
                   Продолжить;
                КонецЕсли;

заменить на

//Продолжить;
               Иначе
                   //Продолжить;
                КонецЕсли;
                   Продолжить;
21 Torquader
 
20.03.15
16:36
(20) А "иначе" ты кому оставил ?
22 Despa1r
 
20.03.15
16:37
(20)Уже убрал оба "продолжить" и "иначе", благодарю
Возникла новая проблема - на листе excel ничего не группируется :(
23 Despa1r
 
20.03.15
16:38
Ошибок в коде нет, не знаю в чём может быть проблема(
Пробовал ранее писать
excel.range(A1:A11).rows.group и на листе всё отражалось, а этот код не фурычит(
24 Despa1r
 
20.03.15
16:38
Ой, извиняюсь, list.Range("A6:A16").Rows.Group();