{quote}{login=Казанский}{date=21.09.2012 01:22}{thema=}{post}> а могут быть вообще выделен участок 5*6 и там произведен отбор  
 
Тогда нельзя делать диапазон относительным! Иначе каждая ячейка из диапазона будет брать свой диапазон 5*6, в котором она является второй в первой строке.{/post}{/quote}  
Это я понимаю.  
Я просто делаю универсальный макрос "под себя", его ограничения я буду знать.  
 
Просто мне нужен макрос который заполнит моим условным форматированием любой выделеный мной диапазон.  
"Протягивать" форматирование я буду понятное дело, когда повторности идут "в линию".

{quote}{login=iba2004}{date=21.09.2012 01:16}{thema=}{post}2 metrim  
Можно файлик с примером?{/post}{/quote}    
Чуть попозже сделаю

{quote}{login=Казанский}{date=21.09.2012 01:07}{thema=}{post}Как я понял, строка должна быть относительной, а столбец - нет:  
 
daf = cur_range.Address(0, , xlR1C1){/post}{/quote}  
Относиельным должно быть и то и другое по моей задумке  
 
При подстановке cur_range.Address(0, , xlR1C1) в формулу УФ - ничего не подсталяется вообще. Вероятно какая то ошибка но сообщение - не выдается

{quote}{login=vikttur}{date=21.09.2012 01:00}{thema=}{post}Если используете VBA, есть ли смысл использовать УФ?{/post}{/quote} Ну не знаю.  
Сначала я вроде разобрался как сделать с УФ, написал проверяющую условие функцию в ВБА. То как сие делает УФ - меня вполне устраивает и встал вопрос автоматизации заполнения УФ, который частично решился.  
 
Как сие реализовать полностью в ВБА, а главное предусмотреть все возможности - я не представляю, использование УФ дает возможность делать все поэтапно.  
 
Могу уточнить для чего мне все это:  
Есть эксперименты. Во времени снимаются точки. С повторностями.  
Соответственно есть таблица время-повторности.  
Среди точек повторностей производится выбраковка "аутлаеров" в отдельной ячейке идет подсчет нового среднего, а в таблицы, для инфомации я хочу помечать отброшенные алгоритмом ячейки.  
 
Данные могут располагаться как горизонтально, так и вертикально, а могут быть вообще выделен участок 5*6 и там произведен отбор. Я хочу сделать более менее универсальное решение.

Мне нужно сделать макрос, который бы помечал с помощью условного форматирования значения выпадающие из выборки.  
Собственно для проверки мной написана пользовательская функция check_ok(диапазон;ячейка)  
Для проверки "несоответствия" в формула условного форматирования для ячейки B1 у меня выглядит например:  
"=B1<>check_ok(A1:D2;B1)"  
 
Уточнение: Excel2003  
теперь собственно макрос, который должен заполнять условные форматирования автоматически  
 
Sub diap_nal1()  
   Dim cur_range As Range  
   Dim daf As Variant  
   With ActiveSheet  
       Set cur_range = Selection  
       cur_range.Activate          
       For Each cell In cur_range    
           If Not IsEmpty(cell) Then  
      daf = cur_range.Address(, , xlR1C1)  
      cell.FormatConditions.Add Type:=xlExpression, Formula1:="=RC<>check_ok(" + daf, + ";RC)"  
       cell.FormatConditions(1).Font.ColorIndex = 3      
             
       End If  
      Next cell  
   End With  
End Sub  
 
--  
 
Собственно задача выполняется. Только вот одно но:  
формула для условного форматирования возвращается в виде    
=B1<>check_ok($A$1:$E$1;B1)  
А мне нужно, что бы при "протяжке" в следующих строках и исследуемый диапазон и ячейка сдвигались. Т.е. не должно быть $  
Как сделать ?

{quote}{login=Kuzmich}{date=06.09.2009 11:23}{thema=Re}{post}Апроксимация данных методом наименьших квадратов{/post}{/quote}  
Спасибо за подробный пример  
Я уже пробовал этот метод, надеялся что существуют более "автоматиированные" разработки, т.е. что бы VBA сам анализировал диапазон, выбирал значения для обсчета и т.д.  
Однако вот даже с готовым примером  - возникают проблемы: подставил туда свои данные новые, запустил "Поиск решения..", не меняя параметров - и эвон что получилось (т.е. не получилось)  
Если не сложно, поясните алгоритм пошагово со скриншотами, что бы видеть какие параметры в диалогах ставить ...

Я уже создавал тему http://www.planetaexcel.ru/forum.php?thread_id=9582 , но мне посоветовали перепостить вопрос сюда  
 
"Вот здесь я собственно описал задачу http://www.onlinedisk.ru/file/207140/  
Кратко: нужно рассчитать по "экспериментальным точкам" коэффициенты экспоненциального уравнения y=a+b*exp(mu*x) , лри этом нужно производить выбор "расчетного диапазона""  
 
Прилагаю файл с экспериментальными данными