Оглавление

Задание 1. Основные методы объекта Range 2

Задание 2 3

Листинг процедур 3

Задание 3 5

Листинг процедур 5

Задание 4 7

Листинг процедур 7

Список литературы 11

Задание 1. Основные методы объекта Range

Объект Range входит в состав объекта Worksheet и представляет одну или несколько ячеек рабочего листа. Его главное назначение – хранить и отображать отдельные фрагменты данных: числа, строки или формулы. Но ячейки, представляемые объектом Range, - не просто ящики для хранения информации. Из них Вы вправе вызывать встроенные функции Excel и функции VBA. Ячейки можно связывать с другими ячейками на этом же листе, на другом листе и даже в другой рабочей книге. Понимание гибкости и силы объекта Range позволит Вам полнее использовать вычислительную мощь Excel и создавать качественные приложения для анализа данных.

Объект Range обладает следующими методами:

Calculate – пересчитывает все формулы диапазона. Аргументов нет.

Worksheets (1). Range (“A1: F20”). Calulate

Clear Contents – удаляет из диапазона все значения и формулы, но оставляет форматирование. Аргументов нет.

Worksheets (1). Range (“A1: F20”). Clear Contents

Copy – копирует содержимое диапазона в другой диапазон или в буфер обмена. Аргумент: Destination - диапазон для копирования содержимого исходного диапазона, этот аргумент отсутствует, содержимое копируется в буфер обмена.

Worksheets (1). Range (“A1”). Copy

Задание 2

Мы создали пользовательскую функцию на листе «Задание 2» в модуле Module1. Функция получает в качестве параметра переменную типа String, возвращает переменную такого же типа. Функция использует следующие стандартные функции:

Trim – убирает лишние пробелы в строке;

Left – возвращает некоторое количество символов от начала строки;

Mid – вырезает из строки часть;

Len – возвращает количество символов в строке;

Листинг процедур

Dim r(17), c(4)

Function swap(s)

s = Trim(s)

s_reverse = ""

For n = 1 To Len(s)

If Mid(s, n, 1) = " " Then

left_n = n

GoTo l

End If

Next n

l:

left_word = Left(s, left_n - 1)

For n = 1 To Len(s)

s_reverse = s_reverse + Mid(s, Len(s) - n + 1, 1)

Next n

For n = 1 To Len(s_reverse)

If Mid(s_reverse, n, 1) = " " Then

right_n = n

GoTo l1

End If

Next n

l1:

right_word = Left(s_reverse, right_n - 1)

right_n = Len(s) - right_n

temp = ""

For n = 1 To Len(right_word)

temp = temp + Mid(right_word, Len(right_word) - n + 1, 1)

Next n

right_word = temp

middle = Mid(s, left_n + 1, right_n - left_n)

swap = right_word + " " + middle + " " + left_word

End Function

Задание 3

Каждую кнопку мы привязали к макросу. Макросы манипулирует, в основном, объектом Range, который позволяет получить доступ к ячейкам и к их свойствам.

Листинг процедур

Sub Макрос1()

m = 1

For n = 1 To 17

Range(Cells(n + 1, 2), Cells(n + 1, 2)).Value = n

Range(Cells(n + 1, 5), Cells(n + 1, 5)).Value = n

If m = 1 Then

Range(Cells(n + 1, 2), Cells(n + 1, 2)).Font.Italic = True

Range(Cells(n + 1, 5), Cells(n + 1, 5)).Font.Italic = True

m = 1 - m