Разработка проекта автоматизации учёта расчётов с органами социального страхования в ООО "Лента"

UCP=UUCP*TCF*EF=36*0,65*0,98=22,93

Оценка трудоёмкости: для нашей системы следует использовать 28 чел. -ч. на одну UCP. Таким образом, общее количество человеко- часов на весь проект равно 22,93*28=642, что составит 16 недель при 40- часовой рабочей неделе. Так как команда разработчиков состоит из одного человека, то добавим одну неделю на непредвиденные различные ситуации, тогда в итоге получим 17 недель на весь проект.

Рассчитаем фонд заработной платы. Проект выполнялся усилиями одного специалиста-программиста.

Накладные расходы составляют 20 % от ФОТ:

(1600+20400)*0,2=4400

Таблица 31 - Расчёт заработной платы

Сотрудники	Оклад	Зарплата в день, руб.	Трудоёмкость, дней	Заработная плата
Руководитель	8000	320	5	1600
Программист	6000	240	85	20400
Взносы в Фонды	Х	Х	Х	5720
Итого	Х	Х	Х	27720

Далее рассчитаем амортизацию (таблица 32).

Таблица 32 - Расчёт годовой суммы амортизационных отчислений

Элементы основных фондов	Количество, единица измерения	Стоимость, руб.	Сумма, руб.	Норма амортизации, %	Годовые амортизационные отчисления, руб.
компьютер директора	1	18500	185000	20 %	3700
компьютер главного бухгалтера	1	16100	16100	20 %	3220
помещение отдела продаж	10 м2	1800	18000	3 %	540
помещение хранения товаров	8 м2	1754	14032	3 %	420,96
Итого	Х	Х	Х	Х	7880,96

Исходя из того, что трудоёмкость автоматизации учёта сбытовых операций составляет 6 месяцев, рассчитаем амортизацию оборудования за этот период по формуле:

Ффак = А*Тф /12

Где Тф - трудоёмкостьЮ, мес.

Афак =7880.96*6/12=3940.48

Таблица 33 - Расчёт электроэнергии для восьмичасового рабочего дня

Наименование	Количество	кВт/час	кВт в сутки (примерно)	кВт в месяц
Компьютер	2	0,25	4	100
Освещение	4	0,34	11,52	288
Итого	Х	Х	Х	388

При стоимости 1 кВт/часа 1,5 рубля и трудоёмкости проекта 17 недель (4 месяца) затраты на электроэнергию равны:

Зэл =388*1.5*4=2328

Для полной оценки затрат необходимо рассчитать затраты на материальные расходы и расходы на инструменты (таблица 20).

Таблица 34 - Затраты на расходные материалы и инструменты

№ п/п	Наименование	Расход, шт.	Стоимость, руб.	Сумма, руб.
1	ручки, карандаши, ластик, линейка, маркер, штрих	1	12081200
2	Пачка бумаги формата А4		80
3	Диски CD-R	1	11	11
Итого	Х	Х	Х	211

Таким образом, проведём калькуляцию проекта по внедрению доработок в систему «1С: Предприятие 8.2» (таблица 21).

Таблица 35 - Затраты на создание и внедрение информационной системы

№ п/п	Статьи расходов	Затраты, руб.	Структура, %
1	фонд оплаты труда +Взносы в Фонды	27720	71,81
2	накладные расходы	4400	11,40
3	амортизационные отчисления	3940,48	10,21
4	затраты на электроэнергию	2328	6,03
5	расходные материалы и инструменты	211	0,55

Необходимая для внедрения информационной системы компьютерная техника имеется в наличии в ООО "Лента»".

Таким образом, суммарные затраты на автоматизацию отдела кадров составляют К=38599,48 рублей. Наибольший удельный вес в структуре затрат при внедрении информационной системы учета расчетов с подотчетными лицами принадлежит статье расходов «Фонд оплаты труда + Взносы в Фонды», которая составляет почти 72 процента.

Проанализировав полученные экономические показатели, приведенные в таблице можно уверенно говорить о косвенной эффективности проектного варианта решения задачи.

Благодаря более быстрому и удобному заполнению документов, происходит снижение трудовых и стоимостных затрат по их обработке. Это является выгодным для деятельности учреждения.

