Доброго здоровья всем!

Эта тема очень давно уже была на форуме ссылка. Но может быть, что то изменилось за это время. Причем недавно здесь была тема «Как узнать key текущего item при просмотре коллекции?». Там было решение от testuser. Меня интересует, как получить индекс элемента коллекции по его ключу. Мне кажется что должно быть какое то простое решение. Причем интересно то, что в коллекции листов это возможно. Насколько я понимаю имя листа (Name) это по сути ключ коллекции листа.

Debug.Print Worksheets("Лист1").Index

Немного поясню цель. Необходимо заменить элемент коллекции без изменения структуры коллекции (порядка в коллекции). В словаре таких проблем нет, там можно просто заменить элемент словаря по его ключу. Но иногда удобнее использовать коллекцию. В коллекции заменить элемент коллекции мы не можем (я не знаю такого способа), можно только удалить элемент коллекции, а потом добавить измененный элемент. Но чтобы не нарушать порядок надо добавить измененное значение на тоже место и у коллекции в методе ADD есть аргументы After и Before, но для этого надо знать индекс элемента коллекции, и раз есть эти аргументы в методе ADD, то по логике должен быть способ легко получить индекс элемента коллекции по его ключу. Конечно можно решить эту задачу по другому, но все получается некрасиво через костыли.

Доброго здоровья всем!

Подскажите пожалуйста как получить ссылку на объект по PID (идентификатор процесса), который вернула функция Shell.  Например в переменную vPID возвращается PID запущенного процесса, но получить ссылку на новый объект Excel у меня никак не получается.

vPID = Shell("excel.exe /x")

Добрый вечер всем

Не могу понять почему некоторые гиперссылки на сайты не работают из экселя и ворда. Если ссылку вставляешь в строку поиска браузера открывается. Все локальные ссылки работают, проблема только с ссылками на сайты. Есть маленькая прога типа блокнота с возможностью использовать ссылки, там тоже работают. А вот из офисных документов не все. В файле 4 ссылки 2 первые срабатывают открывается сайт, а 3 и 4 появляется сообщение «Не удается открыть: адрес ссылки. Не удается загрузить нужные данные». Ссылка на этот сайт тоже не срабатывает. Стоит винда 7 Офис 2002 и 2010. Офис установлен не полный пакет. Не устанавливал Power poin Outlook Access.  Браузер Яндекс. Никогда не пользовался Internet Explorer. С чем это связано: есть какие то настройки в экселе или не установлен какой то компонент. Объясните пожалуйста. Может кто-то с этим сталкивался, а то не очень удобно из экселя копировать в браузер.

Доброго здоровья всем!

Я давно замечал, что UsedRange косячит и практически его не применял. Недавно в одной теме была ссылка на статью Дмитрия Щербакова «КАК ОПРЕДЕЛИТЬ ПОСЛЕДНЮЮ ЯЧЕЙКУ НА ЛИСТЕ ЧЕРЕЗ VBA?». Вроде внимательно прочитал. Сначала попробовал на чистой книге все нормально. Потом попался файл, в нем не работает корректно. И переопределение используемого диапазона строкой не помогает.

With ActiveSheet.UsedRange: End With

Все что знаю попробовал. Удалил все имена, посмотрел коллекцию Shapes, очистил все пустые ячейки через команду очистить все, посмотрел ID ячеек. Ничего не нашел, помогает только удаление этих столбцов, но это для VBA не лучший вариант. Выходит, что метод UsedRange для определения последней ячейки лучше не применять. В примере на первом листе.

И еще один вопрос. Есть ли простой оператор определить адреса или хотя бы количество текущих областей (CurrentRegion) на листе в используемом диапазоне (UsedRange). Используя метод Find можно, но это несколько строк, а мне как и некоторым здесь писать лень. В примере на листе 2 две области.

Доброго здоровья всем!

Просьба написать две формулы: для вывода дубликатов т.е значений которые встречаются 2 или более раз, и формула для вывода значений, которые встречаются 1 раз, желательно без использования новых функции, чаще пользуюсь старым Excel 2002.

И еще одна просьба вот прошу написать формулы, т.к. это у меня получается не очень. В принципе хотел бы сам лучше научиться писать, но как – то совсем плохо это получается. Макрос для меня проще. Обычно алгоритм и даже не один в голове появляется, а по формулам ничего. Ну первую функцию еще выберу, а дальше обычно ступор. Может посоветуете как научится, что где прочитать. Может у кого-то есть книга в электронном виде, прочитав которую будет лучше получаться. Наверняка те, кто хорошо пишет формулы, читали такую книгу. По макросам у меня есть пара книг ну и несколько справок, в которые иногда заглядываю, плюс есть несколько сайтов, где можно что - то посмотреть, а по формулам ничего нет.

Здравствуйте. Есть файл для простенького учета. Делал давно в Экселе 2002. Тогда в Vba знаний было 0. Надо было ускорить процесс ввода значений в некоторые ячейки, строк ~1300. Тогда почему-то решил использовать расширенный фильтр. Потратил много времени, но в конечном итоге получилось. На листе есть текстовое поле, его значение записывается в ячейку B2. при наборе символов отрабатывает фильтр. Все было хорошо в Эксель 2002, фильтруется мгновенно, а вот с новыми версиями получается тормоз и даже совсем зависает, особенно при очистке символов. Сейчас решил разобраться, в чем дело. Удалил  лишние листы, лишние формулы, условное форматирование, имена. Проверил коллекцию Shapes. Ничего плохого не нашел. Сейчас у меня две винды XP и 7 разницы практически нет. Office 2002 и 2010. Железо старое лет 20 уже. Вот не могу понять, почему в 2002  все работает в 2010 виснет. Ну минут 5-7 ждал. Единственное, что понял в новом Эксель делает какие-то расчеты и виснет. При переводе на ручной режим пересчета формул свойство Calculation и отключении пересчета на листе EnableCalculation работает, но визуально заметная задержка в фильтрации. Для сравнения скачал файл с этого сайта расширенный фильтр в приемах, строк там немного меньше и формул нет. Он работает нормально.

