Добавлено: Ср Май 20, 2009 6:21 pm Заголовок сообщения: сравнение значений

--------------------------------------------------------------------------------

здраствуйте, у меня к вам такой вопрос:
в экселе в одной ячейке идёт перечисление нескольких числовых значений через запятую, вводим любое значение, необходимо проверить - повторялось ли данное значение в уже перечисленных

нашла макрос:

Sub Find_Matches()
Dim CompareRange As Variant, x As Variant, y As Variant
' Set CompareRange = Range("C1:C9000")
' Set CompareRange = Workbooks("Book2"). _
' Worksheets("Sheet2").Range("C1:C9000")
'
For Each x In Selection
For Each y In CompareRange
If x = y Then x.Offset(0, 1) = x
Next y
Next x
End Sub


но проблема в том, что сравнение идёт только если одно числовое значение написано в одной ячейке Excel'я, подскажите, пожалуйста, как сделать так, чтобы проверялись все по отдельности значения написанные в ячейке через запятую?

хм...спасибо за подсказку, нашла ещё один пример:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Count = 1 Then
With Application
For Each x In Split(CStr(Target), ",")
If .Sum(.CountIf(Target.EntireColumn, Array(x, _
x & ",*", "*," & x & ",*", "*," & x))) > 1 Then
.EnableEvents = False
.Undo
.EnableEvents = True
Exit For
End If
Next
End With
Else
MsgBox "Изменения должны происходить в одной ячейке", , ""
End If
End Sub

но опять же, что-то не допонимаю, как ему применить к своей проблеме((((((((

я так понимаю, мне необходимо с помощью функции split разбить эти числовые значения внутри ячейки на массивы, а затем сравнить эти массивы....хм...только что-то не соображу, как выполнить жто программно...((

видимо, я некорректно объяснилась...
значения, которые будем сравнивать вводим через запятую в другую ячейку
сравниваем значения, записанные в одной ячейке тоже через запятую

спасибо вам огромное