Также важным моментом является и то, что при использовании доработанной системы, пользователь может получать более точную и подробную отчётную информацию, что позволяет быстрее выполнять заказы клиентов на осуществление социально-медицинских услуг.

ВЫВОДЫ И ПРЕДЛОЖЕНИЯ

Полученный результат исследования темы выпускной дипломной работы «Автоматизация бухгалтерского учета расчётов с органами социального страхования (на примере ООО "Лента") позволил:

- теоретически исследовать нормативно-правовые и законодательные акты РФ в области информатизации и сущность процессов автоматизации учета расчётов с органами социального страхования

- сделать описание организационно-экономической характеристики учреждения;

- анализировать основные экономические показатели ООО "Лента" исследовать современную экономическую информационную систему ООО "Лента"", информационное обеспечение, техническое и программное обеспечение;

- выявить преимущества и недостатки уже имеющейся системы автоматизации;.

- разработать проект автоматизации учета расчётов с органами социального страхования определить экономическую эффективность от внедрения проектных решений.

В ВКР использовались следующие методы научного исследования: наблюдения, сравнения, монографический метод, статистический и др.

Нормативные акты, в которых, рассматривались вопросы регулирования хозяйственных операций, связанных с автоматихзацией расчетов с органами социального страхования заключены в Кодексах, Законах, Положениях, Плане счетов бухгалтерского учета, постановлениях Правительства, Инструкциях, рекомендациях и в других различных документах.

Важнейшим документом по регулированию учета является Положение по бухгалтерскому учету № 10 (ПБУ 10), где определены понятие, способы оценки и отражения в бухгалтерской отчетности производственных расходов.

Для автоматизированного учета расчётов с органами социального страхования в ООО "Лента" используется система бухгалтерского учета 1С: Предприятие 7.0.. При автоматизированной форме учета формирование показателей, отражающих начисление страховых взносов, в результате обработки помещаются непосредственно в формы первичных учетных документов. Применение в ООО "Лента" автоматизированной программы учетных работ позволяет обеспечивать формирование необходимых регистров учета расчётов с органами социального страхования. Автоматизация учета обеспечивает группировку отчислений во Внебюджетные фонды в разрезе, требуемом для управления, контроля и составления отчетности. По мере необходимости бухгалтерия по запросу других подразделений и служб выдает распечатки отчислений, связанных с учета расчётов с органами социального страхования.

СПИСОК ЛИТЕРАТУРЫ

1. Informftion Technology Security Evaluation Criteria (ITSEC). Harmonised Criteria of France- Germany-the Netherlands-the United Kingdom . Departament of Trade And Industry, London, 1991.

2. «Всероссийский экономический журнал» - «Право и экономика» (обзор статей) - «Экономика предприятий» М.-2012.

3. Draft ETGnn/.Development and Use of OSE Profiles. EMOS/EG-OSE//95/10,1995/.

4. http://fz122.fss.ru. Время доступа: 19.03.2017.

5. Базовые российские стандарты в области открытых систем: http://cert. stankin.ru/1/1-2-4.html.

6. Беляцкая Е. С. Роль качества продукции в расчетах с покупателями и поставщиками [Текст] / Е. С. Беляцкая, И. А. Каштанова // Научный поиск молодежи XXI века : материалы VIII Международной научной конференции студентов и магистрантов. - Горки, 2006. -  С. 151-152 : табл. - Библиогр. в конце ст.

7. Бройдо В. Л. Вычислительные системы: сети и телекоммуникации: учеб. для вузов по направлениям "Прикладная информатика" и "Информационные системы в экономике" /В. Л .Бройдо.-3-е изд.-СПб. : Питер, 2011.-766.:ил.-(учеб. пособие).-ISBN 978-5-91180-754-2.

8. Бюджетный Кодекс Российской Федерации, статья 143.

9. Венделева М. А. Информационные технологии управления. Москва.,- 2011.

10. Гаврилов М.В. Информатика и информационные технологии/ М.В. Гаврилов, В.А. Климов - 3-е изд. перераб. и доп. -М.-Издательство Юрайт, 2013 с. 269-270.

11. Гаврилов М.В., Климов К.А. Информатика и информационные технологии. М.- 2013.

12. Газета «Бизнес и банки», М-2013.

13. Гилула М.М. Множественная модель данных в информационных системах/ М.М. Гилула.-М.: Наука, 1992 - с. 12

