3.2.2 Программный продукт VBA

Sub Izmenenia()

Dim C (14) As Single, D (14) As Single, O (14) As Single, P (14) As Integer

Worksheets ("Число организаций 2005-2007").Activate

For I = 1 To 14

C (I) = Worksheets ("Число организаций 2005-2007").

Cells (I + 2, 3).Value

D (I) = Worksheets ("Число организаций 2005-2007").

Cells (I + 2, 4).Value

O (I) = D (I) – C (I)

P (I) = O (I) / D (I) * 100

Worksheets ("Число организаций 2005-2007").Cells(I + 2, 5)=O(I)

Worksheets ("Число организаций 2005-2007").Cells(I + 2, 6) = P(I)

Next I

End Sub

       3.3 Вычисление  среднего объема оборота, в расчете на одно предприятие.

         Используя данные об обороте  предприятия и данные o количестве  организаций в периоде 2005-2007 годов,  мы вычислим  средний объем оборота, в расчете на одно предприятие:

       Формула 4- средний объем оборота, в расчете на одно предприятие:

         
 

       Где X- средний объем оборота, в расчете на одно предприятие, тыс. руб.

       Y- объем оборота предприятия, тыс. руб.

       Z- количество организаций, тыс.

       3.4 Вычисление числа организаций, осуществляющих свою деятельность без участия иностранного капитала

       Для этого будут использоваться данные o количестве организаций в 2005-годах и данные o числе организаций, ведущих деятельность с использованием иностранного капитала, за тот же период времени.

       Формула 5- число организаций, осуществляющих свою деятельность без участия иностранного капитала 
 

       

       где,

       J- организаций, осуществляющих свою деятельность без участия иностранного капитала

       I- количестве организаций в 2005-годах

       V- числе организаций, ведущих деятельность с использованием иностранного капитала

       3.5 Вычисление объема посевных площадей в 2003-2007 годах сельскохозяйственных угодий.

       Данное вычисление производится с использованием данных o валовом сборе основных сельскохозяйственных культур и их урожайности в периоде 2003-2007 годов.

       Исходные  данные:

       B (I)-валовой сбор основных сельскохозяйственных культур в 2003 г.

       C(I)- валовой сбор основных сельскохозяйственных культур в 2004 г.

       D (I) - валовой сбор основных сельскохозяйственных культур в 2005 г.

       E (I) - валовой сбор основных сельскохозяйственных культур в 2006 г.

       K (I) - валовой сбор основных сельскохозяйственных культур в 2007 г.

       L (I)- урожайность основных сельскохозяйственных культур в 2003г.

       P (I)- урожайность основных сельскохозяйственных культур в 2004г.

       V (I)- урожайность основных сельскохозяйственных культур в 2005г.

       F (I)- урожайность основных сельскохозяйственных культур в 2006г.

       Z (I)- урожайность основных сельскохозяйственных культур в 2007г.

       Расчетные данные:

       O (I)-посевные площади в 2003 г., (тысяч гектар)

       Y(I)- посевные площади в 2004 г., (тысяч гектар)

       Q (I)- посевные площади в 2005 г., (тысяч гектар)

       G (I)- посевные площади в 2006 г., (тысяч гектар)

       M (I)- посевные площади в 2007 г., (тысяч гектар)

       S1-Сумма посевных площадей основных сельскохозяйственных угодий в 2003 году

       S2- Сумма посевных площадей основных сельскохозяйственных угодий в 2004 году

       S3- Сумма посевных площадей основных сельскохозяйственных угодий в 2005 году

       S4- Сумма посевных площадей основных сельскохозяйственных угодий в 2006 году

       S5- Сумма посевных площадей основных сельскохозяйственных угодий в 2007 году

Формулы расчета:

Формула 6- Посевные площади    Формула7-Сумма посевных (тысяч гектар) в 2003 г., 2004 г.,    площадей с.-х. угодий в 2005 г., 2006 г.,  2007 г.     2003 г., 2004 г., 2005 г., соответственно:      2006 г., 2007 г.,

                                                 соответственно:  

         

         

         

         

         
 
 
 

3.5.1 Программный продукт VBA

Sub Plochadi ()

Dim B(5) As Single, C(5) As Single, D(5) As Single, E(5) As Single, K(5) As Single, L(5) As Single, P(5) As Single, V(5) As Single, F(5) As Single, Z(5) As Single, Q(5) As Single, O(5) As Single, Y(5) As Single, G(5) As Single, M(5) As Single, S(5) As Single

Worksheets ("Посевные площади").Activate

For I = 1 To 5

B (I) = Worksheets ("Посевные площади").Cells (I + 3, 2).Value

C (I) = Worksheets ("Посевные площади").Cells (I + 3, 3).Value

D (I) = Worksheets ("Посевные площади").Cells (I + 3, 4).Value

E (I) = Worksheets ("Посевные площади").Cells (I + 3, 5).Value

K (I) = Worksheets ("Посевные площади").Cells (I + 3, 6).Value

L (I) = Worksheets ("Посевные площади").Cells (I + 3, 7).Value

P (I) = Worksheets ("Посевные площади").Cells (I + 3, 8).Value

