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

Страницы: 1 2 След.
Макрос при включении флажка с проверкой условий
 
#
03.06.2015 14:51:46
Михаил Лебедев, Слэн, спасибо, все работает:) буду разбираться.
 
Перейти    
Макрос при включении флажка с проверкой условий
 
#
03.06.2015 14:18:45
Добрый день! Помогите, пожалуйста, доработать макрос. Суть такая: при включении флажка нужно присвоить ячейке значение 1, при отключении флажка необходимо проверить значение в ячейке с датой - если дата в ячейке дальше сегодняшней, то ячейке D5 присвоить -1, в противном случае 0.
То что смогла сделать:
Код
Private Sub CheckBox2_Click()
If CheckBox2.Value = True Then
Dim smallrng As Range
    For Each smallrng In [D5]
    smallrng.Value = 1
Next smallrng
Else
    If Range("E3").Value > today Then Range("d5").Value = -1
    Else
    Range("d5").Value = 0
    End If
    Next
End If
End Sub

Файл прилагаю
Изменено: Vika_22 - 03.06.2015 14:19:35
 
Перейти    
расчёте суммы к существующей формуле, Доработка мыльного калькулятора
 
#
25.05.2015 14:59:23
Beeovit, только цены сами вбейте на листе "Инструкция"
Изменено: Vika_22 - 25.05.2015 15:31:00
 
Перейти    
Копирование данных из одного файла в другой
 
#
22.05.2015 13:17:35
Lyuker,  пожалуйста. Рада, что смогла помочь:)
 
Перейти    
Выборка и замена значений с дополнительным параметром., Не работает формула
 
#
22.05.2015 12:06:15
505tae,
вместо
Код
=ЕСЛИ(D3=0;"=ВПР(C3;Лист3!$A$1:$G$4;5;1)";"=ВПР(D3;Лист3!$A$1:$G$4;5;1)")

нужно
Код
=ЕСЛИ(D3=0;ВПР(C3;Лист3!$A$1:$G$4;5;1);ВПР(D3;Лист3!$A$1:$G$4;5;1))
 
Перейти    
Копирование данных из одного файла в другой
 
#
22.05.2015 08:31:04
Lyuker,  а можно файл с примером, где не получается. Сейчас попробовала поменять форматы пку - у меня все работает.
Вопрос: а зачем $ убирать? в Вашем примере диапазон в пять строк, поэтому и $A$1:$I$5, соответственно для диапазона в 100 строк будет $A$1:$I$100. А если у Вас значение пку в первой таблице соответствует 30-му значению во второй таблице, а диапазон поиска $A1:$A5, тогда действительно, формула будет не правильно считать.

Если, конечно, есть вероятность, что в файле 1 и файле 2 какие-то значения пку будут в текстовом формате, проще заменять их числовыми с помощью бинарного отрицания, формула (напоминаю: формула массива через Ctrl+Shift+Enter) будет такая:
Код
{=ЕСЛИ(ЕСЛИОШИБКА(ИНДЕКС(ФАЙЛ1!$A$1:$I$5;ПОИСКПОЗ(--ФАЙЛ2!D2;--ФАЙЛ1!$A$1:$A$5;0););1)=1;1;"")}
Изменено: Vika_22 - 22.05.2015 09:55:31
 
Перейти    
Преобразование формул в выбранном диапазоне на нескольких листах, доработать макрос
 
#
22.05.2015 08:13:53
Михаил Лебедев, спасибо! Последний вариант интересный и короткий)
 
Перейти    
Преобразование формул в выбранном диапазоне на нескольких листах, доработать макрос
 
#
21.05.2015 15:29:36
Михаил Лебедев, LVL, большое спасибо!

Только в макросе от Михаил Лебедев, в строчке скобочку забыли после "............."Лист3)"
Код
Sheets(Array("Лист1", "Лист2", "Лист3")).Select
 
Перейти    
Копирование данных из одного файла в другой
 
#
21.05.2015 15:05:31
На основании файла Grr попробовала через формулу ИНДЕКС+ПОИСКПОЗ
Изменено: Vika_22 - 21.05.2015 15:06:41
 
