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

Страницы: 1 2 След.
Дублирование правил условного форматирования при копировании
 
Jack Famous, благодарю за наводку!
В результате у меня получился рабочий макрос,
но проблема в том, что если на некоторых ячейках уже есть форматирование
(например, ячейки покрашены красным), то при срабатывании макроса это форматирование пропадает.
Существует ли возможность копировать/вставлять только условное форматирование?
Спасибо!

Вот как выглядит получившийся у меня макрос:
Код
Option Explicit

'Def - все переменные в нижеследующих сабах, начинающиеся с соответствующей буквы автоматически становятся заданного типа
DefBool O           '(Boolean) True (-1) or False (0)
DefByte B           '(Byte)  [1 байт] целые положительные от 0 до 255
DefInt I            '% (Integer) [2 байта] целые от -32768 до 32767
DefLng L            '& (Long) [4 байта] целые от -2'147'483'648 до 2'147'483'647
DefSng N            '! (Single) [4 байта] дробные от -3,402'823*10^38 до -1,401'298*10^-45 и от 1,401'298*10^-45 до 3,402'823*10^38
DefDbl E            '# (Double) -1.79769313486231E308 to -4.94065645841247E-324 for negative values; 4.94065645841247E-324 to 1.79769313486232E308 for positive values.
DefDate D           '(Date) [8 байт] дата и/или время
DefStr S            '$ [по 2 байта за символ] (String)
DefCur U            '@ [8 байт] (Currency) -922,337,203,685,477.5808 to 922,337,203,685,477.5807
DefObj J            'Object
DefVar V            'Variant
'DefLngPtr X         'LongPtr  integer on 32-bit systems: Signed 32-bit (4-byte) numbers ranging in value from -2,147,483,648 to 2,147,483,647 on 32-bit systems
'DefLngLng Y         'LongLong integer on 64-bit systems: Signed 64-bit (8-byte) numbers ranging in value from -9,223,372,036,854,775,808 to 9,223,372,036,854,775,807 on 64-bit systems

Sub Борьба_с_дублями_УФ()
Dim o_Экран
Dim L_номер_последней_заполненной_строки, L_якорь, L_строка
Dim i_Столбец
Dim rng_Весь_диапазон As Range, rng_Исходная_Строка As Range, rng_Строка2 As Range, rng_Очищаемый_диапазон As Range
o_Экран = Application.ScreenUpdating                                                'приравнять переменную текущему стаутсу обновления экрана
Лист1.Activate                                                                      'активировать Лист1
If o_Экран = True Then Application.ScreenUpdating = False                           'если обновление экрана включено, то выключить обновление экрана
    With ActiveSheet
        L_строка = ActiveCell.Row: i_Столбец = ActiveCell.Column                    'определить координаты текущей активной ячейки
        L_якорь = ActiveWindow.ScrollRow                                            'определить самую верхнюю видимую строку (на текущем экране)
        L_номер_последней_заполненной_строки = .UsedRange.Cells(Rows.Count, "C").End(xlUp).Row 'определить номер последней строки в столбце C
        Set rng_Исходная_Строка = .Range(Cells(9, "A"), Cells(9, "R"))              'задать исходную (эталонную) строку
        Set rng_Весь_диапазон = .Range(Cells(9, "A"), Cells(L_номер_последней_заполненной_строки, "R")) 'задать весь диапазон
        Set rng_Очищаемый_диапазон = .Range(Cells(10, "A"), Cells(L_номер_последней_заполненной_строки, "R")) 'задать диапазон, на котором может стоять "лишнее" УФ
        rng_Очищаемый_диапазон.FormatConditions.Delete                              'удалить форматы с диапазона, к которому будет применяться УФ (кроме эталонной строки)
        rng_Исходная_Строка.Copy                                                    'копировать форматы из исходной (эталонной) строки
        rng_Весь_диапазон.PasteSpecial Paste:=xlPasteFormats                        'вставить форматы
        Application.CutCopyMode = False                                             'убрать копирование
        ActiveSheet.PageSetup.PrintArea = .Range(Cells(1, 1), Cells(L_номер_последней_заполненной_строки, "R")).Address 'задать область печати
        .Cells(L_строка, i_Столбец).Select                                          'активировать ячейку, которая была активна изначально
        ActiveWindow.ScrollRow = L_якорь                                            'открутить экран по вертикали до первоначального положения
    End With
Application.ScreenUpdating = o_Экран                                                'вернуть первоначачльный статус обновления экрана
End Sub
Wo unrecht zu recht wird ist widerstand pflicht.
Дублирование правил условного форматирования при копировании
 