V (I) = Worksheets ("Посевные площади").Cells (I + 3, 9).Value

F (I) = Worksheets ("Посевные площади").Cells (I + 3, 10).Value

Z (I) = Worksheets ("Посевные площади").Cells (I + 3, 11).Value

O (I) = B (I) / L (I)

Y (I) = C (I) / P (I)

Q (I) = D (I) / V (I)

G (I) = E (I) / F (I)

M (I) = K (I) / Z (I)

S1 = S1 + O (I)

S2 = S2 + P (I)

S3 = S3 + Q (I)

S4 = S4 + G (I)

S5 = S5 + M (I)

Worksheets ("Посевные площади").Cells(I + 3, 12) = O(I)

Worksheets ("Посевные площади").Cells(I + 3, 13) = Y(I)

Worksheets ("Посевные площади").Cells (I + 3, 14) = Q (I)

Worksheets ("Посевные площади").Cells (I + 3, 15) = G (I)

Worksheets ("Посевные площади").Cells (I + 3, 16) = M (I)

Worksheets ("Посевные площади").Cells (9, 12) = S1

Worksheets ("Посевные площади").Cells (9, 13) = S2

Worksheets ("Посевные площади").Cells (9, 14) = S3

Worksheets ("Посевные площади").Cells (9, 15) = S4

Worksheets ("Посевные площади").Cells (9, 16) = S5

Next I

End Sub

       3.6 Построение диаграмм, графиков и выполнение статистической  обработки данных.

       1 С помощью мастера диаграмм табличного процессора MS Excel построим диаграмму «Изменение количества сельскохозяйственных организаций за период 1995-2007 годов».

       Построим  полиномиальный и линейный тренды, фиксирующие изменение количества сельскохозяйственных организаций за период 1995-2007 годы, и предсказывающие дальнейшие изменения количества  сельскохозяйственных организаций до 2012 года.

       Выполним  статистическую обработку данных «Численность предприятий и организаций» для этого воспользуемся мастером функций MS Excel и найдем среднее значение количества организаций по основным отраслям экономики на период 1995-2004 годов, и определим ранги этих значений.

       2 Выполним статистическую обработку данных «Численность работников малых предприятий по видам экономической деятельности в 2007 году» для этого воспользуемся мастером функций MS Excel. Определим максимальные, минимальные и средние значения среднесписочной численности работников (без внешних совместителей),  средней численности внешних совместителей, средней численности работников, выполнявших  работы по  договорам гражданско-правового характера, общей средней численности работников. Так же, используя  мастер функций MS Excel, определим ранг общей средней численности работников в основных экономических отраслях в 2007 году.

       Воспользовавшись  расширенным фильтром, мы определим  экономические отрасли, в которых  среднесписочная численность работников (без внешних совместителей),  средняя численность внешних совместителей, средняя численность работников, выполнявших работы по  договорам гражданско-правового характера, общая средняя численность работников в 2007 году была больше фиксированных средних значений.

       3 Выполним статистическую обработку данных «Количество организаций, осуществляющих деятельность с участием иностранного капитала» для этого воспользуемся мастером функций MS Excel и определим максимальное и минимальное число организаций в отраслях экономики за 2005-2007 годы, использующих иностранный капитал, определим среднее значение таких организаций и ранг этого среднего значения.

       С помощью мастера  диаграмм табличного процессора MS Excel построим диаграмму «Численность организаций, осуществляющих свою деятельность с участием иностранного капитала» .

       4 Выполним статистическую обработку данных «Численность предприятий, действующих без участия иностранного капитала» для этого воспользуемся мастером функций MS Excel.Определим максимальные, минимальные число организаций в отраслях экономики за 2005-2007 годы, осуществляющих свою деятельность без участия иностранного капитала. Так же найдем общее количество таких организаций в периоде 2005-2007 годов.

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

       5 Выполним статистическую обработку данных «Посевные площади, валовой сбор и урожайность» для этого воспользуемся мастером функций MS Excel.Определим суммы валового сбора основных сельскохозяйственных культур за период 2003-2007 годов и сумму посевных площадей этих же культур за тот же период времени. Так же мы определим ранги, найденных сумм.

       С помощью мастера  диаграмм табличного процессора MS Excel построим диаграмму «Объемы посевных площадей».

       6 Выполним статистическую обработку данных «Поголовье скота и птицы в крестьянских хозяйствах» для этого воспользуемся мастером функций MS Excel.Определим суммарное количество животных за период 2003-2007 годов, так же найдем минимальные и максимальные количества различных животных за весь период 2003-2007 годов

       С помощью мастера  диаграмм табличного процессора MS Excel построим диаграмму «Поголовье скота и птицы в крестьянских хозяйствах».

 

4 Выходная информация

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

     Сложившаяся на сегодня в России макроэкономическая, институциональная и политическая среда отражает зависимость экономики  от природных ресурсов. Малый и  средний бизнес занят в соответствующей  степени обслуживанием спроса, порожденного в ресурсных отраслях. Так же в нашей стране в настоящее время малый и средний бизнес зависит от потоков ресурсов.