ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / где может быть ошибка?
25 сообщений из 27, страница 1 из 2
  1  все
где может быть ошибка?
    #38724912
lapochka2382
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lapochka2382
Гость
Добрый всем вечер!

не могу понять почему выделяется желтым цветом строка:
Set x = Workbooks("GOURN FLAT 2014.xlsm").Sheets("Заказы").Columns(5).Find(.Cells(i), LookIn:=xlValues, lookat:=xlWhole)

вот код
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
Sub Data_Updating()   

    Application.ScreenUpdating = False  'отключаем мерцание окна
    ChDir "D:\Ольга\Рабочий стол"
        Workbooks.Open Filename:= _
             "D:\Ольга\Рабочий стол\Подушка2.xlsm", UpdateLinks:=False  'UpdateLinks убирает обновление книги при открытии
    ThisWorkbook.Activate   ' Возвращаем указатель текущего приложения (для избежания различных глюков)

Dim i As Long
Dim x As Range

With Лист3.Columns(1)  'берется лист3.столбец1
    For i = 1 To .Cells(.Rows.Count).End(xlUp).Row  
      'Workbooks("GOURN FLAT 2014.xlsm").Sheets("Заказы").Activate
        Set x = Workbooks("GOURN FLAT 2014.xlsm").Sheets("Заказы").Columns(5).Find(.Cells(i), LookIn:=xlValues, lookat:=xlWhole)
         If x Is Nothing Then   
                .Cells(i).Offset(, 76) = ""   
         Else                                           
                .Cells(i).Offset(, 70) = Workbooks("GOURN FLAT 2014.xlsm").Sheets("Заказы").Cells(x.Row, 3).Value 
         End If
    Next i
End With

End Sub



Помогите разобраться!!!
...
Рейтинг: 0 / 0
20.08.2014, 18:30:31
| Ответить | Цитировать | Написать  
где может быть ошибка?
    #38724922
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
lapochka2382почему выделяется желтым цветом строкапотому что в ней возникает ошибка

Если вы сообщите нам текст ошибки, нам будет гораздо легче вам помочь.
...
Рейтинг: 0 / 0
20.08.2014, 18:36:33
| Ответить | Цитировать | Написать  
где может быть ошибка?
    #38724932
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
на правах кофейной гущи:
Код: vbnet
1.
Workbooks("GOURN FLAT 2014")



если память мне ни с кем не изменяет, ключом в коллекции Workbooks является имя файла без расширения.
...
Рейтинг: 0 / 0
20.08.2014, 18:42:02
| Ответить | Цитировать | Написать  
где может быть ошибка?
    #38724959
lapochka2382
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lapochka2382
Гость
Shocker.Prolapochka2382почему выделяется желтым цветом строкапотому что в ней возникает ошибка

Если вы сообщите нам текст ошибки, нам будет гораздо легче вам помочь.

извините, ошибка такая:
Run-time error'13': Type mismatch
...
Рейтинг: 0 / 0
20.08.2014, 19:10:43
| Ответить | Цитировать | Написать  
где может быть ошибка?
    #38724961
lapochka2382
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lapochka2382
Гость
Antonariy, попробовала убрать расширение, все равно такая же ошибка:(
...
Рейтинг: 0 / 0
20.08.2014, 19:12:34
| Ответить | Цитировать | Написать  
где может быть ошибка?
    #38725035
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
lapochka2382Run-time error'13': Type mismatch
И какой, по-твоему, тип у Лист3.Columns(1).Cells(i)? А какой нужен?
...
Рейтинг: 0 / 0
20.08.2014, 21:56:08
| Ответить | Цитировать | Написать  
где может быть ошибка?
    #38725083
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Antonariy,

не согласен. Как раз с расширением работать будет всегда, а без расширения только если на уровне ОС установлены соответствующие настройки(не отображать расширения для зарегистрированных типов файлов).
А ошибка скорее всего возникает потому, что в ячейке, которая является критерием поиска значение ошибки(возможно формула неверно вычисляется и возвращает НД или ССЫЛКА)
...
Рейтинг: 0 / 0
20.08.2014, 23:37:51
| Ответить | Цитировать | Написать  
где может быть ошибка?
    #38725084
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
The_Pristв ячейке, которая является критерием поискаэто та, что: .Find( .Cells(i) , LookIn:=xlValues, lookat:=xlWhole)
...
Рейтинг: 0 / 0
20.08.2014, 23:39:06
| Ответить | Цитировать | Написать  
где может быть ошибка?
    #38725172
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
The_PristThe_Pristв ячейке, которая является критерием поискаэто та, что: .Find( .Cells(i) , LookIn:=xlValues, lookat:=xlWhole)А я на что-то иное разве указываю?
...
Рейтинг: 0 / 0
21.08.2014, 08:50:31
| Ответить | Цитировать | Написать  
где может быть ошибка?
    #38725314
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
Akina,

А я не опровергал этой информации :-) Я лишь расширил пояснение
...
Рейтинг: 0 / 0
21.08.2014, 11:21:47
| Ответить | Цитировать | Написать  
где может быть ошибка?
    #38725341
