Добрый день!Подскажите, пожалуйста, как прописать следующее:
через функцию ДВССЫЛ создано правило выбора списка. При одном из условий выбирается дата, в остальных случаях текстовая информация. Нужно, чтобы когда в ячейке оказывается Дата, имелась возможность выбрать вторую дату в той же ячейке. В остальных случаях - только текст с возможностью редактирования
Код
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
If Not IsDate(newVal) Then Exit Sub
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