Range(“База”).Select

Создать заголовки списка (фамилия, длжность, телефон) на листе с именем Список

Этапы разработки

Расписание обзорных лекций

ЛІТЕРАТУРА

1. Психология эмоций: Тексты. — М., 1984. (О происхождении и природе аффектов (Б.Спиноза): 29—46. Психология душевных вол­нений (В.Вундт): 47—63. Различение эмоции и чувства (У.Макдау-голл): 103—107. Сущность эмоциональных переживаний (Ф.Крюгер); 108—119. Очерк теории эмоций (Ж. -П.Сартр): 120—137. Мотивационная теория эмоций (Р.У.Липер): 138—151. Эмпатия (К.Роджерс): 235-237.)

2. Селье Г. Стресс без дистресса. — М., 1982. (Что такое стресс: 25—31. Развитие концепции стресса; 31—51. Мотивация и стресс: 52-83.)

3. Симонов П.В. Эмоциональный мозг. Физиология. Нейроа­натомия. Психология эмоций. — М., 1981. (Что такое эмоция: 10-39.)

4. Чистякова М.И. Психогимнастика. — М., 1990. (Классифика­ция основных эмоций: 12—20.)

5. Аболин Л.М. Психологические механизмы эмоциональной ус­тойчивости человека. — Казань, 1987. (Эмоции: 28—140.)

6. Вилюнас В.К. Психологические механизмы мотивации чело­века. — М., 1990. (Мотивация и эмоции: 82—216.)

7. Васильев И.А. Роль интеллектуальных эмоций в регуляции мыслительной деятельности // Психологический журнал. - 1998. - № 4. - С. 49-60.

8. Изард К. Психология эмоций. - СПб.: Питер, 2000.

9. Холмогорова А.В., Гаранян Н.Г. Культура, эмоции и психическое здоровье // Вопросы психологии. - 1999. - № 2. - С. 61-74.

10.

 

 

Специальность «Психология»
Междисциплинарный экзамен:	20 мая (пн), 14ч.20м., проф.Резванцева М.О. 22 мая (ср), 13ч.00м., проф.Резванцева М.О.
Экзамен по специализации:
«Социальная психология»	31 мая (пт), 10ч.40м., проф.Шульга Т.И., доц.Плахотникова И.В., доц. Филинкова Е.Б.
«Психологическое консультирование»	30 мая (чт), 10 ч.40 м., доц.Жмурин И.Е., доц.Богатырева М.Б.
«Психология управления (менеджмента»)	24 мая (пт), 14ч.00м., проф.Утлик Э.П.
Специальность «Социальная работа»
Междисциплинарный экзамен:	(Мытищи)
«Социальная работа»	21 мая (вт), 9ч.30 м., проф.Фирсов М.В. 21 мая (вт), 13ч.00 м., проф.Кремнева Т.Л.
	23 мая (чт), 11ч.10м., доц.Студенова Е.Г.
Направление подготовки «Педагогика», профиль «Социальная педагогика»
Междисциплинарный экзамен:	22 мая (ср), 11ч.10м., проф.Рябкова Н.Г. (Мытищи)
Направление подготовки «Психолого-педагогическое образование»
Междисциплинарный экзамен:	20 мая (пн), 10ч.40м., проф.Рябкова Н.Г. (ул.Радио)

 

• В модуле проекта VBA описать переменные и ввести процедуры
Public red As Boolean ‘ признак ввода / редактирования данных
Public Sub Creatnamerange()
Worksheets(“Список”).Select

Names.Add Name:=“База”, RefersToR1C1:="=Список!" & "r1c1" & ":" & "r2c3"

End Sub
Public Sub MoveToBaza()
UserForm1.Caption = “Добавление элементов списка”
red = False
UserForm1.Show
End Sub

• Разработать форму для ввода / редактирования данных и ввести код обработчика события нажатия кнопки и процедуру контроля вводимой информации на повтор (см. след. слайд).

Private Sub CommandButton1_Click()

‘вносим данные из формы в лист

Dim i As Integer

Dim dbnewrow As Integer

Dim newrange As String

With Range(“База")

If red = True Then

' редактирование данных

dbnewrow = ActiveCell.Row

Else

‘переход на новую строку

dbnewrow = .Rows.Count + .Row

End If

' проверка на дублирование

If dublir Then Exit Sub

‘ ввод данных из формы в ячейки новой строки

For i = 1 To .Columns.Count

Cells(dbnewrow, (i + .Column) - 1).Value = _

UserForm1.Controls("txt" & CStr(i)).Text

Next i

If red = False Then

‘ расширяем диапазон База

newrange = "=" & .Parent.Name & "!"

newrange = newrange & Cells(.Row, .Column).Address & ":"

newrange = newrange & _

Cells(dbnewrow, (.Column + .Columns.Count) - 1).Address

Names(“База").RefersTo = newrange

End If

End With

End Sub

 

' проверка на повтор вводимой информации

Public Function dublir() As Boolean

dublir = False

With Range(“База”)

For i = 1 To .Rows.Count

If (Cells(i, 1).Value = _ UserForm1.Controls("txt1").Text _
And Cells(i, 2).Value = _ UserForm1.Controls("txt2").Text _
And Cells(i, 3).Value = _ CStr(UserForm1.Controls("txt3").Text)) Then

MsgBox (“Повтор информации при вводе")

dublir = True

Exit For

End If

Next i

End With

End Function

Разработать форму UserForm2 для выделения диапазона или ячейки с элементом управления RefEdit1. Эта форма может использоваться и для копирования данных на другой лист.

Sub CommandButton1_Click()

Me.Hide

Me.Tag = vbOK

End Sub

 

 

В модуле создать процедуру editdata()для редактирования данных списка.

Public Sub editdata()

Dim i As Integer

Dim curr As Integer

Dim lb As Integer

Dim kol As Integer

' выбор элемента

With UserForm2

.Caption = “Выбор строки для редактирования"

.RefEdit1.Text = Selection.Address

.Show

If .Tag = vbOK Then

Range(UserForm2.RefEdit1.Text).Select

End If

End With

‘ текущая строка

curr = ActiveCell.Row

‘ получаем количество столбцов в базе

kol = Range("База").Columns.Count

‘ получаем самый левый столбец

lb = Range("База").Column

‘загружаем данные записи в окно UserForm1

 

For i = 1 To kol

UserForm1.Controls("txt" & CStr(i)).Text = _

Cells(curr, (i + lb) - 1).Value

Next i

UserForm1.Caption = “Редактирование элемента списка"

red = True

UserForm1.Show

End Sub

 

В модуле создать процедуру для копирования выбранного диапазона на другой лист, например Public Sub copyDiapazon()