Скачать .docx  

Реферат: Программирование на VBA

Министерство образования и науки российской федерации

Государственное образовательное учреждение

высшего профессионального образования

«Липецкий государственный технический университет»

(ЛГТУ)

Экономический факультет

Кафедра экономики

Отчет

по курсу «Офисное программирование»

на тему: ПРОГРАММИРОВАНИЕ НА VBA

ВЫПОЛНИЛ: студент гр. ЭМ-09-1

Морозов М. О.

_________________

подпись, дата

ПРОВЕРИЛ: Кудинов Ю. И.

_________________

подпись, дата

Липецк 2010

Задание №1

С помощью окна InputBox введите три числа и в окне MsgBoxвыведите наибольшее из них.

Sub Макрос1()

Число1 = CInt(InputBox("Введите число"))

Число2 = CInt(InputBox("Введите число"))

Число3 = CInt(InputBox("Введите число"))

'ищем максимум

максимум = Число1

If максимум < Число2 Then

максимум = Число2

End If

If максимум < Число3 Then

максимум = Число3

End If

MsgBox "Наибольшее число из введенных: " & максимум

End Sub

Задание №11

Подсчитайте произведение элементов двумерного массива.

Sub Макрос11()

Dim Vals(10, 5) As Integer

'заполним массив случайными числами (кроме нуля)

For i = 0 To 10

For j = 0 To 5

Vals(i, j) = Int(10 * Rnd()) + 1

Next

Next

'посчитаем произведение элементов массива

p = 1

For i = 0 To 10

For j = 0 To 5

p = p * Vals(i, j)

Next

Next

'выведем полученное произведение

MsgBox "Произведение элементов массива равно: " & p

End Sub


Задание №23

Создайте макрос с кнопкой запуска, позволяющий строить график <x,y> по данным, находящимся в ячейках А1:А10 (значения х) и В1:В10 (значения y).

Sub Макрос23()

ActiveSheet.Shapes.AddChart.Select

ActiveChart.ChartType = xlLine

ActiveChart.SetSourceData Source:=Range("A1:A10")

ActiveChart.SeriesCollection(1).XValues = "='Лист1'!$B$1:$B$10"

End Sub

Sub Макрос4()

'

' Макрос4 Макрос

'

'

ActiveCell.Offset(-11, 2).Range("A1").Select

ActiveSheet.Shapes.AddChart.Select

ActiveChart.ChartType = xlLine

ActiveChart.SetSourceData Source:=ActiveCell.Offset(-5, -4).Range("A1:A10")

ActiveChart.SeriesCollection(1).XValues = "='Лист1'!$B$1:$B$10"

End Sub

Задание №33

На основании условия задачи 31 выполните математические операции, используя вместо кнопок соответствующие переключатели: Сложение, Вычитание, Умножение, Деление.

Private Sub cmb_Change()

Select Case cmb.Value

Case "Сложение"

Range("D8").Value = Range("A8").Value + Range("B8").Value

Case "Вычитание"

Range("D8").Value = Range("A8").Value - Range("B8").Value

Case "Умножение"

Range("D8").Value = Range("A8").Value * Range("B8").Value

Case "Деление"

Range("D8").Value = Range("A8").Value / Range("B8").Value

End Select

End Sub

Private Sub cmb_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)

If KeyCode = vbKeyReturn Then

cmb.Clear

cmb.AddItem "Сложение"

cmb.AddItem "Вычитание"

cmb.AddItem "Умножение"

cmb.AddItem "Деление"

End If

End Sub

Задание №44

Составьте в VBAтаблицу МАГАЗИНЫ примините к ней формат Простой.

Sub Макрос44()

'

' Макрос44 Макрос

Range("A1").Activate

'ActiveCell.Range("A1").Select

ActiveCell.FormulaR1C1 = "Магазин"

ActiveCell.Offset(0, 1).Range("A1").Select

ActiveCell.FormulaR1C1 = "Вид"

ActiveCell.Offset(0, 1).Range("A1").Select

ActiveCell.FormulaR1C1 = "Январь"

