Программирование на 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&q

Внимание, отключите Adblock

Вы посетили наш сайт со включенным блокировщиком рекламы!
Ссылка для скачивания станет доступной сразу после отключения Adblock!

Скачать