Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1 2 След.
RSS
Некорректное заполнение одномерного массива данными, Нумерация элементов массива
 
#1
22.02.2013 22:54:34
Здравствуйте!

Подскажите пожалуйста, по какой причине в массив не попадает последний элемент коллекции?

Файл прилагаю.

С уважением.
ПАХОМ
Изменено: Werty - 22.02.2013 23:03:03 (Сделайте пожалуйста проверку: есть слова в посте "прилагаю файл" - значить должен быть файл. )
Спокойствие - величайшее проявление силы.
 
 
 
#2
22.02.2013 22:59:29
Цитата
Werty пишет:
Файл прилагаю.
Точно?
 
 
 
#3
22.02.2013 23:03:41
Юрий М! Здравствуйте!

Файл прикрепил :)
Спокойствие - величайшее проявление силы.
 
 
 
#4
22.02.2013 23:11:17
Привет, охотник! Может я чего не понял, но шестёрка в фильтре присутствует...
 
 
 
#5
22.02.2013 23:16:12
По окончанию макроса в автофильтре не отображается цифра 6. Я вот думаю может она как текст в массив попадает ...
Спокойствие - величайшее проявление силы.
 
 
 
#6
22.02.2013 23:22:11
Если посмотреть в окне Lokals, то 6 в массив попадает. Только не пойму - зачем цикл? Сразу забрать диапазон в массив быстрее и проще.
P.S. У вас на строку
Код
ActiveSheet.Range("$A$1:$A$7").AutoFilter Field:=1, Criteria1:=iArray(), Operator:=xlFilterValues
дебагер не ругается?
 
 
 
#7
22.02.2013 23:28:41
Если
Option Base 1 ' нумерация элементов начинается с 1
то
ReDim iArray(1 To [Коллекция].Count)

Operator:=xlFilterValues в Excel2003 нет
 
 
 
#8
22.02.2013 23:29:44
Да ... а как забрать сразу диапазон в массив?
А дебагер не ругается ... я пока с ним не познакомился :) каюсь.
Спокойствие - величайшее проявление силы.
 
 
 
#9
22.02.2013 23:31:11
Код
Dim iArray()
iArray = [Коллекция].Value
 
 
 
#10
22.02.2013 23:34:58
Dim iArray()
iArray = [Коллекция].Value

Так не работает ... только первый элемент попадает в фильтр.

ПС: а как этим ... дебагером пользоваться?
Спокойствие - величайшее проявление силы.
 
 
 
#11
22.02.2013 23:40:13
Цитата
Werty пишет:
Так не работает ... только первый элемент попадает в фильтр.
Работает - я ведь проверил: в массиве 6 элементов.
 
 
 
#12
22.02.2013 23:42:34
Вот файл. Посмотрите, пожалуйста ...
Спокойствие - величайшее проявление силы.
 
 
 
#13
22.02.2013 23:47:22
Ну вот зачем дублировать файлы? Посмотрел - в массиве шесть элементов. Показать скрин?
 
 
 
#14
22.02.2013 23:49:20
Сори за дубли. Я когда запускаю макрос, то в итоге фильтр отображает только букву "А".
Спокойствие - величайшее проявление силы.
 
 
 
#15
22.02.2013 23:52:34
Вот скрин: в массиве 6 элементов.
Повторюсь: у меня ругается на вышеуказанную строку.
 
 
 
#16
22.02.2013 23:54:07
Я вот понял что версии разные Excel, в которых я тестирую макрос ... В 2003 только цифра 6 выводится, а в 2007 все буквы, но без цифры 6.
Да и ошибка возникает в 2003 офисе на Operator:=xlFilterValues ... что делать?
Спокойствие - величайшее проявление силы.
 
 
 
#17
22.02.2013 23:57:44
Если к букве добавить цифру, то эта буква с цифрой тоже не попадает в фильтр. Может мне надо идти спать уже ...
Спокойствие - величайшее проявление силы.
 
 
 
