В качестве направлений дальнейшей работы можно отменить задачу увеличения степени автоматизации процесса предотвращения, поиска и ликвидации дефекта. Для решения этой задачи планируется реализовать программный модуль, предупреждающий возникновение дефекта средствами разработки, встроенными в автоматизированной бухгалтерской системе «1С: Предприятие» и присоединить данный модуль к программному комплексу. Также планируется расширить область применения разработанной методики предотвращения, поиска и устранения дефектов и использовать разработанные методы в отношении не только выданных счетов-фактур, но и других документов бухгалтерского учета.
Операционная технология создания книги Excel
“Поиск дубликатов счетов-фактур”
Назначение:
Операционная технология создания книги формата Microsoft Excel 2000, содержащей программный модуль, использующийся при поиске дублирующих друг друга выданных счетов-фактур.
Перечень и состояние технических средств:
– персональный компьютер включен и готов к работе.
– редактор электронных таблиц Microsoft Excel 2000 запущен и готов к работе.
Таблица 5 – Операционная технология создания книги Excel для поиска ошибочно введенных счетов-фактур
|
Состояние системы |
Пояснения |
Ответные действия |
Примечания |
||
|
На экране главное окно редактора Excel |
Система ожидает управляющих воздействий. Необходимо создать новую книгу |
Нажмите сочетание клавиш Ctrl+N или в меню «Файл» выберите пункт «Создать» и в появившемся окне укажите значок «книга Excel» |
|||
|
На экране главное окно редактора Excel с только что созданной книгой |
Система ожидает управляющих воздействий. Необходимо записать макрос |
В меню «Сервис» выберите пункт «Макрос» и в выпадающем списке укажите команду «Начать запись». |
|||
|
На экране главное окно редактора Excel и диалоговое окно «Запись макроса» |
Система ожидает ввода параметров нового макроса |
В поле «Имя макроса» введите строку «ПоискДубликатов», а в выпадающем списке «Сохранить в» выберите пункт «Открытая книга» |
Можно задать сочетание клавиш для запуска макроса. Для этого надо установить фокус в поле «Сочетание клавиш» и нажать, например клавишу W |
||
|
На экране главное окно редактора Excel и панель инструментов «Остановить запись» |
Система находится в режиме записи макроса. Необходимо остановить запись макроса. |
В меню «Сервис» выберите пункт «Макрос» и в выпадающем списке укажите команду «Остановить запись». |
|||
|
На экране главное окно редактора Excel |
Система ожидает управляющих воздействий. Необходимо начать редактирование текста
|
Нажмите сочетание клавиш Alt+F11 или в меню «Сервис» выберите пункт «Макрос» и в выпадающем списке укажите команду «Редактор Visual Basic». |
|||
|
На экране окно редактора Visual Basic. В левой части находится окно «Project Explorer», представляющее иерархию модулей в виде дерева |
Система находится в режиме редактирования макросов. Необходимо получить доступ к тексту макроса. |
В окне «Project Explorer» (по умолчанию находится в левой части экрана) разверните узел «Modules», выберите значок «Module1» и дважды щелкните на нем мышкой, чтобы начать редактирование. |
Если окна «Project Explorer» нет на экране, его можно открыть, выбрав в меню «View» пункт «Project Explorer» или нажав сочетание клавиш Ctrl+R |
||
|
На экране окно редактора Visual Basic. Исходный код модуля Module1 открыт в окне в правой части экрана |
Система ожидает редактирования текста программного модуля. |
После строки «Sub ПоискДубликатов()» вставьте программный код приведенный после данной таблицы |
|||
|
На экране окно редактора Visual Basic. |
Система ожидает управляющих воздействий. Необходимо закрыть редактор Visual Basic. |
Для этого в меню “File” выберите пункт «Close and Exit to Excel» или нажмите сочетание клавиш Alt+F4 |
|||
|
На экране главное окно редактора Excel |
Система ожидает управляющих воздействий. Необходимо сохранить изменения. |
В пункте «Файл» выберите пункт «Сохранить как» |
|||
|
На экране главное окно редактора Excel и диалоговое окно сохранения файла |
Система ожидает указания основных параметров сохраняемой книги |
В дереве папок с помощью стандартных средств Windows укажите папку, где будет сохранена книга. В поле «имя файла» укажите «ПоискДубликатов.xls» и нажмите кнопку сохранить |
|||
|
На экране главное окно редактора Excel |
Система ожидает управляющих воздействий |
В меню «Файл» выберите пункт «Выход» или нажмите сочетание клавиш Alt+F4 |
Текст макроса:
Cells.Sort Key1:=Range("E:E"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Dim MyCell As Range
For Each MyCell In Range("E:E")
If MyCell.Value = "" Then Exit Sub
If MyCell.Value = Range("E" & CStr(MyCell.Row + 1)) Then
MsgBox "Найдены дубликаты счетов-фактур к документу: " & MyCell.Value
End If
Next MyCell
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.