Страницы: 1
RSS
Макрос для анализа ошибок
 
Есть огромная таблица с которой работают 4 сотрудника. Они меня уже просто достали! То точку воткнут просто так в ячейку то блин пробел поставят куда то. Руки готов оторвать уже. Ну и макрос естественно выдаёт ошибки т.к. получаются значения ячеек #ЗНАЧ и тому подобное. Так вот хочется так что бы нажали например кнопку проверить и он выдал окошко "в ячейке А100, В213  итд ошибочные значения". Я думаю тут не по точке или пробелу надо искать а просто по ячейке где уже #ЗНАЧ стоит. Тогда хоть их искать не придётся.  
 
С уважением и благодарностью,  
П.М.
 
А зачем сразу макрос?  
 
Используйте встроенную проверку вводимых данных (меню Данные - Проверка),  
или подсветите красным некорректные ячейки, используя условное форматирование  
 
PS: Не увидев файла, что-то конкретное посоветовать не получится.
 
Sub macros()  
Dim cl As Range  
Dim rng As Range  
 
Application.ScreenUpdating = False  
Application.Calculation = xlCalculationManual  
 
Set rng = ActiveSheet.UsedRange  
For Each cl In rng  
If IsError(cl.Value) Then  
cl.Interior.ColorIndex = 44  
End If  
Next  
 
Application.ScreenUpdating = True  
Application.Calculation = xlCalculationAutomatic  
End Sub  
 
Закрасит ячекйки в которых есь ошибки в формулах.
 
или  
 
Sub errs()  
   ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas, 16).Interior.ColorIndex = 3  
End Sub  
 
или поставить условие на ввод данных. Но это может сильно увеличить объем файла и тормозить обработку..
Живи и дай жить..
 
или, уж чтобы законченно:  
 
Sub errs()  
on error resume next  
ActiveSheet.UsedRange.SpecialCells(xlCellTypeFormulas, 16).Interior.ColorIndex = 3  
if err.number<>0 then msgbox "ошибок нет"  
End Sub
Живи и дай жить..
 
а нельзя ли сделать что бы не красил в цвет а давал адреса? ато полотно 300 на 2000 нереал просмотреть))
 
дапжалста
Живи и дай жить..
 
ваще крутяк а можете рассказать как работает?
Страницы: 1
Читают тему
Наверх
Loading...