Дмитрий(The_Prist) Щербаков, идея рабочая, спасибо, в эту сторону не думал. Можно даже сообразить UDF , которая будет выводить соответствующее число этих звездочек. Это я уже сам справлюсь

Коллеги, приветствую. Помогите подсказкой, кто сможет...

В таблице excel среди всего прочего отдельной колонкой хранятся пароли для доступа к определенным ресурсам. Чтобы не светить их постоянно, соответствующие ячейки отформатированы шрифтом и цветом ("белый по белому"), формулы скрыты, и включена защита листа. Можно вообще скрыть эту колонку, но хочется более элегантного решения, типа формата ячеек, чтобы вместо пароля выводить например звездочки "*******", как это принято в других программах. Чтобы было видно - да, ячейка не пустая, в ней записан какой-то пароль, но просмотреть его возможности нет.

Не могу нагуглить релевантный ответ, все поисковики на любой запрос со словами "пароль" и "excel" вываливают тонны ссылок про защиту ячеек/листов/книг, но полный 0 по нужной теме.

Пока писал вопрос, возникла идея... Графу с паролями можно скрыть, а в  какой-то видимой колонке рисовать повторы звездочек, равные длине  пароля. Плюс обычные методы защиты от юзера. Пользователи таблицы - обычные бухгалтеры, особой безопасности не требуется, защита нужна только от "я не ничего нажимала, оно само"

Есть ещё идеи?

Неужели решения не существует?
Excel 100% где-то запоминает выбранные параметры принтера. Неужели эти свойства недоступны для VBA?
Или, как вариант, при запуске печати глобально изменить системные свойства принтера по умолчанию (задать 2 стороны и правильный разворот), а по окончании печати вернуть всё взад?

попробую поднять тему. Поиск находит некоторые темы про "двустороннюю печать", но ответа на свой вопрос найти не могу. Ткните носом, плз, куда смотреть?

поиском не нахожу ничего. Может неправильно формулирую запрос..

Хелло ворлд. Прошу направить мысль в нужное русло.

Задача: распечатать несколько листов текущей книги с типовыми параметрами. Свойства Excel (Sheets.PageSetup - ориентация, поля, масштабы и проч.) заданы, тут всё хорошо, но есть проблема с параметрами принтера.

Действия пользователя: выделяем группу листов, Ctrl+P, "выделенные листы", и открываем свойства принтера. В данном конкретном случае задаем двустороннюю печать с разворотом по короткому краю, и отправляем задание на печать. В результате только один активный лист печатается в двустороннем режиме, а все остальные в выбранной группе - с параметрами по умолчанию.

При этом замечено, что параметры принтера Excel где-то запоминает. Если открыть любой другой лист в выбранной группе и повторить действия из предыдущего пункта, в нужном режиме распечатаются уже два листа! и т.д.

Собственно вопрос. Возможно ли средствами VBA растиражировать настройки принтера с ActiveSheet на все остальные листы в выбранной группе?

Случилось странное. На работе начал писать макрос в Excel 2007. Вечером забрал xlsb-файл домой, поработал с ним в Excel 2021, и отправил себе обратно на рабочую почту. Утром, на работе, обнаружил что файл пришел битый, не открывается (обнаружено ... содержимое... восстановить? после восстановления - полностью поломанный файл - не хватает главного листа, куча каких-то левых листов, полностью слетевшее форматирование и т.п.). Грешил на майл.ру, но не поленился - сгонял домой, и привез файл на флешке. То же самое.
На соседней машине поднял офис 2021, убедился что файл там открывается нормально, пересохранил в .xlsm, перенес на рабочий комп - и всё норм, работает в 2007.
Вопрос!!! Чем xlsb в 2021 офисе отличается от xlsb в 2007? Или что ещё могло стать причиной такого глюка?

Мда, интересный материал для размышления)) Много лет работаю с VBA, и всегда считал методы select и activate пережитками макро-рекордера. Придется пересмотреть этот момент. Ещё раз спасибо за подсказку.

Дмитрий(The_Prist) Щербаков, точно, помогло, спасибо.

Но смысл косяка остался где-то за границей понимания. Видимо придется просто запомнить.

Приветствую, господа.
Столкнулся с непонятным поведением excel, надеюсь кто-то окажется внимательнее и поймет что происходит.

Итак. Есть макрос, выполняющий определенные вычисления в таблице. На основании полученных итогов таблица должна быть раскрашена.
Чтобы точнее прицелится, ввожу в Immediate команду:пока всё правильно, мне действительно  нужно создать правило на основании клетки P6
Дописываю в конце макроса такой код:Выполняю макрос, замечаю что клетки раскрасились как-то неправильно, и обнаруживаю, что в созданном правиле прописалась формула "=$P8>0"