14. Дзюбенко А.Л., Титаренко В.В. Практикум по информационным технологиям. - М.: Изд-во МИЭМП., 2006. - Ч.1-4.

15. Журнал «Автономия учреждения: бухгалтерский учёт и налогообложение».

16. Журнал «АКДИ Экономика и жизнь» , М.-2013.

17. Журнал «Арсенал предпринимателя», М.-2012.

18. Журнал «Аудит и финансовый анализ», М-2011.

19. Журнал «Аудит», М-2013.

20. Журнал «Компьютер Пресс», М.-2013.

21. Журнал «Мир Интернета», М.-2012.

22. Журнал «Мир ПК», М.-2011.

23. Информатика, базовый курс. Под ред. Симоновича С. В. -М.- 2011.

24. Информационные системы и технологии в экономике и управлении: учебник для бакалавров/ под ред. Проф. В.В. Трофимова. -3-е изд. перераб. И доп.- М. -Издательство Юрайт, 2012. - с.30.

25. Информационные справочные и поисковые системы:

26. Информационные технологии управления: Учеб. пособие /Под ред. Г. А. Титоренко. - М. :ЮНИТИ -ДАНА, 2010. 280 с.

27. Информационные технологии: учебник для вузов [Гриф УМО] / В. В. Трофимов [и др.]; под ред. В. В. Трофимова; С.- Петерб. гос. ун-т экономики и фин. - М.: Высшее образование, 2009. - 624 с.

28. Исаев Г. Н. Информационные системы в экономике: учеб. для вузов по спец. "Финансы и кредит", "Бух. учет, анализ и аудит"/Г. Н. Исаев.-М.: Омега-Л, 2011.- 462 с.

29. Кондраков Н.П. Бухгалтерский (финансовый, управленческий) учет : учебник. - 2-ет изд., перераб. и доп.. - Москва: Проспект, 2012. -с.

30. Лезер Н. Архитектура открытых распределенных систем; Модель OSF DCE/ y/ Ktpth //Jnrhsnst cbcntvs? 1993 u/ -№3.- c. 10-16 .

31. Липаев В. Формирование и применение профилей открытых информационных систем / В. Липаев, Е. Филинов // Открытые системы, 1997. - №5 - с. 23.

32. Липаев В. Формирование и применение профилей открытых информационных систем / В. Липаев, Е. Филинов // Открытые системы, 1997. - №5 - с. 23.

33. Макарова Н. В. Информатика. М.-2011.

34. Мельников В. П. Информационные технологии: учебник для вузов [Гриф УМО] /В. П. Мельников. - 2-е изд., стер. - М.: Академия, 2009. - 425 с.

35. Пескова С. А. Сети и телекоммуникации: учеб.для вузов по направлению подготовки 230100 "Информатика и вычислит. техника". /С.А.Пескова, А. В. Кузин, А. Н. Волков.-3-е изд.,стер.-М.:Академия, 2008.-352 с. ил.-(высш. проф. образование: Информатика и вычислит.техника).-ISBN 978-5-7695-5961-4.

36. Портал Консультант Плюс (www.consultant.ru) .

37. Портал Конференции ООН по торговле и развитию (ЮНКТАД) - www.unctad.org.

38. Портал Международного валютного фонда - www.imf.org.

39. Портал организации экономического сотрудничества и развития - www.oecd.org.

40. Портал Росбизнесконсалтинга - www.rbc.ru.

41. Портал Росстата - www.gks.ru.

42. Пузанкевич О.А. Финансы и финансовый рынок. Учебное пособие,- Мн.: БГЭУ, 2010.-313 с.

43. Пятибратов А. П. Вычислительные системы, сети и телекоммуникации: учеб.для вузов по направлениям "Прикладная информатика в экономике"/А. П. Пятибратов, Л. П. Гудыно, А. А. Кириченко; под ред. А. П. Пятибратова.- 4-е изд., перераб. и доп.- М.: Финансы и статистика: Инфра - М, 2008. - 736 с.

44. Сайт Банка России - www.cbr.ru.

45. Сайт Всемирного банка - www.worldbank.org.

46. Сайт Всемирной торговой организации - www.wto.org.

47. Советов Б. Я. Базы данных. М.- 2013.

48. Советов, Б. Я. Информационные технологии: Учебник /Б. Я. Советов, В. В. Цехановский. - М.: Высш. шк., 2006. 263 с.

