Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » Kate-Rine
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Макрос. Условное форматирование по текстовым/числовым значениям, заливка ячеек, "если содержит текст" и "если значение больше(меньше)"
 
#
15.10.2015 18:34:59
Добрый день,
Изучила много разных тем, но никак не удается решить задачу. Условное форматирование не подходит, т.к. исходный файл формируется каждый день/неделю и содержит много листов, а текстовых условий как минимум 15. Копировать с предыдущего дня не возможно, т.к. каждый раз объединение ячеек происходит по-разному.

Необходимо: заливать ячейки, которые начинаются с:
Хоккей.*
Футбол.*
и тд.
в файле я использовала код дня каждого вида спорта, но почему-то на 5ом условии макрос перестает работать. да и выглядит очень длинно.
Подскажите, пожалуйста, в чем ошибка?

понравился вот такой код. но он ищет исключительно слово "хоккей", а нужно, чтобы начиналось со слова "Хоккей*"
Код
        For Each n In Rng
            Select Case n
                Case "хоккей"
                    n.Interior.Color = 255
                Case "футбол"
                    n.Interior.Color = 5296274
                Case "баскетбол"
                    n.Interior.Color = 15773696
            End Select
        Next n

а вторая загвоздка: нужно чтобы в столбцах D, G, J начиная с 4ой строки значения проверялись на условия:
<J$3*0.85 - цвет текста красный
>=J$3*1.15 - цвет текста зеленый
к этой части вообще никаких подсказок не нашла.

на листе d13 - идеальное форматирование.

Спасибо  
 
Перейти    
Заливка ячеек по данным из словаря
 
#
13.01.2014 14:34:42
Всем добрый день,
часто нахожу подсказки на данном форуме, за что огромное всем спасибо!

совершенно замучилась делать руками нудную работу, а подсказок по написанию макроса или нужных формул не нашла. в связи с чем и возник вопрос: а возможно ли такое:
например, на листе неделя - расписание программ. лист Dictionary - словарь ( макрос по переводу нашла на данном ресурсе) столбец А - рус название, столбец B - англ, столбец C (для справочной информации) - жанр.
Возможно ли сделать условное форматирование листа неделя, согласно жанру, указанному на листе dictionary?
с написание условного форматирование больше/меньше значения - понятно, а тут совсем не понятно)
если такое возможно, пожалуйста, научите
 
Перейти    
Удаление графических объектов в заданных стобцах
 
#
19.09.2013 17:28:19
Великие гуру excel!
без вашей помощи никак  :oops:  

я изучила данный вопрос тут
взяла код:
Код
Private Sub Draws_In_Selection_Select() ' выделить В ВЫБРАННОМ ДИАПАЗОНЕ все рисунки
Dim oDraw, rSel As Range
Set rSel = ActiveWindow.RangeSelection
For Each oDraw In ActiveSheet.DrawingObjects.ShapeRange
If Not Intersect(Range(oDraw.TopLeftCell, oDraw.BottomRightCell), rSel) Is Nothing Then oDraw.Select (False)
Next
End Sub

попыталась его преобразовать:
Код
Sheets("For schedule" ;) .Select
 'Delete all graphic obects
 Dim oDraw, rSel As Range
[COLOR=#00FF00] Set rSel = Range("S2:Y500" ;) [/COLOR]
 For Each oDraw In ActiveSheet.DrawingObjects.ShapeRange
 If Not Intersect(Range(oDraw.TopLeftCell, oDraw.BottomRightCell), rSel) Is Nothing Then oDraw.Select (False)
 Next
 Selection.Delete

а удаляет все графические объекты, в том числе и мою красивую кнопку запуска макроса, которая располагается в столбцу Q:Q
 
Перейти    
название листа, присвоение листу имени из ячейки и текста
 
#
16.09.2013 15:15:19
Добрый день!
не могу без вас справиться :oops:
в процессе выполения макроса создается лист из шаблона

       Sheets.Add Type:="C:\Microsoft\Шаблоны\list.xltx"
       Sheets("Лист1").Name = Sheets("For schedule").Range("R2").Value

R2 - содержит формулу =НОМНЕДЕЛИ(R1;2)
тут название Листа получается, например, 38, просто число.

Нужно чтобы этот лист  переименовывался в "Week N", где N - значение из R2
т.е. должно получится "Week 38"
 
Перейти    
объединить заполненую ячейку с последующими незаполнеными снизу
 
#
13.09.2013 13:25:40
Добрый день. помогите, пожалуйста.  :oops:
Ни как не получается написать макрос:
есть лист с расписанием, строка 3 - заголовок (не изменяется), столбцы со временем A:A и P:P не изменяются.
Данные меняются от недели к неделе в столбцах(B, D,F,H,J,L,N) - дни недели

Идея такова, чтоб один нажатием макрос объединял заполненную ячейку с пустыми снизу, до следующей заполненной.
но еще 2 загвоздки:
1- утро: часто бывает, что после названия дня недели идут пустые сточки, вот они должны быть просто объединены...
2- весь день всегда заканчивается 99 строкой.. поэтому если заполнена строка 91, то ее надо объединить со сточками до 99.....
приложила файл: лист Week - исходный, лист Result - как в идеале он должен выглядеть
Спасибо  :oops:
 
Перейти    
Страницы: 1
Наверх