Программирование макросов в Excel

' выводим в  статус бар идентификатор выполнения

Application.StatusBar = gh

For j = n To m

' присваиваем  переменной g значение выбранной  ячейки по параметрам цикла

g = NewSheet.Cells(j, i).Value

' если ячейка  пустая то переходим к другой  ячейки

If g = "" Then GoTo 1

' обращаемся  к процедуре декодирования строки  и присваиваем значение в выбранное поле

NewSheet.Cells(j, i).Value = decsv(g)

1 Next

Next

' выводим в  статус бар идентификатор выполнения

Application.StatusBar = " 100%  Процесс декодирования успешно  завершон."

End Sub

'процедура которая  находит раьочий лист и размер  рабочего промежутка

Private Sub schet()

t = InStr(1, addres, "$")

t1 = InStr(t + 1, addres, "$")

t2 = InStr(t1 + 1, addres, "$")

' определяем  верхний предел

n = Mid(addres, t1 + 1, t2 - t1 - 2)

t3 = InStr(t2 + 1, addres, "$")

' определяем  нижний предел

m = Mid(addres, t3 + 1, Len(addres) - t3)

' определяем  имя лист

List = Mid(addres, 1, InStr(1, addres, ":") - 1)

End Sub

' процедура декодирования  переданной строки

Function decsv(p) As String

' Цикл с 1 по  последний элемент переданной  строкт

For i = 1 To Len(p)

' ссуматор выводит индекс элемента пароля будет использоватся в кодированиии

c = c + 1

' если индекс  не существует тогда использеум 1 индекс

If c >= Len(password) Then c = 1

' получаем ascii код  используемого символа

a1 = Asc(Mid(p, i, 1))

' получаем ascii код символа пароля с которым будем ссумировать

a2 = Asc(Mid(password, c, 1))

' ссумируем 2 ascii кода и получаем закодированный ascii код

a1 = a1 - a2

' если код  выкодит за дозволенные промежутки  тогда тогда приводим в нормальное  значение

If a1 <= 0 Then a1 = a1 + 255

' создаем закодированную  строку

TempStr = TempStr + Chr(a1)

Next

' возвращаем  закодированную страку

decsv = TempStr

End Function

' процедура декодирования  переданной строки

Function codsv(p) As String

' Цикл с 1 по  последний элемент переданной  строкт

For i = 1 To Len(p)

' ссуматор выводит  индекс элемента пароля будет использоватся в кодированиии

c = c + 1

' если индекс  не существует тогда использеум 1 индекс

If c >= Len(password) Then c = 1

' получаем ascii код  используемого символа

a1 = Asc(Mid(p, i, 1))

' получаем ascii код  символа пароля с которым будем  дессумировать

a2 = Asc(Mid(password, c, 1))

' ссумируем 2 ascii кода и получаем декодированный ascii код

a1 = a1 + a2

' если код  выкодит за дозволенные промежутки  тогда тогда приводим в нормальное значение

If a1 >= 256 Then a1 = a1 - 255

' создаем декодированную  строку

TempStr = TempStr + Chr(a1)

Next

' возвращаем  декодированную страку

codsv = TempStr

End Function

' процедура активации  формы

Private Sub UserForm_Activate()

' выводим адреса  выбранной области

Label3.Caption = addres

End Sub

' процедура загрузки  формы

Private Sub UserForm_Initialize()

' выводим адреса  выбранной области

Label3.Caption = addres

End Sub 

Module1 (модуль) 
' переменная для хранения имени используемого листа и верхнего и нижнего предела строк кодирования

Public addres

' Макроз вызывается  нажатием Cnrl-k и запускает макрос2

Sub Макрос1()

    Application.Run "Книга1.xls!Макрос2"

End Sub 

Sub Макрос2()

' запускает главную  форму проэкта

UserForm1.Show

End Sub 

ЭтаКнига.xls (события связанные с файлом) 
' процедура запускается при выборе ячеек таблици

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Excel.Range)

    ' переменной присваиваем именя используемого листа и верхнего и нижнего предела строк кодирования

    Module1.addres = Sh.Name & ":" & Target.address

End Sub 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Заключение.

 

В этой программе мы показали основные возможности  программирования макросов в Excel. Мы реализовали проект по кодировке информации. Научились: получать и передавать обратно данные из ячеек, обращаться к ячейкам, записывать в статус бар проекта текстовые сообщения, получать информацию о размере выделенных ячеек, запускать по нажатию клавиш модули, создавать формы и модули.

Программа VBА и язык VB дает неограниченные возможности для программиста т.к. существует, облегчает его учесть малым нагромождением функций и процедур предусмотренными программистами Microsoft на стадии разработки языка.  
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Список  используемой литературы. 
 

1. А.Н.Степанов, “Информатика”,2003г.
2. Ю.Шафрин, ”Информатика”, 2003г.
3. Журин А.А., ”Самый современный самоучитель работы на компьютере”, 2004г.
4. С.Симонович, Г.Евсеев., “Программирование”, 2001г.
5. С.Симонович, Г.Евсеев .,“Windows 98”, 2001г.
6. Б.Карпов Visual Basic 6: специальный справочник. – Спб.: Питер, 2002. –   416 с.