Автор работы: Пользователь скрыл имя, 18 Марта 2012 в 13:36, курсовая работа
VBA (Visual Basic for Application) – это язык программирования, поддерживаемый всеми приложениями пакета Microsoft Office, в состав которого входят такие популяр¬ные приложения, как Microsoft Access, Microsoft Excel, Microsoft PowerPoint, Microsoft Word и др.
Введение 4
Глава 1 Основные средства и возможности VBA 5
1.1 Общая характеристика VBA 5
1.2 Использование VBA в Microsoft Excel 7
1.3 Структура приложения Excel 7
1.4 Структура программного кода VBA 8
1.5 Макросы 9
Глава 2 Практическая часть 10
2.1 Постановка задачи 10
2.2 Программная реализация 10
2.3 Результаты тестирования 13
Заключение 14
Список использованных источников 15
Приложение А Программный код на языке VBA 16
Приложение Б Программа в электронном варианте 25
word = ""
Select Case Int(c / 1000) Mod 10
Case 1
If Int(c / 1000) Mod 100 = 11 Then
word = "тысяч"
Else
word = "тысяча"
End If
Case 2, 3, 4
If (Int(c / 1000) Mod 100 > 10) And (Int(c / 1000) Mod 100 < 20) Then
word = "тысяч"
Else
word = "тысячи"
End If
Case Else
word = "тысяч"
End Select
If word <> "" Then
str = str + " " + word
End If
word = Cur_txt1(c - Int(c / 1000) * 1000, "m")
If word <> "" Then
str = str + " " + word
End If
Else
If c < 1000000000 Then
str = Cur_txt1(Int(c / 1000000), "m")
Select Case Int(c / 1000000) Mod 10
Case 1
If Int(c / 1000000) Mod 100 = 11 Then
word = "миллионов"
Else
word = "миллион"
End If
Case 2, 3, 4
If (Int(c / 1000000) Mod 100 > 10) And (Int(c / 1000000) Mod 100 < 20) Then
word = "миллионов"
Else
word = "миллиона"
End If
Case Else
word = "миллионов"
End Select
str = str + " " + word
word = Cur_txt1(c - Int(c / 1000000) * 1000000, "m")
If word <> "" Then
str = str + " " + word
End If
Else
End If
End If
End If
Cur_txt1 = str
End Function
Public Function CurText(cur As Currency) As String
Dim tmp As String
If cur < 1000000000 Then
tmp = ""
If cur >= 1 Then
tmp = Cur_txt1(Int(cur), "m") & " руб."
End If
If cur - Int(cur) >= 0.1 Then
tmp = tmp & " " & Int((cur - Int(cur)) * 100) & " коп."
Else
tmp = tmp & " 0" & Int((cur - Int(cur)) * 100) & " коп."
End If
CurText = tmp
Else
CurText = ""
End If
End Function
Public Function FirstLetter(str As String) As String
If str <> "" Then
FirstLetter = UCase(Left(str, 1)) + Right(str, Len(str) - 1)
Else
FirstLetter = ""
End If
End Function
Приложение Б
Программа в электронном варианте
5
Информация о работе VBA. Перевод чисел в текстовое представление