Здравствуйте!
Часто сталкиваюсь со следующей проблемой:
Создаю правило условного форматирования для ячейки, потом копирую ячейку и правил на листе становится уже два. Сколько раз скопировал - столько и правил. А уж если к одной ячейке применено несколько условных форматирований...
Ну, думаю, вы поняли.

Есть ли возможность как-то побороться с этой бедой?
Возможно ли, чтобы одни и те же правила применялись
ко всему диапазону (в т.ч. несмежному)?

Спасибо!
Wo unrecht zu recht wird ist widerstand pflicht.
Невозможно применить формат ячеек, пока не нажать F2-Enter
 
Спасибо!
Изменено: vikttur - 07.06.2021 11:59:18
Wo unrecht zu recht wird ist widerstand pflicht.
Открывается 2 окна (Excel 2013, 64x) при открытии файла двойным кликом
 
Цитата
Shadow_Hawk написал:
В "C:\Documents and Settings\[...пользователь...]\AppData\Roaming\Microsoft\Excel" находится каталог "XLSTART"...
Благодарю, мне помогло!
Wo unrecht zu recht wird ist widerstand pflicht.
Невозможно применить формат ячеек, пока не нажать F2-Enter
 
Здравствуйте!
Столкнулся с аналогичной проблемой, только с датами (гримасы 1С, я полагаю)
Существует решение в виде макроса?
Пробовал макросом нажимать F2-Enter - глючит
Пробовал делать макросом разбивку по столбцам - выдаёт ошибку.
Пробовал (выставлять общий формат и) прибавлять ноль - выдаёт ошибку.
Всячески пробовал (как предложено выше) менять один символ на другой, в моём случае - точку на точку,
а когда не помогло - точку на процент, а потом обратно - не работает.
Замена помогает только если делать её руками, макросом (replace) - нет.
Выполняю замену - срабатывает, записываю тот же самый код, выполняю - нет.
Что ещё можно сделать?
Спасибо!
Изменено: mo8 - 01.06.2021 16:12:30
Wo unrecht zu recht wird ist widerstand pflicht.
Значения в сводной без вычислений
 
Dark1589, хмм... почему-то получилось только со второго раза,
вначале при попытке выгрузить
получившуюся таблицу с ошибками из PowerQuerry в Excel
написал "Загрузка завершилась ошибкой"
и выгрузил только одну ячейку, в которой написано ТаблПоставки
P.S.:да, и это я в номера посередине чёрточки добавил,
чтобы они как текст обрабатывались
P.P.S.: и ещё я изменил начальные условия,
чтобы они были похожи на пример, который был по ссылке
Wo unrecht zu recht wird ist widerstand pflicht.
Значения в сводной без вычислений
 
Dark1589, спасибо за ссылку!
К сожалению, мне не удалось адаптировать этот пример для решения моей задачи.
Использую способ 1 PowerQuerry (который с видео)
если лень тратить 15 минут, то вот алгоритм
Скрытый текст

1. в примере используется текст, у меня же числа
если номер контейнера это число (даже преобразованное в текст), то на шаге 18 в таблице под List значение Error
2. в примере дубли склеиваются в одну ячейку, а мне нужно чтобы добавлялись строки,
но если я при извелении значений из списка (на шаге 19) выбираю другой вариант (не Извлечь значения..., а Развернуть в новые строки), то на предпоследнем шаге в таблице появляются ошибки.
Как сделать чтобы заработало?
Спасибо!
Wo unrecht zu recht wird ist widerstand pflicht.
Значения в сводной без вычислений
 
Здравствуйте!
Требуется помощь в подготовке сводной:
у меня есть таблица в которой есть столбцы дата, клиент и ещё несколько других.
Я пытаюсь сделать сводную, в которой были бы строчки из дат, столбцы из наименований клиентов,
а все остальные столбцы входили бы внутрь каждого клиента.
Проблема заключается в том, что я не могу сделать так, чтобы в значениях отображались сами значения,
а не их сумма, количество, доля или какие-то другие вычисления.
Мне нужно чтобы в значениях были просто значения, как это сделать?
Спасибо!
Wo unrecht zu recht wird ist widerstand pflicht.
Excel 2003: функции из более новых версий на VBA
 
Здравствуйте!
По ряду причин нужна совместимость файлов с Excel 2003, но в нём нет ряда полезных функций,
как например ЕСЛИОШИБКА, СЛУЧМЕЖДУ, СЧЕТЕСЛИМН и некоторых других.
В то же время, есть возможность написания пользовательских функций на VBA.
Не пытался ли кто-нибудь добавлять эти функции вручную?..
Спасибо!
Wo unrecht zu recht wird ist widerstand pflicht.
Проблема при копировании данных: несоответствие формы и размеров
 
