Библиографический список. 2. Гарнаев А. Microsoft Excel 2000: разработка приложений

1. Браун С. Visual Basic 6. Учебный курс. − СПб., 1999.

2. Гарнаев А. Microsoft Excel 2000: разработка приложений. – СПб.: BHV–Санкт-Петербург, 2000.

3. Санна П. и др. Visual Basic для приложений (версия 5); в подлиннике. – СПб.: BHV–Санкт-Петербург, 1998.

Приложение

' Подсчет количества заполненных строк списка

Function k() As Byte

k = WorksheetFunction.CountA(Columns("a"))

End Function

' Заполнение списка, содержащего данные о сотрудниках, с помощью стандартной формы.

' При продолжении заполнения списка после подведения итогов необходимо очистить итоговую строку!

Private Sub CommandButton1_Click()

' Заполнение первой строки заголовками столбцов

If Range("a1").Value = "" Then

Range("a1").Value = "Фамилия И.О."

Range("b1").Value = "Таб№"

Range("c1").Value = "Должность"

Range("d1").Value = "Коэфф"

Range("e1").Value = "Дети"

Range("f1").Value = "Начислено"

Range("g1").Value = "Налог"

Range("h1").Value = "К выдаче"

End If

Range("a1:e1").Select

ActiveSheet.ShowDataForm

Columns("d").Select

Selection.NumberFormat = "0.00"

Columns("f:h").NumberFormat = "0.00"

Columns("a:h").AutoFit

End Sub

' Вычисление показателей: Начислено, Налог, К выдаче

Private Sub CommandButton2_Click()

Dim Ставка As Single, i As Integer, Льгота As Single

Ставка = InputBox("Введите начальную ставку")

Продолжение приложения

For i = 1 To k - 1

Range("f1").Offset(rowoffset:=i).Value = Range("d1").Offset(rowoffset:=i).Value * Ставка

Льгота = Ставка + 300 * Range("e1").Offset(i).Value

If Льгота > Range("f1").Offset(i).Value Then

Range("g1").Offset(i).Value = 0

Else

Range("g1").Offset(i).Value=(Range("f1").Offset(rowoffset:=i).Value - Льгота) * 0.13

End If

Cells(i + 1, 8).Value = Cells(i + 1, 6).Value - Cells(i + 1, 7).Value

Next

End Sub

' Определение фамилии и инициалов сотрудника, имеющего минимальный доход

Private Sub CommandButton3_Click()

Dim s As Single, Min As Single, q As Integer

Min = Range("h2").Value: q = 1

For i = 1 To k - 1

If Range("h1").Offset(i).Value < Min Then

Min = Range("h1").Offset(i).Value: q = i

End If

Next

MsgBox "Минимальный показатель К выдаче - " & Min &

" рубля имеет сотрудник " & Range("A1").Offset(q).Value

End Sub

' Поиск данных о сотруднике по его фамилии и инициалам

Private Sub CommandButton4_Click()

Фамилия = InputBox("Введите фамилию сотрудника", "Выборка")

flag = 0

' Отмена предыдущего выделения цветом

Range(Cells(2, 1), Cells(k - 1, 8)).Select

Selection.Interior.ColorIndex = xlColorIndexNone

Продолжение приложения

For i = 1 To k - 1

If Range("a1").Offset(i).Value = Trim(Фамилия) Then

Range(Cells(i + 1, 1), Cells(i + 1, 8)).Select

Selection.Interior.ColorIndex = 6: flag = 1

End If

Next

If flag = 0 Then MsgBox "Сотрудника " & Фамилия & " нет"

End Sub

' Вычисление итоговых сумм по показателям Начислено, Налог, К выдаче

Private Sub CommandButton5_Click()

If Cells(k, 1).Value = "Итого" Then

MsgBox "У вас уже есть итоговая строка, ее требуется предварительно очистить", vbInformation

Else

' Подведение итогов

s1 = 0: s2 = 0: s3 = 0

For i = 1 To k - 1

s1 = s1 + Range("f1").Offset(i): s2 = s2 + Range("g1").Offset(i)

s3 = s3 + Range("h1").Offset(i)

Next

Columns("f:h").NumberFormat = "0.00"

Columns("f:h").AutoFit

k1 = k

Range("a1").Offset(k).Value = "Итого"

Range("f1").Offset(k1) = s1: Range("g1").Offset(k1) = s2

Range("h1").Offset(k1).Value = s3

End If

End Sub

' Очистка итоговой строки

Private Sub CommandButton8_Click()

If Cells(k, 1).Value = "Итого" Then

If MsgBox("Производить очистку итоговой строки?", vbYesNo Or vbQuestion, "Курсовик") = vbYes Then

Продолжение приложения

Range(Cells(k, 1), Cells(k, 8)) = ""

End If

Else

MsgBox "У вас нет итоговой строки", vbInformation

End If

End Sub

' Сортировка данных по фамилии и инициалам

Private Sub CommandButton6_Click()

' Выделение диапазона

