|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.04.2009, 14:10 | #1 |
Форумчанин
Регистрация: 12.11.2007
Сообщений: 209
|
Макрос выдает ошибку
Всем добрый день!!!
Очень нужна Ваша помощь! В листе "Noliktavas atlikumi" у меня стоят три кнопки По кнопке "SAP kodi" запускаем макрос, появляется форма . нажимаем кнопку Search, появляется следующая форма поиска В строке "Nosaukums" (название товара) пишем наименование товара или часть слова товара , и запускаем -ok - Макрос в первую форму в окно Income записывает все приходы и по какой цене ну и соответственно данные в другие окна. Лист "Ienemumi"- это приходы товара , где В колонках R-AO - приходы за 24 месяца. В колонке Q - остаток на складе на сегодняшний день. Лист 'Noliktavas atlikumi" -это остатки по складу на сегодня , в колонке H -кол-во товара Когда я в поиске(По кнопке "SAP kodi", search) в строке Nosaukums пишу слово ( maz ) - макрос выдает ошибку Run-time error 13 Type mismatch Помогите, пожалуйста!!!!!! |
15.04.2009, 14:39 | #2 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Ошибка возникает в строке
total = total + CDbl(SR.Cells(searchResult(index) + i, 8).Value) при попытке преобразовать текст в число: CDbl(SR.Cells(searchResult(index) + i, 8).Value) Значение ячейки в момент ошибки: SR.Cells(7,8)="Остаток" Добавьте перед этой строкой код: Debug.Print SR.Cells(searchResult(index) + i, 8).Value и Вы увидите значения обрабатываемых ячеек (будете хотя бы знать, из-за чего ошибка) PS: При возникновении ошибки нажимайте кнопку Debug, и, подводя курсор к числам и функциям в подсвеченной желтым цветом строке, смотрите их текущие значения. В VBA предусмотрены также многие другие средства отладки программ. |
15.04.2009, 22:42 | #3 |
Форумчанин
Регистрация: 12.11.2007
Сообщений: 209
|
Educated Fool , спасибо большое!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите c паскалем, выдает ошибку... | Ink_90 | Помощь студентам | 2 | 22.12.2008 08:31 |
ADOQuery - выдает ошибку | kiber0net0 | Общие вопросы Delphi | 2 | 02.09.2008 19:49 |
Windows2003 ошибку выдает | Cantana | Windows | 11 | 07.12.2007 06:04 |
MasterSource - выдает ошибку | nataly_ukr | БД в Delphi | 10 | 12.10.2007 13:49 |
При активизации формы выдает ошибку | Canadec | Общие вопросы Delphi | 11 | 04.09.2007 12:10 |