Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РФ
Федеральное государственное бюджетное учреждение высшего профессионального образования
«Юго-Западный государственный университет»
Кафедра ПО и ВТ
Лабораторная работа №4
Обработка строковых данных с помощью VBA
Вариант 12
|
Выполнили: |
ст. гр. ПО-91 Кулабухов С.А. |
|
|
Проверил: |
доц. Малышев. А.В. |
Курск - 2013
Цель: Изучение основных функция VBA для обработки данных.
Выполнение работы
Задание 1: Научиться операциями со строковыми данными
Задача: Получить результаты решения по следующему варианту
Вариант 12 – Поменять местами первую и последнюю буквы
Выполнение
Задание 2: Научиться использованию текстовых функций VBA
Задача: Повторить задание 1, используя программу на VBA
Выполнение
Код на VBA
Sub Calling_ProcessStringFirst()
Dim ResStr As String
Dim p As Integer
p = 14
For i = 1 To 7
ProcessStringFirst Cells(p, 1), ResStr
Cells(p, 2) = ResStr
p = p + 1
Next i
End Sub
Задание 3: Научиться созданию пользовательских текстовых функций
Задача: Повторить задание 2, используя вызов подпрограммы-функции на VBA из мастера функций (категория «Определенные пользователем»).
Выполнение
Код на VBA
Function ProcessStringFunc(str As String)
Dim ResStr As String
ProcessStringFirst str, ResStr
ProcessStringFunc = ResStr
End Function
Задание 4: Научиться оперировать со строковыми массивами
Задача: Записать в последовательность ячеек рабочего листа набор слов. Получить новый набор слов в соответствии с вариантом
Выполнение
Код на VBA
Sub ProcessDefaultArrayString()
Dim ResStr As String
Dim A(5) As String
For i = 2 To 6
A(i - 1) = Cells(25, i)
Next i
For i = 2 To 6
ProcessStringFirst A(i - 1), ResStr
Cells(26, i) = ResStr
Next i
End Sub
Задание 5: Научиться использовать подпрограммы-процедуры для обработки строковых массивов
Задача: Записать в последовательность ячеек рабочего листа набор слов. Получить новый набор слов в соответствии с вариантом
Выполнение
Код на VBA
Sub SubProcessArrayString(A() As String, B() As String)
Dim res As String
For i = 0 To 4
ProcessStringFirst A(i), res
B(i) = res
Next i
End Sub
Sub ProcessArrayString()
Dim A(5) As String
Dim B(5) As String
Dim res As String
For i = 2 To 6
A(i - 2) = Cells(32, i)
Next i
SubProcessArrayString A, B
For i = 2 To 6
ProcessStringFirst A(i - 2), res
B(i - 2) = res
Next i
For i = 2 To 6
Cells(33, i) = B(i - 2)
Next i
End Sub
Внешний вид рабочеq книги Excel