Перейти    
Преобразование формул в выбранном диапазоне на нескольких листах, доработать макрос
 
#
21.05.2015 14:27:27
Пытливый,
1. Да, диапазоны такие же
2. Название листов не меняется
 
Перейти    
Преобразование формул в выбранном диапазоне на нескольких листах, доработать макрос
 
#
21.05.2015 13:51:40
Добрый день!
Нашла макрос преобразования формул в выделенном диапазоне на текущем листе. Помогите, пожалуйста, доработать макрос так, чтобы при выделении диапазона, где нужно заменить формулы в значения, результат распространялся на определенные листы (Лист1, Лист2, Лист3)
Код
Sub Formulas_To_Values_Selection()
'преобразование формул в значения в выделенном диапазоне(ах)
    Dim smallrng As Range
    For Each smallrng In Selection.Areas
        smallrng.Value = smallrng.Value
    Next smallrng
End Sub
 
Перейти    
Выборка текста из строки, нужна формула
 
#
21.05.2015 09:06:05
На ум пока пришло только это:
{=ПСТР(A1;1;ПОИСКПОЗ(ИСТИНА;ЕЧИСЛО(ПСТР(A1;СТРОКА(ДВССЫЛ("1:"&ДЛСТР(A1)));1)*1);0)-1)}
Изменено: Vika_22 - 21.05.2015 10:03:07
 
Перейти    
Подсчитать количество уникальных значений по критериям
 
#
07.09.2014 20:57:41
dude,vikttur, спасибо большое!
 
 
Перейти    
Подсчитать количество уникальных значений по критериям
 
#
06.09.2014 21:12:04
Alexander88, спасибо! буду разбираться.
P.S. удалить дубликаты может и проще, но для общей задачи это немного не подходит
 
Перейти    
Подсчитать количество уникальных значений по критериям
 
#
06.09.2014 18:30:16
Доброго времени суток! Помогите, пожалуйста, доработать формулу. При подсчете количества уникальных значений я использовала следующую формулу:=СУММ(ЕСЛИ(ЧАСТОТА(ПОИСКПОЗ(B2:B8&C2:C8;B2:B8&C2:C8;0);ПОИСКПОЗ(B2:B8&C2:C8;B2:B8&C2:C8;0))>0;1)), но нужно еще добавить критерий, чтобы она считала количество уникальных значений по шифру. Например: для шифра ЭЛ-3 темы, для НИА -1.
 
Перейти    
макрос с ячейками разного шрифта и цвета
 
#
31.08.2014 19:22:32
Мотя, я так и сделала! Спасибо!
 
Перейти    
макрос с ячейками разного шрифта и цвета
 
#
31.08.2014 17:06:26
Мотя, "идея" состоит в том, чтобы с помощью макроса создать нижний колонтитул из таблицы с четырьмя строками и двумя столбцами, где каждая ячейка имеет свой шрифт, размер и цвет значения. Эта таблица находится в файле в начале поста. Буду Вам очень признательна, если Вы дадите мне советы по созданию этого макроса
 
Перейти    
макрос с ячейками разного шрифта и цвета
 
#
31.08.2014 15:58:54
RAN, а как можно добавить больше условий?
 
Перейти    
макрос с ячейками разного шрифта и цвета
 
#
31.08.2014 14:59:35
начала прописывать для каждой ячейки свой шрифт, размер и цвет, и на D24 выдает ошибку 1004.
Код
LeftFooter = "&""Wingdings 2,полужирный""&24&K008000" & Range("c23" ) .Text & "&""Times New Roman,полужирный""&8&K000000" & Range("d23" ) .Text & Chr(10) & "&""Times New Roman,полужирный""&24&KFF8C00" & Range("c24" ) .Text & "&""Times New Roman,полужирный""&8&K000000" & Range("d24" ).Text & Chr(10) & Range("c25" ) .Text & Range("d25" ) .Text & Chr(10) & Range("c26" ) .Text & Range("d26" ) .Text
Что я делаю не так?
Не оформляете код. Кнопка [МОДЕРАТОР]
Изменено: Vika_22 - 31.08.2014 15:18:47
 