Столкнулся с аналогичной проблемой.
Копирую диапазон, ставлю курсор в соседнюю ячейку, потом Нажимаю Главная/Вставить/Транспонировать и возникает сообщение "Данные не могут быть выставлены из-за несоответствия формы и размеров области копирования и области вставки..." ну и далее по тексту.
Объединённых ячеек и фильтров нет
MS Office 2010, режим ограниченной функциональности
Дело оказалось в том, что мой диапазон был больше 300 ячеек в высоту, а максимальная ширина таблицы для файлов excel 1997-2003 всего лишь 255 ячеек.
Изменено: mo8 - 15.06.2018 11:07:03
Wo unrecht zu recht wird ist widerstand pflicht.
Несколько взаимосвязанных выпадающих списков, фильтрующих друг друга
 
Jack Famous, списки на которые вы ссылаетесь позволяют выбрать [как бы слева направо] сначала первый уровень,
потом второй (который фильтруется по первому), потом третий, фильтруется по второму (в моём случае: выбираю Евразию, тогда могу выбрать Пакистан, а в Пакистане уже могу выбрать Исламабад).
А я пытаюсь сделать, чтобы можно было выбирать и наоборот [справа налево], я сначала выбираю третий уровень Исламабад,
и тогда могу на втором уровне выбрать только Пакистан, а на первом только Евразию.
Извините, если плохо объяснил
Wo unrecht zu recht wird ist widerstand pflicht.
Несколько взаимосвязанных выпадающих списков, фильтрующих друг друга
 
Wo unrecht zu recht wird ist widerstand pflicht.
Несколько взаимосвязанных выпадающих списков, фильтрующих друг друга
 
a.i.mershik, да.
Скрытый текст
Wo unrecht zu recht wird ist widerstand pflicht.
Несколько взаимосвязанных выпадающих списков, фильтрующих друг друга
 
Здравствуйте!
У меня есть таблица вида №,товар, город и тип взаимодействия (экспорт, импорт и т.д.). [Лист1]
При этом город имеет доп. параметры: страну и континент (в некоторых странах по несколько городов).
Хочу сделать выпадающие списки [Лист2!N3:N7], где можно было бы задать например
город Исламабад и можно было бы выбрать континент только Евразия, а страна только Пакистан
и наоборот выбрал Пакистан и город чтобы был только Исламабад или Карачи (чтобы не было например Братиславы)
и аналогично с континентом.
Ещё я хочу выбрать город и товар, а чтобы в типе сразу было например импорт (значение на пересечении города и товара).
Я читал про связанные списки и понял, как сделать чтобы по одному списку фильтровался другой,
но я не понял, как сделать чтобы при этом и по второму фильтровался первый, а, кроме того, у меня этих взаимосвязанных списков получилось много.
Заранее благодарю за помощь!
Wo unrecht zu recht wird ist widerstand pflicht.
Объединение разного числа ячеек с переходом строки
 
Спасибо!
К сожалению, макрос отказался работать когда я перенёс в файл свои данные, но я соединил вручную через &СИМВОЛ(10)&
Ещё у меня были области, где надо было объединить большое количество строчек (от 40 до 70),
там пришлось руками их копировать в блокнот и вставлять в ячейку. К счастью, их было не так много.
Изменено: mo8 - 17.08.2017 08:51:19 (дополнение)
Wo unrecht zu recht wird ist widerstand pflicht.
Объединение разного числа ячеек с переходом строки
 
Юрий М, извиняюсь - исправил.
Wo unrecht zu recht wird ist widerstand pflicht.
Объединение разного числа ячеек с переходом строки
 
Доброго времени суток!
Требуется формула, которая объединяла бы следующие за ней ячейки (разное количество)
и желательно, чтобы текст в ячейке разделялся бы Alt+Enter'ом.
Спасибо!
Изменено: mo8 - 11.08.2017 13:10:13
Wo unrecht zu recht wird ist widerstand pflicht.
Подбор параметров из нескольких переменных
 
Доброго времени суток!

Возникла следующая проблема.
Существует прайс по которому оформляется заказ. Количество каждого товара варьируется от 0 до максимального значения, которое есть на складе.
В итоге нужно выйти на фиксированную сумму заказа. Если решений несколько, то приоритетным является покупка более дорогого товара. Если решения не существует, то нужно решение с минимальной разницей между суммой заказа и нормативом (запланированной суммой), но превышать норматив нельзя.

