Добрый день!Подскажите, пожалуйста, как прописать следующее:
через функцию ДВССЫЛ создано правило выбора списка. При одном из условий выбирается дата, в остальных случаях текстовая информация.
Нужно, чтобы когда в ячейке оказывается Дата, имелась возможность выбрать вторую дату в той же ячейке. В остальных случаях - только текст с возможностью редактирования.
и ещё: при выборе определенного текста из этого всплывало окно, где можно было бы дописать текст и присоединить его к выбранному из списка.
Сейчас Макрос прописан так:
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, Range("G13:h25")) Is Nothing And Target.Cells.Count = 1 Then Application.EnableEvents = False newVal = Target Application.Undo oldval = Target If Len(oldval) <> 0 And oldval <> newVal Then Target = Target & " " & Chr(10) & newVal Else Target = newVal End If If Len(newVal) = 0 Then Target.ClearContents Application.EnableEvents = True End If End Sub
Надо, чтобы в диапазоне G3:G25 существовала возможность выбора нескольких дат, а текст оставался уникальным.
Спасибо!
Добрый день!Подскажите, пожалуйста, как прописать следующее:
через функцию ДВССЫЛ создано правило выбора списка. При одном из условий выбирается дата, в остальных случаях текстовая информация.
Нужно, чтобы когда в ячейке оказывается Дата, имелась возможность выбрать вторую дату в той же ячейке. В остальных случаях - только текст с возможностью редактирования.
и ещё: при выборе определенного текста из этого всплывало окно, где можно было бы дописать текст и присоединить его к выбранному из списка.
Сейчас Макрос прописан так:
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, Range("G13:h25")) Is Nothing And Target.Cells.Count = 1 Then Application.EnableEvents = False newVal = Target Application.Undo oldval = Target If Len(oldval) <> 0 And oldval <> newVal Then Target = Target & " " & Chr(10) & newVal Else Target = newVal End If If Len(newVal) = 0 Then Target.ClearContents Application.EnableEvents = True End If End Sub
Надо, чтобы в диапазоне G3:G25 существовала возможность выбора нескольких дат, а текст оставался уникальным.
ruslax, прочитайте Правила форума, дайте теме более конкретное название, отражающее суть задачи. Оформите код тегами с помощью кнопки # в режиме правки поста и приложите файл с примером
ruslax, прочитайте Правила форума, дайте теме более конкретное название, отражающее суть задачи. Оформите код тегами с помощью кнопки # в режиме правки поста и приложите файл с примеромPelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