#18
22.02.2013 23:58:38
Попробуйте рекордером записать установку фильтра в 2003 и посмотрите что получится.
 
 
 
#19
23.02.2013 00:01:10
в 2007 получилось:
ActiveSheet.Range("$A$1:$A$11").AutoFilter Field:=1, Criteria1:=Array("6", "À", "Á", "Â", "Ã", "Ä"), Operator:=xlFilterValues
Спокойствие - величайшее проявление силы.
 
 
 
#20
23.02.2013 00:03:59
Отбор несколько значений появилось только в 2007 офисе, а в 2003 его нет.
А вот вышеуказанная строчка корректно выводит автофильтр, т.е. цифра 6 отображается в автофильтре.
Спокойствие - величайшее проявление силы.
 
 
 
#21
23.02.2013 00:19:26
Юрий М! Вы со мной до поздней ночи :) Спасибо Вам :)

Хотелось Вас лично поздравить с 23 февраля! С Днём Защитника Отечества! И пожелать всего чего Вы хотите! Также здоровья и кавказского долголетия Вам!



ПС: надо идти спать, завтра на работу.
Если что - пишите пожалуйста, я обязательно прочитаю и скажу спасибо :)
Спокойствие - величайшее проявление силы.
 
 
 
#22
23.02.2013 00:26:59
Спасибо за поздравление! И Вас с праздником!
 
 
 
#23
23.02.2013 00:34:30
В 2003 нет возможности в автофильтре выбрать несколько значений, а 2007 это умеет.
 
 
 
#24
23.02.2013 06:28:01
Для excel 2007+
Код
Sub Test()
  Dim a()
  a() = WorksheetFunction.Transpose([Коллекция&""])
  Лист1.Range("A1:A7").AutoFilter Field:=1, Criteria1:=a(), Operator:=xlFilterValues
End Sub
 
 
 
#25
23.02.2013 22:45:40
В 2003 можно сделать Расширенным фильтром:
Код
Sub AdvFilter()
Dim rCrit As Range
Set rCrit = Union([Коллекция], [коллекция!A1])
rCrit(1) = [A1] 'копирование заголовка
Range("A1", Cells(Rows.Count, 1).End(xlUp)).AdvancedFilter xlFilterInPlace, rCrit
End Sub
 
 
 
#26
24.02.2013 13:01:54
Здравствуйте!

Спасибо за ответы, буду изучать :)

Если рассматривать мой макрос, то нужно было в цикле переводить всё в текст, тогда всё работает: CStr([Коллекция].Cells(s))

С уважением,
ПАХОМ.
Спокойствие - величайшее проявление силы.
 
 
 
#27
24.02.2013 13:10:29
Вы невнимательны - Владимир уже всё перевёл в текст, и без всякого цикла :)
 
 
 
#28
25.02.2013 19:58:33
Я видел  :)  Но я же не мог оставить свой пример без ответа  :)
Спокойствие - величайшее проявление силы.
 
 
 
#29
25.02.2013 20:28:23
Маленький вопрос ... почему добавляются две кавычки внутри массива (т.е. [Коллекция&""]  ;)  , а не [Коллекция&]&""? То что к [Коллекция] добавляется знак & я так понял означает краткий тип, т.е. & означает тип Long. А вот эти кавычки ... зачем они?
Хотя думаю что это не объявление переменной (она же уже есть), а просто знак соединения ... только как вот
это обрабатывает Excel?
Изменено: Werty - 25.02.2013 21:00:43
Спокойствие - величайшее проявление силы.
 
 
 
#30
25.02.2013 22:43:20
Я думаю Владимир объяснит точно и подробно, я же на уровне ощущений (сам первый раз столкнулся) понимаю,  что это используется evaluate и перевод значений  в строку конкатенацией к значению пустой строки.
 
 
 
Страницы: 1 2 След.
Наверх