lapochka2382
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lapochka2382
Гость
Akinalapochka2382Run-time error'13': Type mismatch
И какой, по-твоему, тип у Лист3.Columns(1).Cells(i)? А какой нужен?

у меня получается, что стоит тип Long, но по всей видимости должен быть Variant?
...
Рейтинг: 0 / 0
21.08.2014, 11:38:05
| Ответить | Цитировать | Написать  
где может быть ошибка?
    #38725354
Фотография The_Prist
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
The_Prist
Участник
lapochka2382,

Прочитайте внимательно тогда мой пост. Я прямо указал в чем проблема. Тип для x у Вас правильный - Range. Проблема в значении ячейки. Я же даже красным выделил....
...
Рейтинг: 0 / 0
21.08.2014, 11:49:32
| Ответить | Цитировать | Написать  
где может быть ошибка?
    #38725412
lapochka2382
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lapochka2382
Гость
The_Pristlapochka2382,

Прочитайте внимательно тогда мой пост. Я прямо указал в чем проблема. Тип для x у Вас правильный - Range. Проблема в значении ячейки. Я же даже красным выделил....

у меня на Листе3 в файле "Подушка2" была сводная таблица, а в файле GOURN FLAT 2014.xlsm обычная, я скопировала данные из сводной на другой лист как значение и ошибку больше не выдает. Спасибо огромное!

но у меня теперь появилась другая проблема, мне нужно чтобы из файла "Подушка2.xlsm" (если данные совпадают) заносился в файл "GOURN FLAT 2014.xlsm" столбик "C". А у меня ничего не заносится, где я могла ошибиться, подскажите, пожалуйста!
...
Рейтинг: 0 / 0
21.08.2014, 12:15:16
| Ответить | Цитировать | Написать  
где может быть ошибка?
    #38725528
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
The_Pristа без расширения только если на уровне ОС установлены соответствующие настройки(не отображать расширения для зарегистрированных типов файлов).фигасе, какие зависимости.
кто-то наверное поломал себе голову, почему на одном компе Workbooks("GOURN FLAT 2014") работает, а на другом нет. :))
...
Рейтинг: 0 / 0
21.08.2014, 13:24:04
| Ответить | Цитировать | Написать  
где может быть ошибка?
    #38725623
lapochka2382
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
lapochka2382
Гость
lapochka2382The_Pristlapochka2382,

Прочитайте внимательно тогда мой пост. Я прямо указал в чем проблема. Тип для x у Вас правильный - Range. Проблема в значении ячейки. Я же даже красным выделил....

у меня на Листе3 в файле "Подушка2" была сводная таблица, а в файле GOURN FLAT 2014.xlsm обычная, я скопировала данные из сводной на другой лист как значение и ошибку больше не выдает. Спасибо огромное!

но у меня теперь появилась другая проблема, мне нужно чтобы из файла "Подушка2.xlsm" (если данные совпадают) заносился в файл "GOURN FLAT 2014.xlsm" столбик "C". А у меня ничего не заносится, где я могла ошибиться, подскажите, пожалуйста!

Всё получилось.

Всем большое спасибо за помощь:)!!!
...
Рейтинг: 0 / 0
21.08.2014, 14:28:21
| Ответить | Цитировать | Написать  
где может быть ошибка?
    #38739108
eco_t
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eco_t
Гость
Здравствуйте, уважаемые форумчане! не могу понять, в чем ошибка... я - начинающий пользователь макросов. Знания практически нулевые, поэтому обращаюсь к Вам. В приложенном файле есть макрос, который должен применить в таблице настраиваемую сортировку: сначала по дате, затем по № документа. Однако он не работает - при применении сортировка не осуществляется. В чем может быть ошибка? Спасибо!
...
Рейтинг: 0 / 0
05.09.2014, 22:29:29
| Ответить | Цитировать | Написать  
где может быть ошибка?
    #38739113
