WWW.REFERATCENTRAL.ORG.UA - Я ТУТ НАВЧАЮСЬ

... відкритий, безкоштовний архів рефератів, курсових, дипломних робіт

ГоловнаІнформатика, Компютерні науки → Використання елементів управління в книгах і листах Microsoft Excel - Реферат

Використання елементів управління в книгах і листах Microsoft Excel - Реферат

записаний 19.12.2003 (computer)
Range("B1").Select
ActiveCell.FormulaR1C1 = "Атестація"
Range("C1").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Range("B2").Select
ActiveCell.FormulaR1C1 = "Курс"
Range("A3").Select
ActiveCell.FormulaR1C1 = "Група"
Range("A3:A4").Select
Range("A4").Activate
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("B3").Select
ActiveCell.FormulaR1C1 = "Кількість оцінок"
Range("B3:E3").Select
Range("E3").Activate
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Range("F3").Select
ActiveCell.FormulaR1C1 = "Середній бал"
Range("F3:F4").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
ActiveWindow.SmallScroll ToRight:=-1
Range("B4").Select
ActiveCell.FormulaR1C1 = "5"
Range("C4").Select
ActiveCell.FormulaR1C1 = "4"
Range("D4").Select
ActiveCell.FormulaR1C1 = "3"
Range("E4").Select
ActiveCell.FormulaR1C1 = "2"
Range("A1:F4").Select
Selection.Font.Bold = True
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
End With
Range("A5").Select
ActiveCell.FormulaR1C1 = "ФН"
Range("A6").Select
ActiveCell.FormulaR1C1 = "МХВ"
Range("A7").Select
ActiveCell.FormulaR1C1 = "УТР"
Range("A8").Select
ActiveCell.FormulaR1C1 = "ЕК"
Range("A9").Select
ActiveCell.FormulaR1C1 = "Всього"
Range("B9").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-4]C:R[-1]C)"
Range("B9").Select
Selection.AutoFill Destination:=Range("B9:E9"), Type:=xlFillDefault
Range("B9:E9").Select
Range("F5").Select
ActiveCell.FormulaR1C1 = "=AVERAGE(RC[-4]:RC[-1])"
Selection.AutoFill Destination:=Range("F5:F9"), Type:=xlFillDefault
Range("F5:F9").Select
Range("B5").Select
End Sub
Дії, виконані по ходу створення макросу, записуються в одній або декількох рядках модуля мовою Visual Basic. Причому різні фрагменти модуля офарблюються в різні кольори: для виділення коментарів використовується зелений колір, для виділення ключових слів - синій, а для всіх інших фрагментів - чорний. У випадку запуску цього (або будь-якого іншого) макросу насправді відбувається запуск програми, записаної в кодах Visual Basic for Applications. При запуску модуля виконується кожен рядок програми, записаної на Visual Basic for Applications, і в результаті Excel виконує відповідні дії.
Коментарі
У текст програми, написаної мовою Visual Basic for Applications, можна включити коментарі (рядки, що будуть ігноруватися Excel при виконанні, потрібні для того, щоб повідомити, що виконує програма, або окремі рядки програми). Коментарі в тексті програми починаються з апострофа. У прикладі процедури, розглянутому вище, коментарі виглядають у такий спосіб:
' Рейтинг макрос
' Макрос записаний 19.12.2003 (computer)
Тут Excel використовує як коментарі текст, введений раніше у рядках Імя макросу й Описание диалогового окна Запись макроса. Але можна додавати коментарі в будь-яке місце програми, ввівши спочатку апостроф, а потім потрібний текст. Коментарі дуже корисні при написанні складних програм, оскільки вони нагадують про те, що виконує та або інша процедура. Коментар може займати весь рядок або її частину, розташовуючи після оператора мови Visual Basic for Applications і починаючи з апострофа. При виконанні програми всі символи, що стоять за апострофом, будуть ігноруватися.
Заголовок і кінець процедури. Перед коментарем йде рядок, у якому записано:
Sub Рейтинг()
В останньому рядку записано:
End Sub
Це рядки заголовоку і кінеця процедури. Кожна процедура мовою Visual Basic for Applications починається з Sub або Function і закінчується рядком End Sub або End Function. У мові Visual Basic for Applications передбачено два типи підпрограм: процедури і функції. Функції схожі на функції, вбудовані в Excel. На вхід функції надходить деяке значення (або декілька значеннь), потім над цим значенням виконуються визначені дії і повертається результат обчислень. Процедура не повертає значення (хоча з неї можна передати значення за допомогою спеціальних операторів). Параметри, передані у функцію, вказуються в круглих дужках у заголовку. Підпрограма завершується рядком, що містить End Sub або End Function, що повідомляє Excel про те, що досягнуть кінець підпрограми. При досягненні кінця процедури управління передається в процедуру яка викликала цю процедуру. Якщо дана процедура не була викликана з іншої процедури, то керування передається програмі Excel.
Виділення і введення даних, керуючі оператори
Після коментаря процедури ідуть два рядки, у яких записане, що потрібно виділити клітинку В2 і ввести в неї текст:
Range("B1").Select
ActiveCell.FormulaR1C1 = "Атестація"
Оператор Range повідомляє Excel, що необхідно виділити діапазон клітинок. Оскільки в круглих дужках зазначена адреса тільки однієї клітики (В1), Excel виділить тільки клітинку з цією адресою. Наступний оператор повідомляє Excel, що потрібно ввести текст (у даному випадку фразу "Атестація:") у виділену клітинку робочого листа (у даному випадку в клітинка В1).
Крім рядків, у яких записуються операції переміщення рамки виділення і введення даних, є рядки, у яких записуються операції присвоєння елементам робочого листа різних значень. Наприклад, після того як ви натиснете комбінацію клавіш , щоб привласнити символам напівжирний шрифт, у модулі з'явиться наступний запис:
Selection.Font.Bold = True
Після обробки цього запису символам виділеної клітинки (або клітинок) призначається
Loading...

 
 

Цікаве