|
|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail | |||||||
| Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
||||
 |
|
|
|
Опции темы | Поиск в этой теме |
25.12.2010, 20:33
|
#1 |
|
Форумчанин
Регистрация: 17.07.2008
Сообщений: 105
|
Run-time error 13
Здравствуйте
При выполнении макроса выскакивает ошибка Run-time error 13 Tipe mismatch О чем говорит эта ошибка Последний раз редактировалось olimpus; 25.12.2010 в 20:38. |
|
|
|
25.12.2010, 20:43
|
#2 |
|
Участник клуба
Регистрация: 28.06.2009
Сообщений: 1,950
|
Несоответствие типов
|
|
|
|
|
25.12.2010, 20:55
|
#3 |
|
Форумчанин
Регистрация: 17.07.2008
Сообщений: 105
|
Строка выделена красным , какая буква не соответсвует какой ? (Макрос сравнивает тексты)
For i = 2 To Cells(Rows.Count, "C").End(xlUp).Row a = Split(Cells(i, "C"), " ") For j = UBound(a) To 2 Step -1 SourString = "" For q = 0 To j SourString = SourString & a(q) & " " Next SourString = Trim(SourString) Set x = Columns("I").Find(SourString, LookAt:=xlPart) If Not x Is Nothing Then Cells(i, "K") = x Cells(i, "J") = Fix(100 * j / (UBound(a))) Exit For End If Next If Cells(i, "J") <> 100 Then If Cells(i, "K") = "" Then Cells(i, "K").Interior.ColorIndex = 4: Cells(i, "C").Interior.ColorIndex = 4 Else: Cells(i, "K").Interior.ColorIndex = 6: Cells(i, "C").Interior.ColorIndex = 6 End If Set x = Columns("L").Find(Cells(i, "C"), LookAt:=xlWhole) If Not x Is Nothing Then If Cells(x.Row, "M") <> "" Then Cells(i, "K") = Cells(x.Row, "M") _ Else: Cells(i, "K") = Cells(x.Row, "M").End(xlUp).Value Cells(i, "K").Interior.ColorIndex = 8 End If End If Next Columns("D:I").Hidden = True End Sub Последний раз редактировалось olimpus; 25.12.2010 в 21:05. |
|
|
|
|
25.12.2010, 21:06
|
#4 |
|
Форумчанин
Регистрация: 17.07.2008
Сообщений: 105
|
как найти строку где находится несоответствие в тексте?
Последний раз редактировалось olimpus; 25.12.2010 в 21:11. |
|
|
|
|
25.12.2010, 21:19
|
#5 |
|
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Cells(i, 11)
Cells(i, "K") вот шедевр.на него ругань идет
Анализ,обработка данных Недорого
|
|
|
|
|
25.12.2010, 21:24
|
#6 |
|
Новичок
СтарожилДжуниор
Регистрация: 05.02.2008
Сообщений: 9,487
|
показалось
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете
|
|
|
|
|
25.12.2010, 21:55
|
#7 | |
|
Форумчанин
Регистрация: 17.07.2008
Сообщений: 105
|
Цитата:
К это буква или столбец? Можно подробнее в чем проблема Последний раз редактировалось olimpus; 25.12.2010 в 22:15. |
|
|
|
|
|
25.12.2010, 22:17
|
#8 |
|
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Cells(i, 11)=12-буква не допускается
Или Range("K" & i)=12 вот равноценные обращения к одной и той же ячейке
Анализ,обработка данных Недорого
|
|
|
|
|
25.12.2010, 22:19
|
#9 | |
|
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Цитата:
Cells(i, "K") - вполне допустимый синтаксис для VBA Excel |
|
|
|
|
|
25.12.2010, 22:23
|
#10 |
|
Форумчанин
Регистрация: 17.07.2008
Сообщений: 105
|
Всем спасибо
|
|
|
|
|
|
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| Run-time error '1004': Application-defined or object-defined error | malor | Microsoft Office Excel | 3 | 17.01.2010 17:13 |
| Pivot Run-time Error 1004 | stream71 | Microsoft Office Excel | 0 | 07.09.2009 15:41 |
| Run-time error '1004'. Недопустимый параметр! | nikolai_P | Microsoft Office Excel | 2 | 20.04.2009 18:06 |
| Ошибка Run-Time error 13 | DEZuv | Microsoft Office Access | 0 | 03.04.2009 12:25 |
| Подскажите! Run-time error '7' Out of memory | evgenjp | Свободное общение | 3 | 01.10.2008 09:16 |
