Сам код тоже очень простой и короткий. Пара малюсеньких процедур в Глобальном модуле и пара кнопок на панели инструментов. Для внедрения обработки в конфигурацию не требуется никаких знаний программиста.
На основе данной обработки можно написать и более сложные процедуры при желании, добавив кнопки умножения, вычисления среднего и т.д.
Для работы требуется внешняя компонента AddIn_V7MyClipboard.dll.
Автор: Venger Alex, Odessa, 2008
Url: //infostart.ru/public/15999/
Инструкция по внедрению для пользователей без навыков программирования:
1. Открыть 1С:Предприятие 7.7 в режиме конфигуратора.
2. Открыть конфигурацию; щелкнув правой кнопкой мыши на верхней строчке, открыть Глобальный модуль.
3. Прокрутить страницу в самый низ до строки:
КонецПроцедуры // ПриНачалеРаботыСистемы()
4. Скопировать приведенный ниже код и вставить его ниже этой строки.
//******************************************************************************
Процедура ПанельМ()
WSHShell = СоздатьОбъект("WScript.Shell");
WSHShell.SendKeys("^c"+ "^с");
WSHShell.SendKeys("^+{F12}");
КонецПроцедуры
Процедура ПанельМплюс()
ЗагрузитьВнешнююКомпоненту("AddIn_V7MyClipboard.dll");
БуферОбмена = СоздатьОбъект("AddIn.AddIn_V7MyClipboard");
Стр=БуферОбмена.ПолучитьТекстИзБуфераОбмена(1);
Файл = СоздатьОбъект("Текст");
Файл.ДобавитьСтроку(Стр);
Файл.Записать(КаталогИБ()+"z.txt");
Файл.Открыть(КаталогИБ()+"z.txt");
Сум=0;
Для ы = 1 По Файл.КоличествоСтрок()-1 Цикл
С = Файл.ПолучитьСтроку(ы);
С = СтрЗаменить(С,"'","");
С = СтрЗаменить(С,Симв(34),"");
С = СтрЗаменить(С,",",".");
// Ч = Число(С);
Ч = С;
Сообщить(Ч);
Сум=Сум+Ч;
КонецЦикла;
Сообщить("Сумма =");
Сообщить(Сум);
Сообщить("****************************");
Файл.Очистить();
КонецПроцедуры
//******************************************************************************
5. Открыть вкладку "Конфигурация" - "Интерфейсы".
6. Правой кнопкой щелкнуть на Интерфейсе и выбрать "Редактировать панели инструментов".
7. В окошке "Список панелей" выбрать "Основная", в окошке "Состав панели" шелкнуть "Добавить".
Объект "Задача", Команда "Задача.Выполнить", Подсказка "Сумма выделенных ячеек".
Вкладка "Параметры" Формула:
ПанельМ()
Вкладка "Образ" - Пиктограмма; "ОК"
8. Двойной клик по иконке библиотеки пиктограмм вставляет выбранную иконку на кнопку.
9. В окошке "Список панелей" шелкнуть "Добавить".
Название:
Мплюс
Обязательно снять галку "показывать"!
На этой панели создать кнопку "Задача", вкладка "Параметры" Формула:
ПанельМплюс()
Вкладка "Акселератор" клавиша "F12", галки "Ctrl" и "Shift".
Иконка для кнопки не нужна.
10. Сохранить конфигурацию кнопкой "Сохранить".
11. AddIn_V7MyClipboard.dll поместить в корневой каталог базы 1С.