Банк рефератов содержит более 364 тысяч рефератов, курсовых и дипломных работ, шпаргалок и докладов по различным дисциплинам: истории, психологии, экономике, менеджменту, философии, праву, экологии. А также изложения, сочинения по литературе, отчеты по практике, топики по английскому.
Полнотекстовый поиск
Всего работ:
364139
Теги названий
Разделы
Авиация и космонавтика (304)
Административное право (123)
Арбитражный процесс (23)
Архитектура (113)
Астрология (4)
Астрономия (4814)
Банковское дело (5227)
Безопасность жизнедеятельности (2616)
Биографии (3423)
Биология (4214)
Биология и химия (1518)
Биржевое дело (68)
Ботаника и сельское хоз-во (2836)
Бухгалтерский учет и аудит (8269)
Валютные отношения (50)
Ветеринария (50)
Военная кафедра (762)
ГДЗ (2)
География (5275)
Геодезия (30)
Геология (1222)
Геополитика (43)
Государство и право (20403)
Гражданское право и процесс (465)
Делопроизводство (19)
Деньги и кредит (108)
ЕГЭ (173)
Естествознание (96)
Журналистика (899)
ЗНО (54)
Зоология (34)
Издательское дело и полиграфия (476)
Инвестиции (106)
Иностранный язык (62791)
Информатика (3562)
Информатика, программирование (6444)
Исторические личности (2165)
История (21319)
История техники (766)
Кибернетика (64)
Коммуникации и связь (3145)
Компьютерные науки (60)
Косметология (17)
Краеведение и этнография (588)
Краткое содержание произведений (1000)
Криминалистика (106)
Криминология (48)
Криптология (3)
Кулинария (1167)
Культура и искусство (8485)
Культурология (537)
Литература : зарубежная (2044)
Литература и русский язык (11657)
Логика (532)
Логистика (21)
Маркетинг (7985)
Математика (3721)
Медицина, здоровье (10549)
Медицинские науки (88)
Международное публичное право (58)
Международное частное право (36)
Международные отношения (2257)
Менеджмент (12491)
Металлургия (91)
Москвоведение (797)
Музыка (1338)
Муниципальное право (24)
Налоги, налогообложение (214)
Наука и техника (1141)
Начертательная геометрия (3)
Оккультизм и уфология (8)
Остальные рефераты (21692)
Педагогика (7850)
Политология (3801)
Право (682)
Право, юриспруденция (2881)
Предпринимательство (475)
Прикладные науки (1)
Промышленность, производство (7100)
Психология (8692)
психология, педагогика (4121)
Радиоэлектроника (443)
Реклама (952)
Религия и мифология (2967)
Риторика (23)
Сексология (748)
Социология (4876)
Статистика (95)
Страхование (107)
Строительные науки (7)
Строительство (2004)
Схемотехника (15)
Таможенная система (663)
Теория государства и права (240)
Теория организации (39)
Теплотехника (25)
Технология (624)
Товароведение (16)
Транспорт (2652)
Трудовое право (136)
Туризм (90)
Уголовное право и процесс (406)
Управление (95)
Управленческие науки (24)
Физика (3462)
Физкультура и спорт (4482)
Философия (7216)
Финансовые науки (4592)
Финансы (5386)
Фотография (3)
Химия (2244)
Хозяйственное право (23)
Цифровые устройства (29)
Экологическое право (35)
Экология (4517)
Экономика (20644)
Экономико-математическое моделирование (666)
Экономическая география (119)
Экономическая теория (2573)
Этика (889)
Юриспруденция (288)
Языковедение (148)
Языкознание, филология (1140)

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

Название: Программирование на VBA
Раздел: Рефераты по информатике
Тип: реферат Добавлен 16:52:11 08 июля 2011 Похожие работы
Просмотров: 20 Комментариев: 18 Оценило: 2 человек Средний балл: 5 Оценка: неизвестно     Скачать

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

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

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

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

(ЛГТУ)

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

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

Отчет

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

на тему: ПРОГРАММИРОВАНИЕ НА 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с.

Оценить/Добавить комментарий
Имя
Оценка
Комментарии:
Хватит париться. На сайте FAST-REFERAT.RU вам сделают любой реферат, курсовую или дипломную. Сам пользуюсь, и вам советую!
Никита02:32:43 05 ноября 2021
.
.02:32:41 05 ноября 2021
.
.02:32:40 05 ноября 2021
.
.02:32:38 05 ноября 2021
.
.02:32:37 05 ноября 2021

Смотреть все комментарии (18)
Работы, похожие на Реферат: Программирование на VBA

Назад
Меню
Главная
Рефераты
Благодарности
Опрос
Станете ли вы заказывать работу за деньги, если не найдете ее в Интернете?

Да, в любом случае.
Да, но только в случае крайней необходимости.
Возможно, в зависимости от цены.
Нет, напишу его сам.
Нет, забью.



Результаты(294144)
Комментарии (4230)
Copyright © 2005-2022 BestReferat.ru support@bestreferat.ru реклама на сайте

Рейтинг@Mail.ru