Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 22 След.
Ошибка при сохранении файла Excel с поддержкой макросов
 
Такая же ботва и у меня, но файл то сохраняется, то не сохраняется. на некоторых компах вообще почти всегда сохраняется, но не 100%
вышеуказанное решение не помогло. файл 84Мб. Облачные сервисы запрещены политикой компании.
Невозможен запуск макросов, Модули на месте в модули вход невозможен
 
Цитата
написал:
это не достижение , а наоборот.
Там нет ничего лишнего. просто архив данных кучи расходомеров за много лет и макросы для переноса данных с оперативок
Никаких условных или избыточных форматирований, форм ВБА и т.д.
Спасибо за ответ.
Невозможен запуск макросов, Модули на месте в модули вход невозможен
 
Добрый день.
Случилась такая проблема - невозможен запуск макроса.
В чем проявляется
-Макросов не видно в окне Разработчик - Макросы
-При открытии вместе с файлом другого файла с макросами в окне Разработчик - Макросы видно только макросы другого файла.
-Модули видно, но вход в них невозможен
-При попытке добавления модуля Эксель виснет.
-Не заходит в референсы
-Не заходит в свойства ВБА проекта

Проявляется в одной книге на нескольких компах

Что сделано
- Разрешен запуск всего что можно
- Файл добавлен в надежные расположения издатели и т.д. и т.п.
- Отключены все активные надстройки (SAS и Acrobat)
После отключения надстроек появилась еще одна ошибка при сохранении файла "Файл не сохранен"

Файл весит 95 Мб
На работе есть файлы и по 200 мб которые работают без проблем.
Вчерашняя архивная версия этого файла работает нормально
Ошибка появляется периодически и лечится только восстановлением архивных версий

Пока лечится, но очень хотелось бы разобраться.
Гугл диски, Яндекс диски и подобное блокируется на работе поэтому загрузить файл не могу, надеюсь только на то что кто-то сталкивался с похожим или что есть какие-нибудь программы-лечилки.
Спасибо.
Из буфера обмена вставляется не то что нужно
 
sokol92, Спасибо огромное! Вы очень помогли. Альтернативный способ помещения в буфер работает.
Из буфера обмена вставляется не то что нужно
 
Одна активная надстройка mcafee dlp office addin
Из буфера обмена вставляется не то что нужно
 
Файл. Стартуем с процедуры максималки_вр()
Как стринг пробовал. монопенисуально.

После отработки процедуры и закрытия мсджбокса попробуйте вставить вручную в любую ячейку содержимое буфера через КТРЛ+Ц

Ребята потестили на своих машинах - у них норм. Дело в моей машине или програмном обеспечении и его настройках. что-может влиять на буфер в офисе?
Изменено: VideoAlex - 25.11.2020 13:59:45
Из буфера обмена вставляется не то что нужно
 
Вот это кладу в буфер:
https://prnt.sc/vpktd1
____________________________________________________________­___________________
А вот это вставляется:
https://prnt.sc/vpkuo0
____________________________________________________________­___________________
Мсджбокс показывает верно:
https://prnt.sc/vpkv0n
____________________________________________________________­____________________
В винде вставляется верно:
https://prnt.sc/vpkvbg

Пробовал переустановить офис, думал что библиотека косячит. Не помогло.
Мною дополнительно был задан этот вопрос в телеграмм канале https://t.me/eh_chat ответа нет
Прошу прощения картинки почему-то не вставлялись никакие - пишет что превышен максимальный размер изображения
Открывается повторно один и тот же файл, без предупреждения
 
Ребят, реанимирую тему.
Одна книга, назовем ее "Отчет", одним пользователем, который игнорирует предупреждение о повторном открытии, постоянно открывается повторно.
При попытке повторного открытия других книг просто активируется уже открытое окно.
Как сделать чтобы при повторном открытии и этой книги ("Отчет") просто активировалось уже открытое окно?
Файл с макросом не работает на некоторых компьютерах, could not load an object
 
Друзья, а существует ли mscal под следующую конфигурацию - вин10 64 бит, эксель 2016 64-бит
Компания закупила лицензионный софт и теперь старые макросы должны переехать на эту конфу
Спасибо
Отказ в редактировании макроса, Изменение структуры макроса
 
Простите пожалуйста что реанимирую старую тему. Начала появляться аналогичная ошибка. Днем ранее ничего подобного не наблюдал. Вчера назначил горячие клавиши одному из макросов. при закрытии ответил "не сохранять". Сегодня не дает изменить. Как-нибудь можно избежать постоянного скрытия-отображения книги?
Подсчет количества вхождений слова в одной ячейке
 
В А1 текст, в В1 что ищем

Формула:
Код
=(ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;B1;"")))/ДЛСТР(B1)
Подсветка ячейки, если в нее добавили значение выше, чем было
 
А я говорю о том что почти любой выбранный способ реализуется программно и программу можно обмануть.
Вверху уже предложили сравнивать значения вручную, точнее собственными силами без использования кода. Вот этот вариант не обманешь.
Еще вариант копировать куда-то в специально отведенное место значения перед изменением и потом формулой сравнивать нынешнее и прошлое значения.

Всех с новым годом, друзья ))
Подсветка ячейки, если в нее добавили значение выше, чем было
 
