Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Ошибка 413
 
#1
28.04.2010 17:36:41
Доброго времени суток!  
 
Такая проблема.  
Вчера создал файл для обновления данных, все работало, а сегодня не работает, пишет ошибка 413 в строке:  
If cell.Value = 0 Then cell.ClearContents  
 
что это может быть?!  
 
Заранее спасибо!
 
 
 
#2
28.04.2010 17:58:41
Извините, неправильно переписал ошибку.  
 
Ошибка следующая.  
 
"Run-time error '13':  
Type mismatch"  
 
И указівает на строку:  
If cell.Value = 0 Then cell.ClearContents
 
 
 
#3
28.04.2010 18:02:15
А зачем вообще так?  
Меню-сервис-параметры-вид: снимите галочку "нулевые значения" и нулей не станет без лишних телодвижений.  
Дальше, в вашем файле нет никаких данных, нужно быть екстрасенсом...
Я сам - дурнее всякого примера! ...
 
 
 
#4
28.04.2010 18:04:44
А так пишет, потому, что в ячейке нечисловой тип данных, текст например.
Я сам - дурнее всякого примера! ...
 
 
 
#5
28.04.2010 18:07:34
Я уже на текст проверил - фиолетово...
 
 
 
#6
28.04.2010 18:08:52
Может где-то у cell тип поменялся, или не задан как Range.
 
 
 
#7
28.04.2010 18:10:52
KuklP, Вы извините, но для данных, Вам нужно обновить этот файл с любым Excel или сделайте копию этого файла и вставте "1" в таблице везде и обновите.    
Я же кажеться сам файл со своей проблемой, кодом и таблицей выложил, какие там данные должны быть и тем более зачем быть "екстрасенсом"?!
 
 
 
#8
28.04.2010 18:11:50
Так там вообще определений нет...
 
 
 
#9
28.04.2010 18:16:22
Hugo, вставил:  
Dim cell As Range  
 
не помогает...  
 
А если в форме frmFile сделать так:  
 
'Demo2.Show  
For Each cell In Ëèñò1.Range("A10:T22").Cells  
If cell.Value = 0 Then cell.ClearContents  
Next cell  
 
все работает, но стало появляться в некоторых ячейках "#Н/Д".  
 
Ничиго не понимаю...вчера было все в порядке...
 
 
 
#10
28.04.2010 18:27:38
Извините, если резко написал, но стараюсь быть точным в описание проблемы с предоставлением самого файла или кода.  
 
Спасибо Вам за все ответы!  
 
The_Prist, а из-за чего вообще могла возникнуть "#Н/Д" ошибка в ячейках?  
Все тестирования файла проводил в связки с одим и тем же файлом (2-м), в котором ничего не изменял вообще и все работало, а сегодня в ячейках некоторых стала появляться вот эта ошибка "#Н/Д".
 
 
 
#11
28.04.2010 18:28:31
Ну вот, The_Prist догадался. А при любых неошибочных значениях макрос работает.  
Это к вопросу "зачем быть "екстрасенсом"?!"  
Все-же кроме демонстрации прогресбара макрос не нужен. Достаточно запретить отображение нулей.
Я сам - дурнее всякого примера! ...
 
 
 
#12
28.04.2010 18:36:24
KuklP, я вообще ничего не понимаю, просто вчера #Н/Д в ячейках не было, вставлялись определенные значения и текст и даты и числа.  
А сегодня в некоторых ячейках появляется эта ошибка :(
 
 
 
#13
28.04.2010 18:39:27
а вот это:  
If cell.Value = 0 Then cell.ClearContents  
 
добавил, потому что некоторые ячейки пустые, после обновления файлов нули вместо пустоты, вот и убрал их таким способом, чтобы снова эти ячейки уже в моем файле стали пустые.
 
 
 
#14
28.04.2010 18:42:35
Это можно проверить, поняв куда ссылается формула ячейки. Гляньте свой "пример.xls". Ноги оттудова растут.
Я сам - дурнее всякого примера! ...
 
 
 
#15
28.04.2010 18:48:56
{quote}{login=ТолькоУчусь}{date=28.04.2010 06:39}{thema=}{post}а вот это:  
If cell.Value = 0 Then cell.ClearContents  
добавил, потому что некоторые ячейки пустые, после обновления файлов нули вместо пустоты, вот и убрал их таким способом, чтобы снова эти ячейки уже в моем файле стали пустые.{/post}{/quote}  
Вместо этого макроса строчку:  
ActiveWindow.DisplayZeros = False  
в любом месте CommandButton1_Click()  
и время Вам сэкономит:-)
Я сам - дурнее всякого примера! ...
 
 
 
#16
29.04.2010 09:27:41
Еще раз всем спасибо и отдельно за все советы!  
Теперь все становится на свои места :)
 
 
 
Страницы: 1
Читают тему
Наверх