Для отображения персонализированного контента и рекламных сообщений, а также хранения личных настроек на локальном компьютере веб-сайт www.vdgb.ru используют технологию cookie и аналогичные. Продолжив использование наших веб-сайтов, Вы даете согласие на обработку персональных данных, выражаете согласие с Политикой конфиденциальности www.vdgb.ru и применением этих технологий.

ПРОДАЖА И ВНЕДРЕНИЕ 1С

по всей России

Проконсультироваться
со специалистом 1С

Консультироваться

Код 1C v 8.х
 
      
Отчет = РабочиеКниги.Open(Каталог+Названиефайла);
ОтЛевогоКрая=550;
ОтВерха=80;
Длина=100;
Высота=50;
кн = Отчет.Sheets(1).OLEObjects.Add("Forms.CommandButton.1",,,,,,,ОтЛевогоКрая, ОтВерха, Длина,Высота);
st = "Private Sub CommandButton1_Click()" + Chr(13) + " ThisWorkbook.Sheets(1).range(""I10:I10000"").AutoFilter Field:=1, Criteria1:="">0"", Operator:=xlAnd" + Chr(13) + "End Sub";
Excel.VBE.ActiveVBProject.VBComponents.Add (1);
Excel.VBE.ActiveVBProject.VBComponents.Item(1).CodeModule.I_nsertLines (1,st);

в переменную st записываем нужный нам макрос. У меня в процедуре он выводиться в одной строке, но можно сделать чтобы он выводился построчно
Код 1C v 8.х
 
      
Excel.VBE.ActiveVBProject.VBComponents.Item(1).CodeModule.I_nsertLines (1,st1);
Excel.VBE.ActiveVBProject.VBComponents.Item(1).CodeModule.I_nsertLines (2,st2);

в этом макросе делается фильтр по колонке > 0


Заказать обратный звонок

Позвонить
Отправлено! В самое ближайшее время наш менеджер свяжется с Вами.