ActiveCell.Offset(0, 1).Range("A1").Select

ActiveCell.FormulaR1C1 = "Февраль"

ActiveCell.Offset(0, 1).Range("A1").Select

ActiveCell.FormulaR1C1 = "Март"

ActiveCell.Offset(0, 1).Range("A1").Select

ActiveCell.FormulaR1C1 = "Апрель"

ActiveCell.Offset(0, 1).Range("A1").Select

ActiveCell.FormulaR1C1 = "Итого"

ActiveCell.Offset(1, -6).Range("A1").Select

ActiveCell.FormulaR1C1 = "МИРАЖ"

ActiveCell.Offset(1, 0).Range("A1").Select

ActiveCell.FormulaR1C1 = "СУВЕНИР"

ActiveCell.Offset(1, 0).Range("A1").Select

ActiveCell.FormulaR1C1 = "ПРЕСТИЖ"

ActiveCell.Offset(1, 0).Range("A1").Select

ActiveCell.FormulaR1C1 = "ДОМОВОЙ"

ActiveCell.Offset(1, 0).Range("A1").Select

ActiveCell.FormulaR1C1 = "ЮНИОН"

ActiveCell.Offset(1, 0).Range("A1").Select

ActiveCell.FormulaR1C1 = "МОДА"

ActiveCell.Offset(-5, 1).Range("A1").Select

ActiveCell.FormulaR1C1 = "М"

ActiveCell.Offset(1, 0).Range("A1").Select

ActiveCell.FormulaR1C1 = "А"

ActiveCell.Offset(1, 0).Range("A1").Select

ActiveCell.FormulaR1C1 = "М"

ActiveCell.Offset(1, 0).Range("A1").Select

ActiveCell.FormulaR1C1 = "А"

ActiveCell.Offset(1, 0).Range("A1").Select

ActiveCell.FormulaR1C1 = "М"

ActiveCell.Offset(1, 0).Range("A1").Select

ActiveCell.FormulaR1C1 = "А"

ActiveCell.Offset(-5, 1).Range("A1").Select

ActiveCell.FormulaR1C1 = "15345"

ActiveCell.Offset(1, 0).Range("A1").Select

ActiveCell.FormulaR1C1 = "13440"

ActiveCell.Offset(1, 0).Range("A1").Select

ActiveCell.FormulaR1C1 = "16890"

ActiveCell.Offset(1, 0).Range("A1").Select

ActiveCell.FormulaR1C1 = "14840"

ActiveCell.Offset(1, 0).Range("A1").Select

ActiveCell.FormulaR1C1 = "13985"

ActiveCell.Offset(1, 0).Range("A1").Select

ActiveCell.FormulaR1C1 = "17345"

ActiveCell.Offset(-5, 1).Range("A1").Select

ActiveCell.FormulaR1C1 = "16725"

ActiveCell.Offset(1, 0).Range("A1").Select

ActiveCell.FormulaR1C1 = "15540"

ActiveCell.Offset(1, 0).Range("A1").Select

ActiveCell.FormulaR1C1 = "15730"

ActiveCell.Offset(1, 0).Range("A1").Select

ActiveCell.FormulaR1C1 = "16320"

ActiveCell.Offset(1, 0).Range("A1").Select

ActiveCell.FormulaR1C1 = "15565"

ActiveCell.Offset(1, 0).Range("A1").Select

ActiveCell.FormulaR1C1 = "14255"

ActiveCell.Offset(-5, 1).Range("A1").Select

ActiveCell.FormulaR1C1 = "17340"

ActiveCell.Offset(1, 0).Range("A1").Select

ActiveCell.FormulaR1C1 = "14455"

ActiveCell.Offset(1, 0).Range("A1").Select

ActiveCell.FormulaR1C1 = "17220"

ActiveCell.Offset(1, 0).Range("A1").Select

ActiveCell.FormulaR1C1 = "15330"

ActiveCell.Offset(1, 0).Range("A1").Select

ActiveCell.FormulaR1C1 = "16775"

ActiveCell.Offset(1, 0).Range("A1").Select

