Страницы: 1
RSS
Как "убить" #Н/Д
 
Всем Привет вот созрела такая проблемка как в ячейке с определенной формулой не меняя её вместо #Н/Д был "0"
 
=если(еошибка(А1);0;А1)
 
{quote}{login=Sh_Alex}{date=31.03.2008 05:04}{thema=Как "убить" #Н/Д}{post}=если(еошибка(А1);0;А1){/post}{/quote}  
Аботает БольшОе пасиба)))))))))
 
Sub ОшибкаВНоль()  
 
   Dim cl As Range  
 
   On Error Resume Next  
 
   For Each cl In Selection.Cells  
 
       If cl.Errors.Item(xlEvaluateToError).Value = True Then  
 
           clfrm = Right(cl.Formula, Len(cl.Formula) - 1)  
 
           cl.FormulaLocal = "=если(еошибка(" & clfrm & ");0;" & clfrm & ")"  
 
       End If  
 
   Next  
 
End Sub
 
{quote}{login=Sh_Alex}{date=31.03.2008 05:04}{thema=Как "убить" #Н/Д}{post}=если(еошибка(А1);0;А1){/post}{/quote}  
 
а как это применить к впр?
 
в 2007:  
=еслиошибка(формула впр;0)  
в 2003:  
=если(енд(формула впр);0;формула впр)
 
Здесь http://www.planetaexcel.ru/tip.php?aid=26 расписано =если(енд(впр(...));"";впр(...))
 
{quote}{login=}{date=25.09.2009 12:38}{thema=}{post}в 2007:  
=еслиошибка(формула впр;0)  
в 2003:  
=если(енд(формула впр);0;формула впр){/post}{/quote}  
 
СПАСИБО!!!!
 
Аноним ждал благодарности более трёх месяцев!
Страницы: 1
Читают тему
Наверх