Поиск  Пользователи  Правила 
Закрыть
Логин:
Пароль:
Забыли свой пароль?
Регистрация
Войти
 
Выбрать дату в календареВыбрать дату в календаре

Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 1917 След.
Изменить на листе цвет заливки
 
Цитата
sashgera написал:
хотелось бы перед заменой заливки, посмотреть в каком месте листа будет происходить замена:
А смысл? Вы же при помощи обычного (по умолчанию) MsgBox не сможете отменить удаление заливки.  Если нужно убрать эту заливку со всех ячеек, то зачем клацать по кнопке 152 раза?  Если же нужно ПРОПУСТИТЬ некоторые ячейки, то в таком случае нужно дать пользователю возможность выбора. Код может быть таким:
Код
Sub НайтиБелыйЦветЗаливки()
Dim rng As Range
    For Each rng In ActiveSheet.UsedRange.Cells
        If rng.Interior.Color = 15921906 Then
            If MsgBox("Искомая заливка найдена в ячейке " & rng.Address(0, 0) & " Удалить заливку?", vbYesNo + 32, "Ваш выбор...") = vbYes Then
                rng.Interior.ColorIndex = xlNone
            End If
        End If
    Next
End Sub
Изменить на листе цвет заливки
 
15921906
Изменить на листе цвет заливки
 
Тогда активируйте ячейку с этой заливкой и в окне Immediate выполните строку: ?activecell.Interior.Color

Скопируйте число и вставьте его вместо 16777215 в этот код:
Код
Sub НайтиБелыйЦветЗаливки()
Dim rng As Range
    For Each rng In ActiveSheet.UsedRange.Cells
        If rng.Interior.Color = 16777215 Then rng.Interior.ColorIndex = xlNone
    Next
End Su
Изменить на листе цвет заливки
 
Попробуйте так:
Код
Sub НайтиБелыйЦветЗаливки()
Dim rng As Range
    For Each rng In ActiveSheet.UsedRange.Cells
        If rng.Interior.ColorIndex = 2 Then rng.Interior.ColorIndex = xlNone
    Next
End Sub
Запрет на изменение границ ячеек
 
Цитата
Sof07 написал:
В моем случае границы ячеек разные, где то жирные
И Вы об этом СРАЗУ упомянули? Или я должен был сам догадаться?
Попробуйте новый вариант. Код с комментариями.
Найти наименьшее количество затраченных материалов, для разработки 1 единицы продукции
 
Даниил Матвеев, предложите новое название, из которого будет понятна ЗАДАЧА - модераторы поменяют.
Как совместить данные четырех столбцов
 
Для 5 тыс. лучше использовать другой вариант.  
О сравнении текста и числа в VBA
 
kefirko, предложите новое название темы, из которого будет понятна задача - модераторы поменяют.
И прекратите писать через строку.
Как совместить данные четырех столбцов
 
См. вариант. Если строк ОЧЕНЬ много, то можно будет ускорить.
А что будете делать, если есть полные однофамильцы?
Как совместить данные четырех столбцов
 
Результат нужно получить "на месте" - в имеющемся диапазлне в столбцах А:В или на другом листе?
Попробуйте ответить без цитаты.
Как совместить данные четырех столбцов
 
Решение макросом Устроит?
Как совместить данные четырех столбцов
 
Цитата
Екатерина написал:
Дано: .... Нужно,...
Ни приветствия, ни просьбы о помощи... Прямо указание начальника подчинённому.
Как обновить макрос, чтобы работал на 64-bit
 
Я почему спрашиваю -  у меня некий микст: ОС 64, а Офис 32. И макрос работает.
Как обновить макрос, чтобы работал на 64-bit
 
А разговор о 64 - это про систему или про Офис?
Power Query. Ошибка при создании запроса: "...Не удалось создать защищенный канал..."
 
Цитата
Ranker Dark написал:
И к чему это?
Это к тому, что Вы сами должны информировать прямыми ссылками, где ещё разместили свой вопрос.
Изображение в подписи макроса вставляется сверху сообщения, а не с низу.
 
SanyaMan90, вернитесь в своё сообщение и приведите его в порядок: что за безобразная цитата? Зачем там ВООБЩЕ нужна цитата?
Запрет на изменение границ ячеек
 
Теперь есть ))
См. файл. Контролируется диапазон в столбце В.
Как установить "видимость" значения ячейки в зависимости от того или иного условия?
 
Цитата
matvei написал:
установить "видимость" ячейки
Управлять Видимостью (скрытие/отображение) - а именно это вытекает из названия темы - одной ячейки невозможно: можно скрывать/отображать целиком строку или столбец.
Как свести значения 3-х столбцов в один
 
На всякий случай ловите вариант с макросом: вдруг Ваш коллега скосит ночью трынь-траву или выпьет храброй воды.
Как свести значения 3-х столбцов в один
 
А я не работаю с формулами ))
===
Ещё один трусишка, который боится макросов :)
Как свести значения 3-х столбцов в один
 
Наделять ничем Вас не надо: свои сообщения можно редактировать. В том числе удалять файлы. Удалите ненужные.
Решение макросом устроит?
Как свести значения 3-х столбцов в один
 
Цитата
Валерий написал:
нужно брать весь диапазон
Понятно, что диапазон, но зачем (ЗАЧЕМ) показывали примеры в ПУСТЫМИ столбцами?
И зачем оставлять на форуме столько неправильных файлов с примером?  
Как свести значения 3-х столбцов в один
 
Да я понял задачу, но пример такой, что появляются вопросы: в столбце А есть  ячейки с данными. В столбцах В и С вообще данных нет. Пропускать такие столбцы?

Цитата
Валерий написал:
в столбик E (по вертикали)
А это Вы верно подметили - по вертикали. Не бывает столбцов горизонтали )
Как свести значения 3-х столбцов в один
 
Валерий, в примерах столбцы В м С пустые - что собирать?
Как изменить текст в ячейке при условии что в другой ячейке есть данные
 
А причём тут заливка? Вы ведь просили менять текст. Вот вариант: =ЕСЛИ(B2="";"Not paid";"Paid")
Как изменить текст в ячейке при условии что в другой ячейке есть данные
 
А обычная ЕСЛИ() не справляется?
Назначение фигурам - таблиц-диапазонов на вылетающей форме
 
Вариант: выбранную в ЛистБокс строку копировать  в укромное место на листе, рисовать границы и уже с листа копировать диапазон.
Но всё это уже вопросы для следующей темы: привязать к фигуре таблицу, получить табличку на форме Вы уже умеете.
Назначение фигурам - таблиц-диапазонов на вылетающей форме
 
А я писал об этом в #33. Вы ответили?
Назначение фигурам - таблиц-диапазонов на вылетающей форме
 
См. черновик. Все таблицы на активном листе,  
Назначение фигурам - таблиц-диапазонов на вылетающей форме
 
Судя по скрину Вы хотите ЛистБокс на форме. А пробовали из него копировать? Создайте его пока на листе, а не на форме и посмотрите - подойдёт ли он для Ваших целей?
Страницы: 1 2 3 4 5 6 7 8 9 10 11 ... 1917 След.
Наверх