ActiveCell.FormulaR1C1 = "15660"

ActiveCell.Offset(-5, 1).Range("A1").Select

ActiveCell.FormulaR1C1 = "14990"

ActiveCell.Offset(1, 0).Range("A1").Select

ActiveCell.FormulaR1C1 = "16385"

ActiveCell.Offset(1, 0).Range("A1").Select

ActiveCell.FormulaR1C1 = "15700"

ActiveCell.Offset(1, 0).Range("A1").Select

ActiveCell.FormulaR1C1 = "16125"

ActiveCell.Offset(1, 0).Range("A1").Select

ActiveCell.FormulaR1C1 = "13355"

ActiveCell.Offset(1, 0).Range("A1").Select

ActiveCell.FormulaR1C1 = "13480"

ActiveCell.Offset(0, 1).Range("A1").Select

ActiveCell.Offset(0, -6).Columns("A:A").EntireColumn.EntireColumn.AutoFit

ActiveCell.Offset(0, -6).Columns("A:A").EntireColumn.ColumnWidth = 10.57

ActiveCell.Offset(1, -6).Range("A1:B1").Select

With Selection

.HorizontalAlignment = xlGeneral

.VerticalAlignment = xlBottom

.WrapText = False

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

End With

ActiveCell.Offset(-7, 0).Range("A1:G8").Select

'ActiveCell.Offset(-7, 6).Range("A1").Activate

With Selection

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlBottom

.WrapText = False

.Orientation = 0

.AddIndent = False

.IndentLevel = 0

.ShrinkToFit = False

.ReadingOrder = xlContext

End With

Selection.Borders(xlDiagonalDown).LineStyle = xlNone

Selection.Borders(xlDiagonalUp).LineStyle = xlNone

With Selection.Borders(xlEdgeLeft)

.LineStyle = xlContinuous

.ColorIndex = xlAutomatic

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlEdgeTop)

.LineStyle = xlContinuous

.ColorIndex = xlAutomatic

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlEdgeBottom)

.LineStyle = xlContinuous

.ColorIndex = xlAutomatic

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlEdgeRight)

.LineStyle = xlContinuous

.ColorIndex = xlAutomatic

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlInsideVertical)

.LineStyle = xlContinuous

.ColorIndex = xlAutomatic

.TintAndShade = 0

.Weight = xlThin

End With

With Selection.Borders(xlInsideHorizontal)

.LineStyle = xlContinuous

.ColorIndex = xlAutomatic

.TintAndShade = 0

.Weight = xlThin

End With

ActiveCell.Range("A8").Select

ActiveCell.FormulaR1C1 = "Итого"

ActiveCell.Range("A1:B1").Select

ActiveWindow.SmallScroll Down:=-3

ActiveCell.Offset(-7, 0).Range("A1:G8").Select

ActiveSheet.ListObjects.Add(xlSrcRange, Range("$A$1:$G$8"), , xlYes).Name = _

"Таблица3"

ActiveCell.Range("A1:G8").Select

ActiveSheet.ListObjects("Таблица3").TableStyle = "TableStyleLight8"

ActiveCell.Columns("A:A").EntireColumn.EntireColumn.AutoFit

ActiveCell.Offset(0, 1).Columns("A:A").EntireColumn.EntireColumn.AutoFit

ActiveCell.Offset(0, 2).Columns("A:A").EntireColumn.EntireColumn.AutoFit

ActiveCell.Offset(0, 3).Columns("A:A").EntireColumn.EntireColumn.AutoFit

ActiveCell.Offset(0, 4).Columns("A:A").EntireColumn.EntireColumn.AutoFit

ActiveCell.Offset(0, 5).Columns("A:A").EntireColumn.EntireColumn.AutoFit

ActiveCell.Offset(0, 6).Columns("A:A").EntireColumn.EntireColumn.AutoFit

ActiveCell.Offset(8, 0).Range("A1").Select

End Sub


Используемая литература:

1. Практическая работа в VBA: Учебное пособие/ Липецкий Государственный технический университет, Липецк, 2001. – 98с.