Вручную исправляю эту формулу, вся таблица раскрашивается как надо.
Внимание, вопрос! В какой момент выражение, вычисляющееся в "$P6" вдруг выдало "$P8" ????

Отвечу сам себе, т.к. решение найдено.

Всего лишь:Теперь arr имеет только одну размерность (5). Обращения вида arr(5) ошибок не дают.


И обратно массив сливается одной строчкой:

Для приложенного примера:Ключевое слово ApplyFilter. Получилось?

Формула для [E2] из примера: и копируем вниз.


Или нужно оформить макрос?

Принял к сведению, спасибо. Будут лишние запятые в макросах, ну и пусть.

Это запросто, но мой вопрос относился к встроенным возможностям Excel/VBA. Может есть какие-то тонкости синтаксиса?

Потому что регулярно натыкаюсь на ошибки "subscript out of range" в собственном коде ) потому и говорю - не путаю ли я VBA с другими языками. Вроде ведь логично: одномерный диапазон присваивается массиву. Но массив почему-то получается двумерный (x to 1), причем вторая размерность всегда 1.

В  смысле .row и .column? так это свойства (properties) объекта, а не измерения (dimensions). Для получения адреса клетки это актуально, но если нужно получить массив значений из одной строки? столбца?

Коллеги, прошу подсказку. я то ли туплю, то ли путаю VBA с другим языком.
Задача: загнать range в массив.
Вроде бы тривиально:
dim arr
arr = [A1].resize(5).value
но на выхлопе получается двумерный массив (5,1),  то есть обращение типа msgbox(arr(3)) даст ошибку "subscript out of range", а нужно писать msgbox(arr(3,1)).
А можно ли одним оператором создать из одномерного range одномерный массив? Или для этого придется обходить заданный range циклом?

Да, так работает.
А  не получается вот так:
Приходится делать через промежуточный массив:А нельзя ли напрямую?

Это мощно. Переписал свой макрос со словарем. Мало того что он работать стал на порядок быстрее, так ещё и код в три раза компактнее получился:


Может и не идеально, но скорость меня уже устраивает. То что раньше работало до 10 минут, выполняется в пределах 3-5 секунд. Ура.

Благодарю за подсказку sokol92, БМВ, Jack Famous,

А не подскажете ли ещё, если в словарь добавить массив, как адресоваться к его элементам? У меня не получилось.

Например:
dic1.Add key1, array(10, 20, 30)
msgbox Dic1.Item(key1)(1)
Результат - 0.

Привет, коллеги. Прошу помочь с алгоритмом, теоретической подготовки не хватает.

Суть в следующем. Есть книга с двумя (на самом деле гораздо больше) листами. На одном из них (назовем его Лист1)  несколько десятков или даже сотен тысяч записей, которые постоянно обновляются и пополняются копированием-вставкой из внешнего источника. Данные на этом листе не упорядочены, и содержат графы  "дата", "ID",  некая "сумма", и много всего прочего. На другом листе (Лист2) нужно макросом сформировать типа сводного отчета, в котором  данные первого листа подсуммируются по "дате" + "ID".
Есть рабочее решение, но оно слишком медленно, поэтому и прошу подсказки. Суть моего макроса состоит в том, что содержимое обоих листов считывается в два массива, потом двумя вложенными FOR даные суммируются  (внешний for пробегает больший массив1, а внутренний накапливает в меньшем массиве2 суммы по заданным условиям), затем меньший массив заливается обратно на Лист2 конструкцией типа cells(...).resize(...).value = arr. Этот макрос работает несколько минут, что очень долго, учитывая прочие условия задачи.
Со сводными таблицами знаком, в данном случае это неприменимо, потому что Лист2 имеет фиксированную разметку  - это  достаточно сложный  отчет, который нужно заполнить цифрами по одной  кнопке, нажатой пользователем.

С функцией СУММЕСЛИМН тоже знаком, но если её использовать на этом объеме данных, перерасчет всей книги на шести ядрах core i5-8500 c 16GB памяти занимает почти 2 минуты, что также недопустимо, т.к. перерасчет будет запускаться на каждое редактирование, фильтрацию и т.п. (application.calculation =xlcalculationmanual не предлагать, противоречит прочим неозвученным условиям)

В общем, требуется именно макрос, который будет работать по кнопке, и по возможности "мгновенно".
Накидайте пожалуйста идей или ссылок на описание, какой алгоритм суммирования по нескольким условиям самый быстрый. С реализацией в VBA буду разбираться сам. Спасибо.