eco_t
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eco_t
Гость
eco_tЗдравствуйте, уважаемые форумчане! не могу понять, в чем ошибка... я - начинающий пользователь макросов. Знания практически нулевые, поэтому обращаюсь к Вам. В приложенном файле есть макрос, который должен применить в таблице настраиваемую сортировку: сначала по дате, затем по № документа. Однако он не работает - при применении сортировка не осуществляется. В чем может быть ошибка? Спасибо!
***в добавление: На листе 1 начальный массив данных. Нужно произвести сортировку сначала по дате, затем по номеру документа.
На листе 2 обработанный массив
...
Рейтинг: 0 / 0
05.09.2014, 22:35:03
| Ответить | Цитировать | Написать  
где может быть ошибка?
    #38740451
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
eco_tОднако он не работаету меня ваш макрос работает. Что я делаю не так?
...
Рейтинг: 0 / 0
08.09.2014, 13:11:04
| Ответить | Цитировать | Написать  
где может быть ошибка?
    #38741096
eco_t
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eco_t
Гость
Shocker.Proeco_tОднако он не работаету меня ваш макрос работает. Что я делаю не так?
Здравствуйте! сортировка прошла на Листе 2 и по дате, и по номеру?
...
Рейтинг: 0 / 0
08.09.2014, 21:14:03
| Ответить | Цитировать | Написать  
где может быть ошибка?
    #38741105
eco_t
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eco_t
Гость
eco_tShocker.Proпропущено...
у меня ваш макрос работает. Что я делаю не так?
Здравствуйте! сортировка прошла на Листе 2 и по дате, и по номеру?
поняла, в чём ошибка. В макросе была ссылка на 1 лист. При замене листа на "ActiveSheet" макрос работает на любом листе.
Другой вопрос: какой лучше применить диапазон-количество строк может варьироваться? А1:С1048576 ?
...
Рейтинг: 0 / 0
08.09.2014, 21:28:47
| Ответить | Цитировать | Написать  
где может быть ошибка?
    #38741106
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Можно использовать свойство листа UsedRange
...
Рейтинг: 0 / 0
08.09.2014, 21:31:31
| Ответить | Цитировать | Написать  
где может быть ошибка?
    #38741118
eco_t
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eco_t
Гость
Shocker.Pro,

у меня получился следующий макрос:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Sub Сортировка()

    Set myRange = ActiveWorkbook.ActiveSheet.UsedRange
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("A2:A6"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    ActiveWorkbook.ActiveSheet.Sort.SortFields.Add Key:=Range("B2:B6"), _
        SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.ActiveSheet.Sort
        .SetRange Range("A1:C6")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub



Модератор: Учимся использовать тэги оформления кода - FAQ

Получается, что модули по сортировке A2:A6, B2:B6 и With...End With обязательны в своей совокупности? или можно почистить программный код?
...
Рейтинг: 0 / 0
08.09.2014, 22:00:43
| Ответить | Цитировать | Написать  
где может быть ошибка?
    #38744674
eco_t
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eco_t
Гость
Вопрос к модератору: не поняла, в чём ошибка. Проконсультируйте, пожалуйста.
...
Рейтинг: 0 / 0
11.09.2014, 21:38:22
| Ответить | Цитировать | Написать  
где может быть ошибка?
    #38744687
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
eco_tВопрос к модератору: не поняла, в чём ошибка. Проконсультируйте, пожалуйста.когда публикуете код - не надо писать его простым текстом - он плохо читается. Оформляйте с помощью специальных тэгов. Как это сделать - читайте по ссылке.
...
Рейтинг: 0 / 0
11.09.2014, 22:05:09
| Ответить | Цитировать | Написать  
где может быть ошибка?
    #38745606
eco_t
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eco_t
Гость
[/quot]когда публикуете код - не надо писать его простым текстом - он плохо читается. Оформляйте с помощью специальных тэгов. Как это сделать - читайте по ссылке.[/quot]
Если сделать шрифт жирным - этого будет достаточно?
...
Рейтинг: 0 / 0
12.09.2014, 20:42:56
| Ответить | Цитировать | Написать  
25 сообщений из 27, страница 1 из 2
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / где может быть ошибка?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=38725412&tid=2156208]:
 0ms
get settings:
 6ms
get forum list:
 10ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 137ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 206ms
total:  422ms
созд. / загр.: 422ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]