ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Программирование на VBA
25 сообщений из 106, страница 1 из 5
  1  все
Программирование на VBA
    #36354449
K_Aida
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
K_Aida
Гость
Добрый день!

Подскажите, плиз!
Имеется макрос, который выделяет отдельные не пустые строки по заданному условию (смотри ниже).

Выходит ошибка Run-time error '1004' Method 'Range' of object '_Global' failed.

Причем если заполнено 27 строк, то все работает, а если более, то нет.
Не пойму в чем дело. :(

Код макроса

Sub Запускаем_макрос()
Dim ЕдИзм, КолвоВсего, Исх, ДатаЗаявки, Подразделение, НаправлениеРасхода, НаправлениеДеят, СтатусЗаявки As String
Dim nResult As Integer

'выделяем все не пустые позиции
If ActiveSheet.Name = "Годовая заявка" Then


For rwIndex = 10 To 100
ЕдИзм = Range("$E$" & rwIndex).Value
КолвоВсего = Range("$F$" & rwIndex).Value
Исх = Range("$U$" & rwIndex).Value
ДатаЗаявки = Range("$V$" & rwIndex).Value
Подразделение = Range("$AA$" & rwIndex).Value
НаправлениеРасхода = Range("$AB$" & rwIndex).Value
НаправлениеДеят = Range("$AC$" & rwIndex).Value
СтатусЗаявки = Range("$AG$" & rwIndex).Value


If ЕдИзм <> "" And КолвоВсего <> "" And Исх <> "" And ДатаЗаявки <> "" And Подразделение <> "" And НаправлениеРасхода <> "" And НаправлениеДеят <> "" And СтатусЗаявки <> "" Then
Range(Selection.Address + ",A" & rwIndex & ":" & "AP" & rwIndex).Select
ActiveWorkbook.Names.Add Name:="request_item", RefersToR1C1:=Range(Selection.Address + ",A" & rwIndex & ":" & "AP" & rwIndex)

End If
Next rwIndex
End If
End Sub
...
Рейтинг: 0 / 0
08.12.2009, 15:14
| Ответить | Цитировать | Написать  
Программирование на VBA
    #36354475
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Для начала запостим правильно, чтобы получше рассмотреть:
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
Sub Запускаем_макрос()
Dim ЕдИзм, КолвоВсего, Исх, ДатаЗаявки, Подразделение, НаправлениеРасхода, НаправлениеДеят, СтатусЗаявки As String
Dim nResult As Integer

'выделяем все не пустые позиции
If ActiveSheet.Name = "Годовая заявка" Then


For rwIndex =  10  To  100 
ЕдИзм = Range("$E$" & rwIndex).Value
КолвоВсего = Range("$F$" & rwIndex).Value
Исх = Range("$U$" & rwIndex).Value
ДатаЗаявки = Range("$V$" & rwIndex).Value
Подразделение = Range("$AA$" & rwIndex).Value
НаправлениеРасхода = Range("$AB$" & rwIndex).Value
НаправлениеДеят = Range("$AC$" & rwIndex).Value
СтатусЗаявки = Range("$AG$" & rwIndex).Value


If ЕдИзм <> "" And КолвоВсего <> "" And Исх <> "" And ДатаЗаявки <> "" And Подразделение <> "" And НаправлениеРасхода <> "" And НаправлениеДеят <> "" And СтатусЗаявки <> "" Then
Range(Selection.Address + ",A" & rwIndex & ":" & "AP" & rwIndex).Select
ActiveWorkbook.Names.Add Name:="request_item", RefersToR1C1:=Range(Selection.Address + ",A" & rwIndex & ":" & "AP" & rwIndex)

End If
Next rwIndex
End If
End Sub
...
Рейтинг: 0 / 0
08.12.2009, 15:22
| Ответить | Цитировать | Написать  
Программирование на VBA
    #36354477
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
на какой строке выходит ошибка?
...
Рейтинг: 0 / 0
08.12.2009, 15:22
| Ответить | Цитировать | Написать  
Программирование на VBA
    #36354482
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
K_Aida,

Как я понял ошибка просиходит в строке
Код: plaintext
1.
Range(Selection.Address + ",A" & rwIndex & ":" & "AP" & rwIndex).Select
Я думаю она связанна с ограничением на объединение нескольких диапазонов.
...
Рейтинг: 0 / 0
08.12.2009, 15:24
| Ответить | Цитировать | Написать  
Программирование на VBA
    #36354491
K_Aida
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
K_Aida
Гость
Shocker.Pro,

ошибка выходит на строке
Range(Selection.Address + ",A" & rwIndex & ":" & "AP" & rwIndex).Select
...
Рейтинг: 0 / 0
08.12.2009, 15:26
| Ответить | Цитировать | Написать  
Программирование на VBA
    #36354497
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Djon PlayerЯ думаю она связанна с ограничением на объединение нескольких диапазонов.

Гм. Ручками получается добавить гораздо больше, чем 27.

Тут:
Код: plaintext
1.
Range(Selection.Address + ",A" & rwIndex & ":" & "AP" & rwIndex).Select
ActiveWorkbook.Names.Add Name:="request_item", RefersToR1C1:=Range(Selection.Address + ",A" & rwIndex & ":" & "AP" & rwIndex)

Вы уже добавили в Selection.Address новый диапазон, зачем его еще раз добавлять? Попробуйте убрать, для начала, вдруг в этом дело....
...
Рейтинг: 0 / 0
08.12.2009, 15:29
| Ответить | Цитировать | Написать  
Программирование на VBA
    #36354501
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Selection.Address + ",A" & rwIndex & ":" & "AP" & rwIndex

и чему это будет равно?
...
Рейтинг: 0 / 0
08.12.2009, 15:30
| Ответить | Цитировать | Написать  
Программирование на VBA
    #36354529
K_Aida
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
K_Aida
Гость
Shocker.Pro,

Вторая сторчка (смотрите ниже), это присвоение имени "request_item" выделенной области.
ActiveWorkbook.Names.Add Name:="request_item", RefersToR1C1:=Range(Selection.Address + ",A" & rwIndex & ":" & "AP" & rwIndex)

То есть,сначала идет выделение области, а потом выделенный блок присваивается имени request_item.
...
Рейтинг: 0 / 0
08.12.2009, 15:38
| Ответить | Цитировать | Написать  
Программирование на VBA
    #36354535
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
Shocker.ProГм. Ручками получается добавить гораздо больше, чем 27.
Я попробовал руками выделял мышкой несвязанные диапазоны. В результате у меня получилось создать имя ссылающееся на 22 диапазона. При добавлении 23 он не добавляется, ошибки при этом не выдается.
Могу предположить, что главное даже не количество диапазонов, а главное общая длина строки, которая обозначает этот диапазон. Скорее всего оно ограничено 255 символами.
...
Рейтинг: 0 / 0
08.12.2009, 15:39
| Ответить | Цитировать | Написать  
Программирование на VBA
    #36354538
K_Aida
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
K_Aida
Гость
Konst_One,

выделение строк.
...
Рейтинг: 0 / 0
08.12.2009, 15:40
| Ответить | Цитировать | Написать  
Программирование на VBA
    #36354542
Фотография VladConn
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VladConn
Участник
K_Aida,

Всегда полностью квалифицируйте Ваши ранги, и Бог вас не оставит. Пишите, с какого он листа, с какой книги, и сразу все устаканится.
...
Рейтинг: 0 / 0
08.12.2009, 15:41
| Ответить | Цитировать | Написать  
Программирование на VBA
    #36354548
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
Djon PlayerЯ попробовал руками выделял мышкой несвязанные диапазоны. В результате у меня получилось создать имя ссылающееся на 22 диапазона. При добавлении 23 он не добавляется, ошибки при этом не выдается.Точнее имя то добавляется, но оно попрежнему указывает лишь на 22 первых диапазона, а дальше обрезает.
...
Рейтинг: 0 / 0
08.12.2009, 15:42
| Ответить | Цитировать | Написать  
Программирование на VBA
    #36354553
K_Aida
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
K_Aida
Гость
Djon Player,

вы что предложите, чтобы работало?
...
Рейтинг: 0 / 0
08.12.2009, 15:43
| Ответить | Цитировать | Написать  
Программирование на VBA
    #36354565
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
K_AidaShocker.Pro,

Вторая сторчка (смотрите ниже), это присвоение имени "request_item" выделенной области.
ActiveWorkbook.Names.Add Name:="request_item", RefersToR1C1:=Range(Selection.Address + ",A" & rwIndex & ":" & "AP" & rwIndex)

То есть,сначала идет выделение области, а потом выделенный блок присваивается имени request_item.

в строке
Range(Selection.Address + ",A" & rwIndex & ":" & "AP" & rwIndex).Select

вы добавляете новый диапазон к Selection.Address. И к моменту выполнения следующей строки он УЖЕ СОДЕРЖИТ добавленный диапазон и добавлять его второй раз не нужно. Достаточно:

ActiveWorkbook.Names.Add Name:="request_item", RefersToR1C1:=Range(Selection.Address)

И вообще, закомментируйте эту строку для начала
...
Рейтинг: 0 / 0
08.12.2009, 15:47
| Ответить | Цитировать | Написать  
Программирование на VBA
    #36354570
K_Aida
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
K_Aida
Гость
Shocker.Pro,

Ага, я поняла вас.

Но вообще я уже почти все убрала, у меня только и осталось одно выделение.
Все равно не работает. :(
...
Рейтинг: 0 / 0
08.12.2009, 15:49
| Ответить | Цитировать | Написать  
Программирование на VBA
    #36354575
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
K_Aida,

дайте файл
...
Рейтинг: 0 / 0
08.12.2009, 15:50
| Ответить | Цитировать | Написать  
Программирование на VBA
    #36354597
Djon Player
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Djon Player
Участник
K_AidaDjon Player,
вы что предложите, чтобы работало?
Если диапазоны абсолютно несвязанны, и моё предположение об ограничении на количество знаком в адресе имени верно, то тут предложить нечего, надо менять концепцию программы, определяться, для чего это вобще нужно, может и не нужно.
Если некоторые диапазоны имеют общую границу и два диапазона можно заменить одним, то надо заменять.
Например если выделены участки A1:U1,A2:U2,A3:U3,A4:U4, то вместо такого диапазона можно написать один большой диапазон A1:U4.
Но повторюсь, что если диапазоны все не связанны, тут надо менять концепцию.
...
Рейтинг: 0 / 0
08.12.2009, 15:56
| Ответить | Цитировать | Написать  
Программирование на VBA
    #36354614
K_Aida
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
K_Aida
Гость
Shocker.Pro,

Вам на почту что ли отправить, да?
...
Рейтинг: 0 / 0
08.12.2009, 16:01
| Ответить | Цитировать | Написать  
Программирование на VBA
    #36354662
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
K_AidaShocker.Pro,

Вам на почту что ли отправить, да?

Сюда положите, пусть все думают
...
Рейтинг: 0 / 0
08.12.2009, 16:12
| Ответить | Цитировать | Написать  
Программирование на VBA
    #36354783
K_Aida
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
K_Aida
Гость
Shocker.Pro,

:) Он большой уж больно не публикуется, а вам я отправила
...
Рейтинг: 0 / 0
08.12.2009, 16:50
| Ответить | Цитировать | Написать  
Программирование на VBA
    #36354788
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Че-то нету ничего
...
Рейтинг: 0 / 0
08.12.2009, 16:52
| Ответить | Цитировать | Написать  
Программирование на VBA
    #36354816
K_Aida
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
K_Aida
Гость
Shocker.Pro,

сюда же, да?
zhelezo@inbox.ru
сейчас еще раз отправлю вам
...
Рейтинг: 0 / 0
08.12.2009, 16:58
| Ответить | Цитировать | Написать  
Программирование на VBA
    #36354826
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
нету ничего

положите на файлообменку и дайте ссылку
...
Рейтинг: 0 / 0
08.12.2009, 17:01
| Ответить | Цитировать | Написать  
Программирование на VBA
    #36355294
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
и еще просьба - называйте темы по существу. Вы всего две темы создали:
Программирование на VBA
и
программирование на VBA

очень информативно!

Почитайте правила форума.
...
Рейтинг: 0 / 0
08.12.2009, 21:11
| Ответить | Цитировать | Написать  
Программирование на VBA
    #36355517
K_Aida
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
K_Aida
Гость
Shocker.Pro,

вот файл "Макрос_выделение_строк.xls" http://www.sharemania.ru/0246649
макрос срабатывает при нажатии на кнопку "F10".
...
Рейтинг: 0 / 0
09.12.2009, 00:20
| Ответить | Цитировать | Написать  
25 сообщений из 106, страница 1 из 5
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Программирование на VBA
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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