Практическая работа №8. Тема icon

Практическая работа №8. Тема


Скачать 40.71 Kb.
НазваниеПрактическая работа №8. Тема
Дата публикации23.09.2013
Размер40.71 Kb.
ТипПрактическая работа

Изм.

Лист

докум.

Подпись

Дата

Лист

ППП 08. .000 ПР

Разраб.

Провер.


Реценз.


Н. Контр.


Утверд.


Практическая работа №8

Лит.

Листов

4

35ПРО-10

Практическая работа №8.

Тема: Создание шаблонов в табличном редакторе MS Excel на языке VBA.

Цель: Получить навыки создания шаблонов в табл. Редакторе MS Excel, используя средства встроенного языка программирования VBA.

Оборудование: IBM PC.

Программное обеспечение: VBA, Windows XP, MS Excel.

Ход работы :

  1. Начал сеанс работы, открыл MS Excel, создал шаблон, запустил редактор VBA (Alt+F11)

  2. Создал предложенные макросы :

  1. Макрос, задающий стиль границ для выделенных ячеек

Sub Кнопка1_Щелчок()

^ Selection.Borders(xlDiagonalDown).LineStyle = xlNone

Selection.Borders(xlDiagonalUp).LineStyle = xlNone

With Selection.Borders(xlEdgeLeft)

.LineStyle = xlContinuous

.Weight = xlThick

.ColorIndex = xlAutomatic

End With

With Selection.Borders(xlEdgeTop)

.LineStyle = xlContinuous

.Weight = xlThick

.ColorIndex = xlAutomatic

End With

With Selection.Borders(xlEdgeBottom)

.LineStyle = xlContinuous

.Weight = xlThick

.ColorIndex = xlAutomatic

End With


With Selection.Borders(xlEdgeRight)

.LineStyle = xlContinuous

.Weight = xlThick

.ColorIndex = xlAutomatic

End With

With Selection.Borders(xlInsideVertical)

.LineStyle = xlContinuous

.Weight = xlThick

.ColorIndex = xlAutomatic

End With

With Selection.Borders(xlInsideHorizontal)

.LineStyle = xlContinuous

.Weight = xlThick

.ColorIndex = xlAutomatic

End With

End Sub

Изм.

Лист

докум.

Подпись

Дата

Лист

2

ППП 08. .000 ПР


Макрос, задающий формат ячеек

Sub Кнопка2_Щелчок()

With Selection

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlCenter

.WrapText = False

.Orientation = 0

.ShrinkToFit = False

.MergeCells = False

End With


With Selection.Font

.Name = "Arial Cyr"

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


.Size = 10

.Strikethrough = False

.Superscript = False

.Subscript = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

End Sub

Изм.

Лист

докум.

Подпись

Дата

Лист

3

ППП 08. .000 ПР


назначил им сочетания клавиш

выделил кнопку Borders(FormatCells), нажал на вкладку “Макросы”,

выбрал в окне Кнопка1_Щелчок(Кнопка2_Щелчок) -> Параметры

-> сочетание клавиш ctrl + q (ctrl + w)

3. Выполнил задание согласно варианту : Макрос, выполняющий следующие действия : создает рабочую книгу, добавляет на первый лист в ячейки A1:A10 словосочетание “С новым годом !” (предусматривая перенос по словам)

Sub Лист3_Кнопка2_Щелчок()

Workbooks.Add

Selection.Range("A1:A10").WrapText = True

Worksheets("Лист1").Range("A1:A10") = "С новым годом!"

End Sub


Назначил макросу сочетание клавиш

выделил кнопку var3, нажал на вкладку “Макросы”,

выбрал в окнеЛист3_Кнопка2_Щелчок -> Параметры

-> сочетание клавиш ctrl + e

4. Выполнил свой вариант :





Изм.

Лист

докум.

Подпись

Дата

Лист

4

ППП 08. .000 ПР


Вывод: Получил навыки создания шаблонов в табл. Редакторе MS Excel, используя средства встроенного языка программирования VBA.



Похожие:

Практическая работа №8. Тема iconПрактическая работа №5
Тема: Тема разработка технологической карты на монтаж железобетонного каркаса одноэтажного промышленного здания
Практическая работа №8. Тема iconПрактическая работа №1. " Размер, предельные отклонения, допуски и посадки. "
Практическая работа №2. ” Ознакомление с устройством и принципом действия штангенциркуля. ”
Практическая работа №8. Тема iconПрактическая работа №3 ( Виртуальная) Тема: Карбоновые кислоты и их производные

Практическая работа №8. Тема iconПрактическая работа №2 Тема: Получение этилена и опыты с ним

Практическая работа №8. Тема iconПрактическая работа №9 Лит. Листов 1 35-про-10
Тема: Нахождение решений обыкновенных дифференциальных уравнений при помощи Эйлера
Практическая работа №8. Тема iconПрактическая работа №5
...
Практическая работа №8. Тема iconПрактическая работа №14 методика составления обзора документов
Тема справочно-поисковые средства к архивным документам (научно-справочный аппарат)
Практическая работа №8. Тема iconПрактическая работа №5 Тема: Качественные реакции на белок
Задач Дан раствор куриного белка, мясной бульон и молоко. С помощью качественных
Практическая работа №8. Тема iconПрактическая работа №8. Тема
Цель: Получить навыки создания шаблонов в табл. Редакторе ms excel, используя средства встроенного языка программирования vba
Практическая работа №8. Тема iconПрактическая работа №15 Тема: «Определения качества основного и дополнительного сырья»
Цель работы: Научиться составлять технологические карты на изделия из дрожжевого теста
Практическая работа №8. Тема iconПрактическая работа №1 Тема: «Расчет и построение линейных графиков строительного потока». Предмет: «Организация строительного производства»

Вы можете разместить ссылку на наш сайт:
Документы


При копировании материала укажите ссылку ©ignorik.ru 2015

контакты
Документы