Dev ›
Суммирование выделенных ячеек в столбце для 1С:Предприятие 7.7 ›
#5
10.03.16 7:00
Вариант с ВК FormEx.dll (без FormEx.dll не работает в русской раскладке клавиатуры):
в Глобальном модуле
| Код |
|---|
//******************************************************************************
Процедура ПанельМ()
WSHShell = СоздатьОбъект("WScript.Shell");
WSHShell.SendKeys("^c"+ "^с");
WSHShell.SendKeys("^+{F11}");
КонецПроцедуры
Процедура ПанельМ1()
Файл = СоздатьОбъект("Текст");
Файл.Показать(,КаталогИБ()+"z.txt");
WSHShell = СоздатьОбъект("WScript.Shell");
WSHShell.SendKeys("^v"+ "^м");
Сервис=СоздатьОбъект("Сервис");
Сервис.РаскладкаКлавиатуры("English (United States)");
WSHShell.SendKeys( "^s");
Сервис.РаскладкаКлавиатуры("Russian");
WSHShell.SendKeys( "^{F4}");
WSHShell.SendKeys("^+{F12}");
КонецПроцедуры
Процедура ПанельМплюс()
Файл = СоздатьОбъект("Текст");
Файл.Открыть(КаталогИБ()+"z.txt");
Сум=0;
Для ы = 1 По Файл.КоличествоСтрок() Цикл
С = Файл.ПолучитьСтроку(ы);
С = СтрЗаменить(С,"'","");
С = СтрЗаменить(С,Симв(34),"");
С = СтрЗаменить(С,",",".");
Сообщить(С);
Сум=Сум+С;
КонецЦикла;
Сообщить("Сумма =");
Сообщить(Сум);
Сообщить("****************************");
КонецПроцедуры
//****************************************************************************** |
На скрытой панели "Мплюс" создать вторую скрытую кнопку "Задача", вкладка "Параметры" Формула:
Вкладка "Акселератор" клавиша "F11", галки "Ctrl" и "Shift".
Недостаток этого метода - мелькание окошка на экране.