Объясните пожалуйста в чем проблема. Программисты накосяли начиная с 2003 экселя, или у меня ошибки в коде и как с этим бороться.

В файле для быстрого перемещения текстовое поле–лист F4 и Tab, фильтрация по 2 столбцу.

Доброго здоровья всем!

На листе ведем базу данных. При вводе во 2 столбец значения, макросом заполняются 1 столбец «Дата начала процесса», 4 столбец формула =ТДАТА() и для этого столбца вводится формула для УФ =ТДАТА()=D2. Когда процесс заканчивается я вставляю в 4 и 5 столбец вместо формул значения.  УФ ввожу для того, чтобы видеть какие процессы еще идут. Но УФ на первом листе в файле примера работает некорректно, заливка пропадает например при прокрутке листа, при переключении между листами и т.д. На втором листе в столбец C ввел туже формулу для УФ, а в формулу УФ сделал ссылку на этот столбец, тогда все нормально, но нужен дополнительный столбец. Объясните пожалуйста почему это происходит и как это исправить без дополнительного столбца. Может для УФ можно написать другую формулу, желательно без использования новых функции, чаще пользуюсь старым Excel 2002.

Доброго здоровья всем!

Давно не заходил на сайт. Если кто помнит с формулами у меня не очень хорошо получается. Задача вроде простая, но я уже несколько часов потратил, а красивая формула не получается.

На листе ведем базу данных. 1 столбец «Дата», 2 столбец «Сумма». Надо подсчитать 3 суммы: за последний год, последний месяц, последний день. Логично использовать функцию СУММЕСЛИ. Написал, но формулы для расчета за последний год и последний месяц надо править при изменении года или месяца. Если правильно разобрался с функцией СУММЕСЛИ в качестве первого аргумента запихнуть формулу не получиться, только ссылка на диапазон. Попробовал использовать СУММПРОИЗВ в принципе получилось, но она получилась тормозная. У меня железо старое и при работе макроса заметно торможение. Хотелось бы без использования новых функций, чаще пользуюсь старым Excel 2002. Вообщем надо 2 красивые формулы суммы за последний год, последний месяц. Помогите пожалуйста. Заранее благодарю.

Здравствуйте

На днях стал знакомиться с регулярками. На одном сайте  при чтении не смог все понять. Есть код

Sub fdsg()
Dim re, Item, s As String
s = "-word1 -word2 -word3 -word4 -word5"
Set re = CreateObject("VBScript.RegExp")
re.Pattern = "\s\-([a-z0-9]+)\s"
re.Global = True
    For Each Item In re.Execute(s)
        Debug.Print Item.Value
    Next
End Sub

Я так читаю Pattern. Пробел, тире, (латиница в нижнем регистре и цифры) одно или более вхождений, пробел. Но в коллекции Matches получается только два значения

-word2  -word4, а я думаю, что должно быть 3 те  -word3 тоже должно быть. Объясните пожалуйста балбесу, чего я не понимаю.

ДВССЫЛ,СМЕЩ ещё есть                          

Здравствуйте знатоки Excel

Пару лет назад я решил написать макросы для работы с файлами Vcard, чтобы хранить свои контакты в Excel. Импорт экспорт Excel - Vcard написал без проблем, но не стал делать кнопки на листе решил сделать интеллектуальную командную панель.

Да забыл сказать, что предпочитаю старый Excel. Лента мне не нравиться.

Но с панелями инструментов есть один недочет в Excel. Нельзя вкладывать панели в рабочие книги (это не совсем хорошо) их надо создавать программно при открытии файла и удалять при закрытии. Вот здесь мне понадобились глобальные переменные, а вот работать с ними без матов невозможно. Тогда я не мог понять, что происходит позже разобрался. Оказывается при возникновении ошибки происходит повторная перезагрузка модуля и инициализация переменных. Те все значения теряются. Когда конечно все отлажено и не возникают ошибки или они обрабатываются тогда нормально, но когда только пишешь макрос хочется поругаться. Позже я все таки переделал это и записал эти значения в имена.

Но с именами не все красиво Например записываешь массив в имя AAA.

Если надо вернуть имя через оператор vTp1 = ThisWorkbook.Names("AAA").Value

То получаешь строку в начале = потом кавычки и в конце кавычки те надо сначала обрезать 2 символа впереди и один символ сзади чтобы получить имя. Не совсем красиво.

Недавно узнал, что можно вытащить имя таким оператором vTp1=[AAA]. Все хорошо, но почему то он работает только когда активна книга где он написан. Открываешь новую книгу и он не работает. Я не понимаю почему так.

И вообщем как вы думаете где лучше хранить глобальные значения (такие которые были бы доступны для всех процедур и никогда не теряли свои значения)

• В глобальных переменных

• В именах

• На скрытых листах