Здравствуйте,нужна помощь! Имеется список учеников,состоящий из их ФИО. Имеются две кнопки Удалить и Добавить ученика. После выделения определенного ученика в ячейке и нажатия кнопки Удалить ученика, должен удаляться лист, ему принадлежащий. После введения новой фамилии (листа ей соответствующего еще нет) и нажатия кнопки Добавить ученика,должен появляться лист,соответствующий ФИО ученика. Понимаю,что нужны макросы, но затрудняюсь в их написании.
Здравствуйте,нужна помощь! Имеется список учеников,состоящий из их ФИО. Имеются две кнопки Удалить и Добавить ученика. После выделения определенного ученика в ячейке и нажатия кнопки Удалить ученика, должен удаляться лист, ему принадлежащий. После введения новой фамилии (листа ей соответствующего еще нет) и нажатия кнопки Добавить ученика,должен появляться лист,соответствующий ФИО ученика. Понимаю,что нужны макросы, но затрудняюсь в их написании.Ученик
Sub Кнопка2_Щелчок() Application.DisplayAlerts = 0 On Error Resume Next Sheets(ActiveCell.Value).Delete ActiveCell.EntireRow.Delete Application.DisplayAlerts = -1 End Sub
[/vba]
Удаление: [vba]
Код
Sub Кнопка2_Щелчок() Application.DisplayAlerts = 0 On Error Resume Next Sheets(ActiveCell.Value).Delete ActiveCell.EntireRow.Delete Application.DisplayAlerts = -1 End Sub
Хорошо,с добавлением более или менее понятно. А как быть с удалением,чтоб именно по выделенной ячейке удалялся лист. Как в коде сообщить программе,что ячейка выделена и именно ее необходимо удалить?
Хорошо,с добавлением более или менее понятно. А как быть с удалением,чтоб именно по выделенной ячейке удалялся лист. Как в коде сообщить программе,что ячейка выделена и именно ее необходимо удалить?Ученик
Гы) Друг, это статус на форуме:) Все можно повесить на одну кнопку. Проверять, если лист есть - удаляем, нет - создаем. [vba]
Код
Sub Кнопка2_Щелчок() Dim sh As Worksheet, s$ Application.DisplayAlerts = 0 On Error Resume Next s = ActiveCell.Value Set sh = Sheets(s) If sh Is Nothing Then Worksheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Name = s Else Sheets(s).Delete ActiveCell.EntireRow.Delete End If Application.DisplayAlerts = -1 End Sub
[/vba]
Гы) Друг, это статус на форуме:) Все можно повесить на одну кнопку. Проверять, если лист есть - удаляем, нет - создаем. [vba]
Код
Sub Кнопка2_Щелчок() Dim sh As Worksheet, s$ Application.DisplayAlerts = 0 On Error Resume Next s = ActiveCell.Value Set sh = Sheets(s) If sh Is Nothing Then Worksheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Name = s Else Sheets(s).Delete ActiveCell.EntireRow.Delete End If Application.DisplayAlerts = -1 End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
