Владимир
Как добавить к строке данные справа
Как добавить к строке данные справа
Доступ к листам по паролю (защита листов)
1 мар 2021 13:31:28
А какие действия Вы выполняете (опишите подробно)? Проверил на машине с "американской" локализацией, ошибок не вижу (за исключением "кракозябр" в заголовке Userfom, что
Владимир
|
|
|
Ошибка RemoveDuplicates, Ошибка VBA при обработке RemoveDuplicates
28 фев 2021 17:13:04
У Вас длинный код - смотрите внимательно. Для того, чтобы использовать массивы с индексом от 1, указанная выше опция не нужна, достаточно при объявлении / переопределении массива указывать явно нижнюю границу. Если Option Base не указана, то по умолчанию нижняя граница массивов равна 0. Некоторые конструкции VBA, например, Split, возвращают массивы с нулевой нижней границей при любой "Option Base".
Изменено:
Владимир
|
|
|
Ошибка RemoveDuplicates, Ошибка VBA при обработке RemoveDuplicates
28 фев 2021 17:01:18
Если убрать "Option Base 1", то ошибки нет.
Владимир
|
|||||
|
Ошибка RemoveDuplicates, Ошибка VBA при обработке RemoveDuplicates
28 фев 2021 16:10:12
Добрый день! Думаю, что проблема в Option Base 1. Похоже, метод RemoveDuplicates c этой опцией не дружит.
P.S. Предлагаю не рассматривать подобные просьбы в отношении текстов модулей, не содержащих Option Explicit. Не все мы Гераклы. ![]()
Изменено:
Владимир
|
|
|
Конвертнуть время в десятичный формат, Конвертнуть время в десятичный формат
Автоматический подбор высоты строк
Ошибка при вставке данных "метод pastespecial из класса range завершен неверно"
25 фев 2021 12:59:56
Владимир
|
|||
|
"Сохранить как...." меняет имя файла перед сохранением (дописывает Копия)
Макрос создания дополнительного меню для перехода по листам
Макрос создания дополнительного меню для перехода по листам
Как найти дату функцией Find, Find VBA
23 фев 2021 14:29:32
Владимир
|
|||
|
LoadPicture() - как загрузить изображение без блокировки файла., LoadPicture() как освободить файл.
21 фев 2021 19:54:15
Понятно. Директория по умолчанию (default directory or folder) всегда блокируется от удаления и переименования. Это не связано с особенностями объекта FileDialog (который "виноват" лишь в смене текущей директории).
То же произойдет, если Вы выполните Chdir (как в #4) и попытаетесь переименовать вновь установленную директорию по умолчанию.
Владимир
|
|
|
сделать для таблицу для расчета, сделать для таблицу для расчета
21 фев 2021 14:13:45
Существует обширная математическая литература по теме
![]()
Владимир
|
|
|
LoadPicture() - как загрузить изображение без блокировки файла., LoadPicture() как освободить файл.
21 фев 2021 13:57:06
Не вижу блокировки при переименовании выбранной папки для Application.FileDialog.
Владимир
|
|||
|
Об особенностях метода Range.Find c параметром LookIn:=xlValues
21 фев 2021 13:09:08
Итак, анализируем результаты экспериментов.
При указанном Андреем в #5 аргументе поиска "f" текст находится только для февраля, для аргумента "y" текст найден для месяцев 1,2,5,7. Проведя аналогичные опыты (и вспомнив английский язык ![]() 1. В процессе выполнения поиска числовые, логические и ошибочные значения ячеек преобразуются в текст (числовые - с учетом формата ячеек). При преобразовании текущие региональные настройки не учитываются, точнее, преобразование производится в соответствии со стандартными "американскими" настройками: локализация en_US, дробная часть числа отделяется точкой, разделитель тысяч запятая, стандартный формат даты M/D/YYYY. Таким образом, если в ячейке с форматом D MMMM YYYY содержится число, соответствующее первому дню текущего года, то оно будет преобразовано в текст "1 January 2021". Логические значения ячеек преобразуются в "FALSE" или "TRUE", ошибочные в "#DIV/0!", "#NAME?", ... 2. Если текст, полученный в результате п.1, не помещается в ячейке, то он заменяется на один или несколько символов "#". Теперь мы можем объяснить результаты в задаче 2 из #1. Ширина столбца "A" выравнивается под ширину видимого текста в ячейкe A1 (например, "1 Январь 2021"), Если текст, полученный в результате п.1 (например, "1 January 2021"), помещается в ячейке, то он будет найден, иначе нет. Кстати, в конфигурации автора результат выполнения 2-го макроса из #1 отличается от результата коллеги, указанного в #8: текст не найден для месяцев 3, 8, 9, 11, 12. Это объясняется возможными различиями в настройке стиля "Обычный" ("Normal"), который используется для форматирования ячейки по умолчанию. Использовать или нет в макросах "мудреный" метод, указанный в заголовке темы - решать читателю. ![]()
Изменено:
Владимир
|
|
|
Подбор цены в копейках по нескольким позициям для достижения требуемого итога
20 фев 2021 17:10:41
В Вашем примере замена цены на копейку меняет итог либо на 50, либо на 146 копеек. Не факт, что задача имеет решение в общем случае.
В данном случае Вам повезло - надстройка Excel "Поиск решения" помогла. Для модераторов тема: "Подбор цены в копейках по нескольким позициям для достижения требуемого итога".
Изменено:
Владимир
|
|
|
Об особенностях метода Range.Find c параметром LookIn:=xlValues
Об особенностях метода Range.Find c параметром LookIn:=xlValues
Об особенностях метода Range.Find c параметром LookIn:=xlValues
Анекдот дня, Постим сюда понравившиеся:)
Запуск макроса из контекстного меню
19 фев 2021 18:50:22
Изменено:
Владимир
|
|||||
|
Об особенностях метода Range.Find c параметром LookIn:=xlValues
19 фев 2021 14:03:51
Добрый день!
Вопросы по применению метода Range.Find c параметром LookIn:=xlValues сравнительно часто задаются на форуме. Владимир ( Первую задачу можно в начале решать "без доски". Что будет выдано в результате выполнения следующего макроса. Почему?
Следующая задача значительно труднее. Ее решение дает ключ к ответу по данной теме. Выполнить макрос. Если есть различия в сообщениях по месяцам, то объяснить эти различия.
Сделаем паузу на пару дней, чтобы дать возможность читателям темы (если таковые будут) провести самостоятельные исследования.
Владимир
|
|||||||
|
VBA работа с запароленными zip архивами
18 фев 2021 17:07:04
Владимир
|
|||
|
Как найти дату функцией Find, Find VBA
Как найти дату функцией Find, Find VBA
18 фев 2021 13:42:27
Метод Range.Find с параметром LookIn:=xlValues имеет ряд непростых для понимания особенностей. Для начала можно ознакомиться с замечательными
Для того, чтобы пример из #6 заработал, необходимо: 1. Изменить формат ячеек первой строки листа Production c Д.М;@ на Д\.М;@ 2. Изменить строку макроса с вызовом Find на
Изменено:
Владимир
|
|||
|
Чаевые криптой или на дебетовые карты??
Удалить файл из архива
Чаевые криптой или на дебетовые карты??