Range(Cells(1, 1), Cells(k - 1, 8)).Select

' Обращение к методу

Selection.Sort Key1:=Range("A2"), Order1:=xlAscending,

Header:=xlGuess, OrderCustom:=1, MatchCase:=False,

Orientation:=xlTopToBottom

Range("b14").Activate

End Sub

' Подсчет количества сотрудников, занимающих должность, название которой задается вводом

Private Sub CommandButton7_Click()

Dim s As Integer, с As Variant, dol As String * 10

dol = InputBox("Введите название должности")

s = 0

r = "c2:c" & Trim(Str(k - 1)) ' Функция Trim() отсекает начальныеи

For Each с In Range(r) 'концевые пробелы

If с = Trim(dol) Then s = s + 1

Next

If s = 0 Then

MsgBox "Название введенной должности" & Chr(10) & "отсутствует"

Else

MsgBox "Количество сотрудников равно " & s

End If

End Sub

Продолжение приложения

' Составление списка многодетных семей на другом листе

Private Sub CommandButton9_Click()

Dim spis() As String, deti As Integer

Worksheets("Лист2").Columns("a").Clear

deti = InputBox("Введите количество детей, соответствующих статусу многодетной семьи", "Выборка")

Worksheets("Лист1").Activate

q = 0

ReDim spis(1 To k-1)

For i = 2 To k - 1

If Cells(i, 5).Value > deti Then

q = q + 1

spis(q) = Cells(i, 1).Value

End If

Next

If q = 0 Then

MsgBox "Сотрудников,имеющих больше " & deti & " детей нет"

Else

If MsgBox("Выводить список сотрудников?", vbYesNo Or vbQuestion, "Выборка") = vbYes Then

Sheets("Лист2").Range("a1").Font.Size = 14

Sheets("Лист2").Range("a1").Font.FontStyle = Bold

Sheets("Лист2").Range("a1").Value = "Список сотрудников, имеющих больше " & deti & " детей"

For i = 1 To q

Sheets("Лист2").Range("a1").Offset(i).Value = spis(i)

Next

End If

End If

End Sub

Содержание

1. Электронная таблица Ехсеl. Основные понятия......................................................... 3

2. Ввод, редактирование и форматирование данных..................................................... 5

2.1. Ввод чисел............................................................................................................... 6

2.2. Ввод текста............................................................................................................... -

2.3. Ввод данных типа Дата/Время суток.................................................................. -

2.4. Ввод формул............................................................................................................ 7

2.5. Ввод логических функций.................................................................................... 8

2.6. Ввод примечаний.................................................................................................... 9

2.7. Ввод гиперссылок................................................................................................ 10

2.8. Вставка графических объектов............................................................................ -

2.9. Ввод данных в диапазон ячеек............................................................................. -

2.9.1. Ввод данных с помощью режима Автозаполнение............................... -

2.9.2. Ввод данных командой Заполнить меню Правка............................... 11

2.10. Редактирование ячеек рабочего листа.......................................................... 12

2.11. Форматирование ячеек рабочего листа........................................................ 13

3. Базы данных. Основные понятия................................................................................. 14

4. Работа со списком в режиме вычислений.................................................................. 17

5. Основные понятия о системе программирования Visual Basic For

Application............................................................................................................................. 24

5.1. Основные объекты электронной таблицы Ехсеl............................................... -

5.2. Свойства и методы объекта Range.................................................................... 25

5.3. Свойства и методы объекта WorkSheet........................................................... 27

6. Операторы языка программирования Visual Basic For Application..................... 28

7. Функции и процедуры.................................................................................................... 31

8. Работа в автоматическом режиме................................................................................ 33

8.1. Размещение элементов управления на электронном поле............................ -

8.2. Автоматизация вычислений с помощью макросов...................................... 34

8.3. Пример разработки информационной технологии, позволяющей

автоматизировать построение графика произвольной функции...................... 39

9. Пример разработки информационной технологии на языке

программирования Visual Basic For Application.......................................................... 42

9.1. Заполнение списка, содержащего данные о сотрудниках,

с помощью стандартной формы............................................................................... 43

9.2. Заполнение списка, содержащего данные о сотрудниках,

с помощью формы пользователя............................................................................. 45

9.3. Вычисление показателей Начислено, Налог, К выдаче............................... 47

9.4. Вычисление итоговых сумм по показателям Начислено, Налог,

К выдаче......................................................................................................................... 49

9.5. Подсчет количества сотрудников, занимающих должность, название которой задается вводом............................................................................................................................ 51

9.6. Определение фамилии и инициалов сотрудника, имеющего

минимальный доход.................................................................................................... 52

9.7. Поиск данных о сотруднике по его фамилии и инициалам........................ 53

9.8. Сортировка данных по фамилии и инициалам.............................................. 54

9.9. Составление списка многодетных семей на другом листе............................ -

Библиографический список.............................................................................................. 57

Приложение.......................................................................................................................... 58

Дата добавления: 2014-12-27