Перейти    
макрос с ячейками разного шрифта и цвета
 
#
31.08.2014 14:30:46
kalbasiatka,The_Prist, спасибо!
 
Перейти    
макрос с ячейками разного шрифта и цвета
 
#
31.08.2014 09:21:17
kalbasiatka, не получается:(  в строчке LeftFooter что-то должно поменяться?
 
Перейти    
макрос с ячейками разного шрифта и цвета
 
#
30.08.2014 22:00:49
Доброго времени суток! Помогите пожалуйста с макросом! Имеется набор ячеек A1:B4 с разным шрифтом и цветом, необходимо с помощью макроса прописать, что для ячейки A1 шрифт Wingdings 2, цвет зеленый, для A2-TimesNewRoman, желтый, для A3-Wingdings 2, цвет красный, для всех остальных ячеек TimesNewRoman, черный
Я пыталась пока прописать шрифты, но безрезультатно
Код
.LeftFooter = "&""Wingdings 2,полужирный""&24 " & Range("c23").Text & "&""TimesNewRoman,полужирный""&8 " & Range("d23").Text & Chr(10) & "&""TimesNewRoman,полужирный""&8 "  
& Range("c24").Text & Range("d24").Text & Chr(10) & Range("d25").Text & Chr(10) & Range("c26").Text & Range("d26").Text
 
Перейти    
макрос вставки в колонтитул значков из условного форматирования
 
#
30.08.2014 17:30:55
gling, спасибо! нашла! буду разбираться
 
Перейти    
макрос вставки в колонтитул значков из условного форматирования
 
#
30.08.2014 11:42:05
Уважаемые эксперты! Прошу Вашей помощи!
Задача состоит в том, чтобы в нижнем колонтитуле вывести на печать значки, которые использовались в условном форматировании, и пояснение к ним. Так как с макросами не дружу, покопалась на форуме и нашла макрос добавления строк в колонтитул, а вот как прописать в макросе эти значки, ума не приложу:( заранее спасибо!
 
Перейти    
Условное форматирование набором значков с условиями
 
#
26.08.2014 20:49:45
ikki, спасибо за помощь!
 
Перейти    
Условное форматирование набором значков с условиями
 
#
26.08.2014 20:30:25
Столкнулась с проблемой написания формулы для условного форматирования набором значков, а именно необходимо отформатировать столбец ожидаемой выручки при условии, что если выручка ожидаемая превышает контрактную, то ставится зеленая стрелочка вверх рядом со значением ожидаемой выручки, если ожидаемая выручка меньше контрактной, но не более, чем на 10 %, то желтая стрелочка, а если более 10%, то красная. Увидела, что можно при условном форматировании значками использовать формулу, но никак не могу понять, как туда эти условия прописать?
 
Перейти    
Отформатировать цвет повторяющихся значений в ячейках в зависимости от цветов заливки в "умной" таблице
 
#
22.08.2014 22:20:36
ikki, спасибо за подсказку)
 
Перейти    
Отформатировать цвет повторяющихся значений в ячейках в зависимости от цветов заливки в "умной" таблице
 
#
22.08.2014 21:57:16
ikki, да, то, что нужно было! спасибо! я не знала, как в одном правиле прописать и выделение определенным цветом ячеек 0--------0, и чередование строк) еще раз спасибо, очень мне помогли!
 
Перейти    
Отформатировать цвет повторяющихся значений в ячейках в зависимости от цветов заливки в "умной" таблице
 
#
22.08.2014 21:48:31
Мотя,да, таблица всегда будет со списком и сцепленными значениями
 
Перейти    
Отформатировать цвет повторяющихся значений в ячейках в зависимости от цветов заливки в "умной" таблице
 
#
22.08.2014 21:43:47
ikki, да, только где 0--------0
просто помимо этих правил, еще будет накладываться правило выделения столбца с текущим месяцем, и там тоже нужно прятать эти значения.
 
Перейти    
Страницы: 1 2 След.
Наверх