49. Трифаленков И. Функциональная безопасность корпоративных систем. /И. Трифаленков, Н. Зайцева.// Открытые системы. 2002.- №78-с.12..

50. Федеральный закон №212-ФЗ «ОБ информации, информационных технологиях и защите информации

51. Федеральный закон «Об обеспечении пособиями по временной нетрудоспособности, по беременности и родам граждан, подлежащих обязательному социальному страхованию» от 29.12.06 года № 255-ФЗ (ред. от 28.09.10 № 243-ФЗ).

52. Федеральный закон №167-ФЗ от 15.12.2001 г. №167-ФЗ «Об обязательном пенсионном страховании в РФ

53. Федеральный закон №255-ФЗ от 29.12.2006 г. «Об обязательном социальном страховании на случай временной нетрудоспособности и в связи с материнством»

54. Федеральный закон от№27-ФЗ) от 01.04.1996 г. №27-ФЗ «Об индивидуальном (персонифицированном) учете в системе обязательного пенсионного страхования».

55. .(http://www.alfahrms.ru/raschet_zarabotnoj_platy/). Время доступа: 20.03.2017.

56. Четвериков В.Н. Базы и банки данных./ В.Н. Четвериков, Г,И. РЕвунков, Самохвалов - М. Высшая школа, 1987,-с.8..

57. Экономико - математические модели. Под ред. Попова М. М.,- 2011.

58. Ярочкин В. И. Информационная безопасность: учеб.для вузов по гуманит. и социал. - экон. спец. /В. И. Ярочкин.-5-е изд.-М.: Академ. проект, 2008.-543 с.: ил.-(Gaudeamus).-ISBN 978-5-8291-0987-5.

59. Open s handbook: A guide to building open systems. -Digital Equipment Corporation, USA, 1991.

60. Sdamzawas.net.Время доступа: 19.03.2017.

ПРИЛОЖЕНИЯ

Приложение 1

Приложение 2

Microsoft Visual Basic Module (Code)

Sub КарточкаKицевогоCчета()

'

' КарточкаKицевогоCчета Макрос

'

' Сочетание клавиш: Ctrl+Shift+A

'

With ActiveSheet.PageSetup

.PrintTitleRows = ""

.PrintTitleColumns = ""

End With

ActiveSheet.PageSetup.PrintArea = ""

With ActiveSheet.PageSetup

.LeftHeader = ""

.CenterHeader = ""

.RightHeader = ""

.LeftFooter = ""

.CenterFooter = ""

.RightFooter = ""

.LeftMargin = Application.InchesToPoints(0.393700787401575)

.RightMargin = Application.InchesToPoints(0.393700787401575)

.TopMargin = Application.InchesToPoints(0.393700787401575)

.BottomMargin = Application.InchesToPoints(0.393700787401575)

.HeaderMargin = Application.InchesToPoints(0)

.FooterMargin = Application.InchesToPoints(0)

.PrintHeadings = False

.PrintGridlines = False

.PrintComments = xlPrintNoComments

.PrintQuality = 600

.CenterHorizontally = True

.CenterVertically = True

.Orientation = xlLandscape

.Draft = False

.PaperSize = xlPaperA4

.FirstPageNumber = xlAutomatic

.Order = xlDownThenOver

.BlackAndWhite = False

.Zoom = 100

.PrintErrors = xlPrintErrorsDisplayed

.OddAndEvenPagesHeaderFooter = False

.DifferentFirstPageHeaderFooter = False

.ScaleWithDocHeaderFooter = True

.AlignMarginsHeaderFooter = True

.EvenPage.LeftHeader.Text = ""

.EvenPage.CenterHeader.Text = ""

.EvenPage.RightHeader.Text = ""

.EvenPage.LeftFooter.Text = ""

.EvenPage.CenterFooter.Text = ""

.EvenPage.RightFooter.Text = ""

.FirstPage.LeftHeader.Text = ""

.FirstPage.CenterHeader.Text = ""

.FirstPage.RightHeader.Text = ""

.FirstPage.LeftFooter.Text = ""

.FirstPage.CenterFooter.Text = ""

.FirstPage.RightFooter.Text = ""

End With

ActiveWindow.SmallScroll Down:=-6

Range("A1:O1").Select

With Selection

.HorizontalAlignment = xlGeneral

.VerticalAlignment = xlBottom

.WrapText = False

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = True

End With

Range("A1:O1").Select

ActiveCell.FormulaR1C1 = "Карточка лицевого счета"

Range("A1:O1").Select

With Selection

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlBottom

.WrapText = False

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = True

End With

Application.Run "PERSONAL.XLSB!КарточкаKицевогоCчета"

Application.Run "PERSONAL.XLSB!КарточкаKицевогоCчета"

Range("A2:K2").Select

ActiveWindow.SmallScroll Down:=0

Range("A2:O2").Select

With Selection

.HorizontalAlignment = xlGeneral

.VerticalAlignment = xlBottom

.WrapText = True

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = False

End With

Range("A2").Select

ActiveCell.FormulaR1C1 = "Дата "

With ActiveCell.Characters(Start:=1, Length:=5).Font

.Name = "Calibri"

.FontStyle = "обычный"

.Size = 11

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ThemeColor = xlThemeColorLight1

.TintAndShade = 0

.ThemeFont = xlThemeFontMinor

End With

Range("B2").Select

ActiveCell.FormulaR1C1 = "Номер документа "

With ActiveCell.Characters(Start:=1, Length:=16).Font

.Name = "Calibri"

.FontStyle = "обычный"

.Size = 11

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ThemeColor = xlThemeColorLight1

.TintAndShade = 0

.ThemeFont = xlThemeFontMinor

End With

Range("C2").Select

ActiveCell.FormulaR1C1 = "Наименование органа кому отправляется документ"

With ActiveCell.Characters(Start:=1, Length:=46).Font

.Name = "Calibri"

.FontStyle = "обычный"

.Size = 11

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ThemeColor = xlThemeColorLight1

.TintAndShade = 0

.ThemeFont = xlThemeFontMinor

End With

Range("D2").Select

ActiveCell.FormulaR1C1 = _

"Наименование органа социального страхования и обеспечения (уровень)"

With ActiveCell.Characters(Start:=1, Length:=67).Font

.Name = "Calibri"

.FontStyle = "обычный"

.Size = 11

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ThemeColor = xlThemeColorLight1

.TintAndShade = 0

.ThemeFont = xlThemeFontMinor

End With

Range("E2").Select

ActiveCell.FormulaR1C1 = "Наименование налога, отчисления, штрафа и др."

With ActiveCell.Characters(Start:=1, Length:=45).Font

.Name = "Calibri"

.FontStyle = "обычный"

.Size = 11

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ThemeColor = xlThemeColorLight1

.TintAndShade = 0

.ThemeFont = xlThemeFontMinor

End With

Range("F2").Select

ActiveCell.FormulaR1C1 = "Корр. Счет. Получателя"

With ActiveCell.Characters(Start:=1, Length:=22).Font

.Name = "Calibri"

.FontStyle = "обычный"

.Size = 11

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ThemeColor = xlThemeColorLight1

.TintAndShade = 0

.ThemeFont = xlThemeFontMinor

End With

Range("F2").Select

Selection.EntireColumn.Insert , CopyOrigin:=xlFormatFromLeftOrAbove

Range("F2").Select

ActiveCell.FormulaR1C1 = "Наименование банка"

With ActiveCell.Characters(Start:=1, Length:=18).Font

.Name = "Calibri"

.FontStyle = "обычный"

.Size = 11

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ThemeColor = xlThemeColorLight1

.TintAndShade = 0

.ThemeFont = xlThemeFontMinor

End With

Range("H2").Select

ActiveCell.FormulaR1C1 = "Корр. Счет плательщика"

With ActiveCell.Characters(Start:=1, Length:=22).Font

.Name = "Calibri"

.FontStyle = "обычный"

.Size = 11

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ThemeColor = xlThemeColorLight1

.TintAndShade = 0

.ThemeFont = xlThemeFontMinor

End With

Range("I2").Select

ActiveCell.FormulaR1C1 = "Сумма"

With ActiveCell.Characters(Start:=1, Length:=5).Font

.Name = "Calibri"

.FontStyle = "обычный"

.Size = 11

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ThemeColor = xlThemeColorLight1

.TintAndShade = 0

.ThemeFont = xlThemeFontMinor

End With

Range("J2").Select

ActiveCell.FormulaR1C1 = "Комментарий"

With ActiveCell.Characters(Start:=1, Length:=11).Font

.Name = "Calibri"

.FontStyle = "обычный"

.Size = 11

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ThemeColor = xlThemeColorLight1

.TintAndShade = 0

.ThemeFont = xlThemeFontMinor

End With

Range("A3").Select

ActiveCell.FormulaR1C1 = "3/29/2017"

Range("B3").Select

ActiveCell.FormulaR1C1 = "15"

Range("C3").Select

ActiveCell.FormulaR1C1 = "Пенсионныйц фонд"

Range("C3:K3").Select

With Selection

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlCenter

.WrapText = True

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = False

End With

ActiveWindow.SmallScroll Down:=-6

Range("C3").Select

ActiveCell.FormulaR1C1 = "Пенсионныйц фонд, г. Брянск"

With ActiveCell.Characters(Start:=1, Length:=27).Font

.Name = "Calibri"

.FontStyle = "обычный"

.Size = 11

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ThemeColor = xlThemeColorLight1

.TintAndShade = 0

.ThemeFont = xlThemeFontMinor

End With

Range("D3").Select

ActiveWindow.SmallScroll Down:=-15

Range("D3").Select

ActiveWindow.SmallScroll Down:=-12

Range("D3").Select

ActiveCell.FormulaR1C1 = "Орган социального страхования и обеспечения Брянск"

With ActiveCell.Characters(Start:=1, Length:=51).Font

.Name = "Calibri"

.FontStyle = "обычный"

.Size = 11

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ThemeColor = xlThemeColorLight1

.TintAndShade = 0

.ThemeFont = xlThemeFontMinor

End With

Range("E3").Select

ActiveWindow.SmallScroll Down:=-15

Range("E3").Select

ActiveCell.FormulaR1C1 = "Отчисления с ФОТ предприятия (федеральный уровень)"

With ActiveCell.Characters(Start:=1, Length:=50).Font

.Name = "Calibri"

.FontStyle = "обычный"

.Size = 11

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ThemeColor = xlThemeColorLight1

.TintAndShade = 0

.ThemeFont = xlThemeFontMinor

End With

Range("E3").Select

ActiveWindow.SmallScroll Down:=-6

Range("F3").Select

ActiveWindow.SmallScroll Down:=-3

Range("F3").Select

ActiveCell.FormulaR1C1 = "Брянский коммерческий банк"

With ActiveCell.Characters(Start:=1, Length:=26).Font

.Name = "Calibri"

.FontStyle = "обычный"

.Size = 11

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ThemeColor = xlThemeColorLight1

.TintAndShade = 0

.ThemeFont = xlThemeFontMinor

End With

Range("G3").Select

ActiveWindow.SmallScroll Down:=-21

Range("G3").Select

ActiveCell.FormulaR1C1 = "123456789010"

Range("H3").Select

ActiveWindow.SmallScroll Down:=-12

Range("G3").Select

ActiveWindow.SmallScroll Down:=0

Range("G3").Select

ActiveCell.FormulaR1C1 = "123456789010"

Range("H3").Select

Columns("G:G").ColumnWidth = 13

Range("G3:H3").Select

Selection.NumberFormat = "0;[Red]0"

Range("H3").Select

Columns("H:H").ColumnWidth = 12.89

Range("H3").Select

ActiveCell.FormulaR1C1 = "456789123456"

Range("I3").Select

ActiveWindow.SmallScroll Down:=-15

Range("I3").Select

ActiveCell.FormulaR1C1 = "789563"

Range("J3").Select

Selection.NumberFormat = "#,##0.00 $"

Range("I3").Select

Selection.NumberFormat = "#,##0.00 $;[Red]#,##0.00 $"

Range("J3").Select

ActiveWindow.SmallScroll Down:=-21

Range("J3").Select

ActiveCell.FormulaR1C1 = _

"Отчисления в фонд обязательного медицинского страхования: расчетный счет"

With ActiveCell.Characters(Start:=1, Length:=84).Font

.Name = "Calibri"

.FontStyle = "обычный"

.Size = 11

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ThemeColor = xlThemeColorLight1

.TintAndShade = 0

.ThemeFont = xlThemeFontMinor

End With

Range("J4").Select

ActiveWindow.SmallScroll Down:=-12

Range("J3").Select

ActiveWindow.SmallScroll Down:=0

ActiveWindow.Zoom = 75

ActiveWindow.ScrollColumn = 5

ActiveWindow.ScrollColumn = 4

ActiveWindow.ScrollColumn = 3

ActiveWindow.ScrollColumn = 2

ActiveWindow.ScrollColumn = 1

Columns("I:I").ColumnWidth = 14.44

Range("J3").Select

ActiveCell.FormulaR1C1 = _

"Отчисления в Фонд социального страхования: расчетный счет"

With ActiveCell.Characters(Start:=1, Length:=57).Font

.Name = "Calibri"

.FontStyle = "обычный"

.Size = 11

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ThemeColor = xlThemeColorLight1

.TintAndShade = 0

.ThemeFont = xlThemeFontMinor

End With

ActiveWorkbook.Save

ActiveWorkbook.Save

Range("C3").Select

Columns("A:A").ColumnWidth = 11.56

Range("B3").Select

ActiveWindow.SmallScroll Down:=-9

Range("H2").Select

Selection.EntireColumn.Insert , CopyOrigin:=xlFormatFromLeftOrAbove

ActiveCell.FormulaR1C1 = "Ставка налога или других отчислений"

With ActiveCell.Characters(Start:=1, Length:=35).Font

.Name = "Calibri"

.FontStyle = "обычный"

.Size = 11

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ThemeColor = xlThemeColorLight1

.TintAndShade = 0

.ThemeFont = xlThemeFontMinor

End With

Range("H3").Select

ActiveCell.FormulaR1C1 = ""

Range("H3").Select

Selection.NumberFormat = "0%"

Range("H3").Select

ActiveCell.FormulaR1C1 = "20%"

Range("H4").Select

ActiveWorkbook.Save

ActiveWindow.SmallScroll Down:=-15

Range("A2:K3").Select

Selection.Borders(xlDiagonalDown).LineStyle = xlNone

Selection.Borders(xlDiagonalUp).LineStyle = xlNone

With Selection.Borders(xlEdgeLeft)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlEdgeTop)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlEdgeBottom)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlEdgeRight)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlInsideVertical)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlInsideHorizontal)