Ігор Гончаренко, Если человек задастся целью обмануть программу то он это сделает. Пока я не знаю ни одной программы которую нельзя было обмануть или сломать. Нюансы о которых вы говорите можно учитывать бесконечно и всё равно программа не будет идеальной. Можно взять любой код любого человека тут на форуме и предложить несколько вариантов действий пользователя при которых код не будет срабатывать. Теперь что, все это сообщество должно прекратить существование как непродуктивное?
Подсветка ячейки, если в нее добавили значение выше, чем было
 
Спасибо.
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
 
Application.EnableEvents = False
Application.Undo
vOld = Range("A1").Value
Application.Undo
 
    If Range("A1").Value > vOld Then
        Range("A1").Interior.Color = 65535
    Else
        Range("A1").Interior.Pattern = xlNone
    End If
     
Application.EnableEvents = True
End Sub
Подсветка ячейки, если в нее добавили значение выше, чем было
 
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub

vNew = Range("A1").Value
Application.EnableEvents = False
Application.Undo
vOld = Range("A1").Value
Range("A1").Value = vNew

    If vNew > vOld Then
        Range("A1").Interior.Color = 65535
    Else
        Range("A1").Interior.Pattern = xlNone
    End If
    
Application.EnableEvents = True
End Sub

Макрос на создание и удаление строки
 
почитайте про макрорекордер
Макрос для подсчета годовой статистики из имеющейся таблицы с разбивкой по месяцам
 
Код
=СУММЕСЛИМН(J2:J150;C2:C150;C2;E2:E150;E2;H2:H150;H2;I2:I150;I2)

Очень сильно бы помог уникальный список всех кодов автошкол, всех типов экзаменов и всех категорий водительских удостоверений
Изменено: VideoAlex - 01.12.2018 14:22:02
Корректировка формулы поиска по двум условиям
 
небольшой совет по организации данных, вашей таблице нужен еще один столбец с названием контракта для каждого ип
Скрытый текст

Тогда всё здорово организуется и фильтрами и сводными и находить всё можно элементарными формулами
Изменено: VideoAlex - 01.12.2018 08:16:05
Корректировка формулы поиска по двум условиям
 
не прокатит если нет такого магазина в этом контракте. просто возьмет значение из другого (следующего) контракта.
предыдущая формула, кстати, тоже
Изменено: VideoAlex - 01.12.2018 07:46:31
Перенос строчных значений в табличные
 
Подсказываю - лучше не формулой а макросом

вопрос: вот здесь
Бренд   Атяшево Тип Ветчина Нарезка нет Температурный режим# °C 0...+6 Страна Россия   Тип хранения Охлажденка Калорийность (на 100г) 210 Жиры (на 100г) 18 Белки   (на 100г) 8 Углеводы (на 100г) 4.5
заголовки всегда идут в той же последовательности что и в таблице? не может ли быть, к примеру, такого,  что в начале указан температурный режим, а потом тип продукта?
Изменено: VideoAlex - 30.10.2018 05:55:29
Копирование из одной книги в другую со сдвигом (offset), VBA поиск
 
Цитата
scr написал:
он мне скопирует "Костя" и вставит в 1 книгу в А1
А куда надо?
Гиперссылка с равно увеличивающимся интервалом
 
Код
=ГИПЕРССЫЛКА(СЦЕПИТЬ("[Учет\Заявки.xlsx]Лист1!A";СТРОКА()*20);">>")
Удаление повторяющихся строк в зависимости от одного столбца
 
В вашем примере ничего ни откуда не подтягивается.

вот пожалуйста - как только вы введете что-то в столбец В что уже там есть удалится вся строка. поместить в модуль листа
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Columns(2)) Is Nothing Then
Application.EnableEvents = False
    For i = 1 To UsedRange.Rows.Count
    For j = UsedRange.Rows.Count To i + 1 Step -1
    If Cells(j, 2).Value = Cells(i, 2).Value Then Rows(j).Delete
    Next j
    Next i
Application.EnableEvents = True
End If
End Sub
Удаление всех строк листа кроме первой строки
 
а этот?
Код
Rows("2:" & ActiveSheet.UsedRange.Rows.Count + 2).Delete
Изменено: VideoAlex - 19.08.2018 13:34:26
Сохранять данные, ранее внесенные формулой
 
макросом то можно, но непонятно где решать эту задачу
Сохранять данные, ранее внесенные формулой
 
Во первых, нужен файл пример с этим самым впр, где будет показано как сейчас, и будет показано как надо.

во-вторых, перед закрытием, или просто периодически, сохраняйте ранее введенные впр как значения. (если я конечно правильно вас понял)
Удаление повторяющихся строк в зависимости от одного столбца
 
Если я ввел в столбце В значение которое уже там есть, то что должно произойти?
1. удалится та строчка которая была ранее
2. удалится та где я ввел
3. появится предупреждение
Возможно ли сделать выпадающий список для замены в тексте
 
коллекции и словари - достаточно глубоко? всё потому что те кто должен быть компетентен в этом вопросе на самом деле таковыми не являются. Приезжает "програмист" настраивать систему диспетчеризации и просто делает всё согласно каком-то шаблону. на просьбу сделать чуть-чуть не так - изменить в отчете сводную таблицу на обычную - может только развести руками. соответственно теперь придется изучать и базы данных (запросы из вба в базу)
но на самом деле эти и любые другие знания поднимают мою ценность как специалиста, поэтому я не жалуюсь :) извините за оффтоп
Возможно ли сделать выпадающий список для замены в тексте
 
Я должен тихо-мирно добывать уран, но сижу и изучаю эксель.
UserForm1.show останавливает выполнение процедуры
 
Да, спасибо, я на активацию повесил
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 22 След.
Наверх