Думал воспользоваться подбором параметров, но там можно варьировать только один параметр, а у меня несколько.
Буду благодарен за подсказку.
Изменено: mo8 - 30.07.2017 00:51:13
Wo unrecht zu recht wird ist widerstand pflicht.
Как избавиться от #Н/Д, если известно, что нет данных
 
Я обычно пишу что-нибудь типа если значение, которое мне мешает равно нулю, то просто писать ноль, а если нет, то уже нормально считать формулу.
Wo unrecht zu recht wird ist widerstand pflicht.
не находится значение
 
Спасибо. А есть где-нибудь описание/обсуждение на русском?
Изменено: mo8 - 05.07.2017 08:36:34
Wo unrecht zu recht wird ist widerstand pflicht.
не находится значение
 
Первая же строчка, ищем значение стоимости "14785,33"
1) находится поиском через (Ctrl+F)
2) выбирается фильтром (колонка цены) из списка
3) НЕ находится в фильтре (колонка цены): числовые фильтры / равно
или я чего-то не понимаю?
Wo unrecht zu recht wird ist widerstand pflicht.
не находится значение
 
В строке формул пробела нет.
Wo unrecht zu recht wird ist widerstand pflicht.
не находится значение
 
Здравствуйте!
Есть большой список зап.частей и материалов на 9-10 тыс. наименований с ценами
всё это в формате книги Excel 1997-2003 (.xls)
Ищу определённую позицию по её стоимости:
1) поиском - находится
2) фильтрацией (выбор из списка) - находится
3) фильтрацией (числовые фильтры - равно) не находится!
искомое значение имеет числовой формат с разделителями, 2 знака после запятой;
пустых ячеек в первом столбце и в столбце цены (по которому фильтрую) до нужной строки нет
Excel 2010
как такое может быть?
Спасибо!
Wo unrecht zu recht wird ist widerstand pflicht.
Поиск элементов с одинаковыми свойствами
 
Valera2, спасибо за совет. Пытаюсь разобраться, но, судя по первым впечатлениям,
мне потребуется время

PerfectVam, не понимаю: когда меняю что-то в ячейках N5:Q5,
то ячейки R5:R44 выдают ошибку #ИМЯ?,
аналогично ячейка N10
и O10:O49
Изменено: mo8 - 24.04.2017 08:42:36
Wo unrecht zu recht wird ist widerstand pflicht.
Ошибочная замена дат на номера пунктов. Как исправить?
 
Воспользовался советом Lefevr из сообщения #8, предварительно отфильтровав значения больше 31,
но формула, предложенная _Igor_61 из сообщения #10, ещё лучше
Спасибо всем за помощь!
Вопрос решён.
P.S. Извиняюсь, что не всегда могу оперативно реагировать на поступающие предложения
Изменено: mo8 - 20.04.2017 09:22:12
Wo unrecht zu recht wird ist widerstand pflicht.
Ошибочная замена дат на номера пунктов. Как исправить?
 
Lefevr, спасибо!
Wo unrecht zu recht wird ist widerstand pflicht.
Ошибочная замена дат на номера пунктов. Как исправить?
 
Lefevr, намёк понял)
почему-то файл 2 раза добавился(
Изменено: mo8 - 19.04.2017 10:20:23
Wo unrecht zu recht wird ist widerstand pflicht.
Ошибочная замена дат на номера пунктов. Как исправить?
 
Сергей, у меня есть - это не в том смысле, что я разработчик  

Пытливый, хотелось бы подробностей...
Wo unrecht zu recht wird ist widerstand pflicht.
Ошибочная замена дат на номера пунктов. Как исправить?
 
Здравствуйте!
У меня есть программа, которая выдаёт результат своей работы в таблицу Excel.
Но работает она криво и первый столбик (номера пунктов) преобразуется в даты:
01.янв вместо 1.1
01.фев вместо 1.2
и т.д. вплоть до
31.янв вместо 31.1
Существует ли способ привести эти ячейки к первоначальному виду?
Wo unrecht zu recht wird ist widerstand pflicht.
Поиск элементов с одинаковыми свойствами
 
Valera2, мне надо, но не настолько  :)
я просто пытаюсь для начала понять, как это делается
в "Книге2" я поменял города (например Жуков совпадает с Алексеевым)
1. Казань, Новосибирск, Ульяновск, Хабаровск - Алексеев, Жуков
2. 4 - Алексеев/Жуков, Крылов/Кудрявцев

Владимир, спасибо, дома попробую
Wo unrecht zu recht wird ist widerstand pflicht.
Страницы: 1 2 След.
Наверх