.LineStyle = xlContinuous

.ColorIndex = 0

.TintAndShade = 0

.Weight = xlThin

End With

Range("A1:Q1").Select

ActiveCell.FormulaR1C1 = "КАРТОЧКА ЛИЦЕВОГО СЧЕТА"

With ActiveCell.Characters(Start:=1, Length:=23).Font

.Name = "Calibri"

.FontStyle = "полужирный"

.Size = 14

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ThemeColor = xlThemeColorLight1

.TintAndShade = 0

.ThemeFont = xlThemeFontMinor

End With

Range("A2:K3").Select

With Selection.Font

.Name = "Calibri"

.Size = 12

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ThemeColor = xlThemeColorLight1

.TintAndShade = 0

.ThemeFont = xlThemeFontMinor

End With

Range("A1:Q1").Select

With Selection

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlCenter

.WrapText = True

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

.MergeCells = True

End With

Range("A1:Q1").Select

ActiveWindow.SmallScroll Down:=-18

ActiveWindow.Zoom = 75

ActiveWindow.SmallScroll Down:=-12

ActiveWindow.Zoom = 50

ActiveWindow.Zoom = 60

ActiveWindow.SmallScroll Down:=-3

Range("A1:Q3").Select

ActiveWindow.SmallScroll Down:=-12

Range("A1:Q3").Select

ActiveWindow.SmallScroll Down:=-9

ActiveWindow.WindowState = xlNormal

ActiveWindow.WindowState = xlNormal

ActiveWindow.SmallScroll Down:=-3

ActiveWindow.ScrollRow = 2

ActiveWindow.ScrollRow = 1

Selection.Copy

Application.WindowState = xlMinimized

ActiveWindow.WindowState = xlNormal

ActiveWindow.WindowState = xlNormal

Application.CutCopyMode = False

ActiveWindow.WindowState = xlNormal

ActiveWindow.WindowState = xlNormal

ActiveWindow.SmallScroll Down:=-6

Application.WindowState = xlMaximized

ActiveWindow.SmallScroll Down:=-24

Application.Run "PERSONAL.XLSB!КарточкаKицевогоCчета"

End Sub

Размещено на Allbest.ru

...