Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Центр помощи > [VBA] Работа с объектами


Автор: AlexArs 28.9.2007, 08:02
Лабораторная работа №7
Работа с объектами WORKBOOK, WORKSHEETS, RANGE
Если в списке фамилий в текущей строке пусто, то запретить ввод оценки. Не использовать защиту ячейки. Список – на рабочем листе.

Автор: kapbepucm 28.9.2007, 15:57
Пусть первый столбец "A" это фамилии, а второй столбец "B"- оценки
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If (Target.Column = 2) And (Cells(Target.Row, 1) = "") Then
    MsgBox "Введите фамилию!", vbCritical
    Cells(Target.Row, 1).Activate
  End If
End Sub
У меня английская версия Office, на другую перекинуть, я думаю, разберётесь.

Автор: AlexArs 29.9.2007, 01:42
можно исходник?

Автор: AlexArs 30.9.2007, 06:10
спс

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)