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

Страницы: 1 2 След.
Объединение двух страниц по условию
 
#
14.10.2017 12:29:02
Здравствуйте. Как или чем можно реализовать такой процесс?
Есть две таблицы , нужно объединить как показано в документе.  
 
Перейти    
Замена текста макросом
 
#
08.10.2017 10:52:16
Здравствуйте. Помогите пожалуйста.
Нужно реализовать макросом авто-замену слова "Испания"  на "Исп" ,   "Германия" на "Герм"
Вывести кнопку "Замена" , ничего не вводить , просто чтоб при нажатии заменялись все слова.
 
Перейти    
Логическое выражение ( Истина или Ложь)
 
#
22.09.2017 21:56:39
Здравствуйте! Помогите пожалуйста.
Есть три столбца с числами , было создано окно условий(розовым) , туда мы пишем любое желаемое число,
если в столбце оно присутствует , в столбце N пишется - ИСТИНА, если нет - Ложь.

Можно ли как - то реализовать, чтоб не только число писать , а например условие >1,3 если число больше  - Истина
или нужен диапазон от 1,1 до 2, если попадает пишет - истина.

ниже пример
 
Перейти    
Подсчет закрашенных ячеек
 
#
20.09.2017 22:36:44
Влад, искренне благодарен! Низкий поклон. Уже и не думал, что кто-то поможет. Спасибо, все отлично)
 
Перейти    
Подсчет закрашенных ячеек
 
#
20.09.2017 20:34:26
Добрый вечер! Подскажите пожалуйста.
Есть пользовательская формула. Она считает кол-во закрашенных ячеек при одном условии.
Мне нужно посчитать кол-во закраш. ячеек в диапазоне, имеются два столбика ОТ и ДО, формула считает только при одном условии , например: ОТ
НУЖНО добавить второе условие, чтоб считало еще и  ДО
Код
Option Explicit
'Подсчет количества ячеек по цвету заливки
Function СЧЕТЯЧЦВЕТ(Diapazon As Range, Kriterij As Range, Kriterij2 As Range) As Variant

Dim cc As Range

СЧЕТЯЧЦВЕТ = 0

If Kriterij.Count = 1 And Kriterij2.Count = 1 Then
    For Each cc In Diapazon
        If cc.Interior.ColorIndex = Kriterij.Interior.ColorIndex And _
           cc.EntireRow.Hidden = False And _
           cc.Value2 = Kriterij2.Value2 Then
            СЧЕТЯЧЦВЕТ = СЧЕТЯЧЦВЕТ + 1
        End If
    Next
Else
    СЧЕТЯЧЦВЕТ = "#N/A"
End If

End Function
Изменено: Serzhio8 - 20.09.2017 20:50:46
 
Перейти    
Подсчёт чисел в столбце, при условии диапазона
 
#
20.09.2017 00:27:34
vikttur, Спасибо огромное! Все получилось.
 
Перейти    
Подсчёт чисел в столбце, при условии диапазона
 
#
19.09.2017 00:50:18
Здравствуйте! Помогите пожалуйста. Как это можно реализовать?

Есть столбец А в котором числа, есть диапазоны от 1-1,1 ; 1,1 -1,2 и тд в примере показано.
Нужно подсчитать сколько чисел попадает под этот диапазон.

ниже пример
Изменено: Serzhio8 - 19.09.2017 00:50:50
 
Перейти    
Как взять данные с разных листов
 
#
16.09.2017 00:08:20
kuklp,  я понял. Не знал про эту функцию, спасибо  
 
Перейти    
Как взять данные с разных листов
 
#
15.09.2017 23:56:03
Здравствуйте. Подскажите пожалуйста.
Есть много разных листов в файле, и колонка А где выведены названия этих листов. В колонке В, С , D выводятся данные с этих листов с одних и тех же ячеек R3, S3, T3

Можно ли как-то протянуть формулой чтоб название бралось из колонки А (как ссылка на лист) , чтоб каждый раз не заходить и не кликать на нужную ячейку
 
Перейти    
Настройка фильтра по нескольким столбцам
 
#
03.09.2017 10:48:10
Здравствуйте! Помогите пожалуйста. Как можно это реализовать?

Есть три стоблца с процентами, нужно в первом выбрать 1%, во втором 2%, в третьем 5%
При вставке фильтра и настройке второго столбца после первого он выбирает уже из отсеянных данных первого столбца
2% отскребает от 1% с первого стоблца , также и 5% уже соответственно с отсеянного 1% и 2%.

НУЖНО,  чтоб вообщем было, как комбинация 1% 2% 5% данных останется в разы больше что и нужно , а не 2% от 1%, а 5% от 1 и 2 где выборка сокращается.
 
Перейти    
[ Закрыто] Доделать(переделать) пользовательскую формулу
 
#
01.09.2017 21:35:00
Здравствуйте! Помогите пожалуйста.
Были написаны две пользовательские формулы( почти одинаковые )
Я добавил третий критерий, оно перестало считать.
Нужно добавить(переделать)третий критерий в формуле , чтоб оно считало с определенным процентом взятом из столбца В
Скрин ниже
Код
Public Function SumByColor(DataRange As Range, ColorSample As Range, Kriterij8 As Range) As Double
    Dim Sum As Double
    Dim I As Long
     Application.Volatile True
I = Range("F3").Value
If ColorSample.Count = 1 And Kriterij8.Count = 1 Then
     For Each Cell In DataRange
         If Cell.Interior.Color = ColorSample.Interior.Color And _
         Cell.EntireRow.Hidden = False And _
         cc.Offset(0, 2 - cc.Column).Value2 = Kriterij8.Value2 Then
             Sum = Sum + (Cell.Value * I - I)
       
         End If
     Next Cell
     SumByColor = Sum
     End If
     
 End Function

--------------------------------------------------------------------------------------------------------------------------------------------------------------

Public Function SumByColorNo(DataRange As Range, ColorSample As Range, Kriterij8 As Range) As Double
    Dim Summ As Double
    Dim I As Long
     Application.Volatile True
I = Range("F3").Value
If ColorSample.Count = 1 And Kriterij8.Count = 1 Then
     For Each Cell In DataRange
         If Cell.Interior.Color = ColorSample.Interior.Color And _
         Cell.EntireRow.Hidden = False And _
         cc.Offset(0, 5 - cc.Column).Value2 = Kriterij8.Value2 Then
             Summ = Summ + (Cell.Value * 0 - I)
             
         End If
     Next Cell
     SumByColorNo = Summ
     End If
     
 End Function
 
Перейти    
Подсчитать закрашенные ячейки в столбцах
 
#
01.09.2017 14:04:35
PerfectVam, СПАСИБО ОГРОМНОЕ! Все отлично как нужно. Я уже и не думал , что кто-то сможет помочь)
 
Перейти    
Подсчитать закрашенные ячейки в столбцах
 
#
01.09.2017 00:55:32
Здравствуйте! Помогите пожалуйста.
Задача: Есть три столбика с процентами , они вразнобой закрашены.

Нужно подсчитать в стобцы П1 Х П2 только закрашенные ячейки с определенным процентом из столбца П1(с процентами)
Ниже скриншот и пример, первые две строки заполнены вручную
Рисунок удален: превышение допустимого размера вложения [МОДЕРАТОР]

Есть пользовательская функция она считает закрашенные ячейки с процентом в ячейке, но нужно с процентом в определенной колонке,
чтоб можно было просто протянуть формулу вниз
Код
Option Explicit
'Подсчет количества ячеек по цвету заливки
Function СЧЕТЦВЕТПРОЦ(Diapazon As Range, Kriterij As Range, Kriterij2 As Range) As Variant
Dim cc As Range

СЧЕТЦВЕТПРОЦ = 0

If Kriterij.Count = 1 And Kriterij2.Count = 1 Then
    For Each cc In Diapazon
        If cc.Interior.ColorIndex = Kriterij.Interior.ColorIndex And _
           cc.EntireRow.Hidden = False And _
           cc.Value2 = Kriterij2.Value2 Then
            СЧЕТЦВЕТПРОЦ = СЧЕТЦВЕТПРОЦ + 1
        End If
    Next
Else
    СЧЕТЦВЕТПРОЦ = "#N/A"
End If
End Function
Изменено: Serzhio8 - 01.09.2017 01:55:09
 
Перейти    
Если ячейка закрашена, то - 1 , если нет - 0
 
#
31.08.2017 23:44:06
Sanja,  СУПЕР! Спасибо огромное!
 
Перейти    
Если ячейка закрашена, то - 1 , если нет - 0
 
#
31.08.2017 23:23:17
Здравствуйте! Как можно реализовать данный процесс?
Есть столбик с закрашенными в разнобой ячейками, в другой столбик надо вывести если ячейка закрашена, то 1 , если нет  0

Ниже пример
 
Перейти    
Подсчет количества закрашенных ячеек при разных условиях
 
#
31.08.2017 00:52:27
iMrTidy,да, супер! Спасибо огромное)
 
Перейти    
Подсчет количества закрашенных ячеек при разных условиях
 
#
31.08.2017 00:40:44
Здравствуйте! Помогите пожалуйста. Нужно подсчитать количество закрашенных ячеек при разных условиях в первом столбце.

Например: при скольки закрашенных ячеек с 50% , или сколько закрашен. ячеек с 64%

Ниже пример.
Есть пользовательская функция, которая просто считает количество ячеек закрашенных в определенный цвет в диапазоне, но нужно еще при условии содержания процента в ячейке....%
Код
Option Explicit
'Подсчет количества ячеек по цвету заливки
Function СЧЕТЯЧЦВЕТ(Diapazon As Range, Kriterij As Range) As Variant
Dim cc As Range
СЧЕТЯЧЦВЕТ = 0
If Kriterij.Count = 1 Then
For Each cc In Diapazon
If cc.Interior.ColorIndex = Kriterij.Interior.ColorIndex And cc.EntireRow.Hidden = False Then СЧЕТЯЧЦВЕТ = СЧЕТЯЧЦВЕТ + 1
Next
Else
СЧЕТЯЧЦВЕТ = "#N/A"
End If
End Function
Изменено: Serzhio8 - 31.08.2017 00:47:33
 
Перейти    
Разделить столбец на текст, процент и числа
 
#
27.08.2017 20:45:02
Всем огромное спасибо!
 
Перейти    
Разделить столбец на текст, процент и числа
 
#
27.08.2017 09:40:03
sv2013, очень благодарен! :)  
 
Перейти    
Разделить столбец на текст, процент и числа
 
#
26.08.2017 23:49:28
bylanovandrej, спасибо большое!
 
Перейти    
Разделить столбец на текст, процент и числа
 
#
26.08.2017 23:49:14
Kuzmich, отлично!! Спасибо огромное , все подходит)
 
Перейти    
Разделить столбец на текст, процент и числа
 
#
26.08.2017 23:09:05
Здравствуйте. Подскажите пожалуйста, как можно реализовать. Нужно разделить в столбце отдельно текст, проценты и  числа...

Ниже в примере первые две строки показано  
 
Перейти    
Преобразовать формулу в значение
 
#
20.08.2017 22:34:58
Юрий М, Спасибо большое!) Все получилось. На счёт кода просто не знал
 
Перейти    
Преобразовать формулу в значение
 
#
20.08.2017 22:26:46
Здравствуйте. Есть макрос который вставляет пользовательскую функцию в ячейку, дальше идет вычисление. Нужно сразу обработать ячейку  , преобразовать формулу в ячейку

Ниже макрос. Как его нужно дополнить, чтоб формулу вставлялась и сразу было только значение без формулы в ячейке?

Код
Sub Скругленныйпрямоугольник1_Щелчок()
Range("I7").FormulaLocal = "=SumByColor($I$12:$I$58633;$I$20)+SumByColorNo($I$12:$I$58633;$I$18)"
End Sub
Изменено: Serzhio8 - 20.08.2017 22:31:54
 
Перейти    
Проставить дату в колонке по условию изменения времени справа в колонке
 
#
20.08.2017 18:17:46
RAN, ты EL  GENIO!  СПАСИБО огромное. Несколько часов работы мне сократил :D  
 
Перейти    
Проставить дату в колонке по условию изменения времени справа в колонке
 
#
20.08.2017 17:52:09
Здравствуйте) Скажите пожалуйста, можно ли как то реализовать макросом или функцией такое действие:

Нужно проставить дату в колонке начиная с 1.10.2014 и т. д. НО по условию изменения времени справа в колонке.
То есть, если справа в колонке день начался с 00:00 и до 23:59 одна дата, потом следующий день и т.д

ниже файл
 
Перейти    
Сумма ячеек со значением при условии, Интересная формула суммы ячеек
 
#
18.08.2017 17:34:14
Здравствуйте, программисты!) Помогите пожалуйста доделать макрос.

Первая часть выполнена: сумма ячеек  (которые выделены зеленым * на ячейку с числом - ячейка с числом)
Вторая часть : нужно отнять сумму ячеек (неокрашенных * ячейку с числом)


вот кусок кода функции

Public Function SumByColor(DataRange As Range, ColorSample As Range) As Double
   Dim Sum As Double
   Dim I As Long
    Application.Volatile True
I = Range("F2").Value
    For Each Cell In DataRange
        If Cell.Interior.Color = ColorSample.Interior.Color And Cell.EntireRow.Hidden = False Then
            Sum = Sum + (Cell.Value * I - I)
           
        End If
    Next Cell
    SumByColor = Sum
End Function
 
 
Перейти    
Подсчет закрашенных ячеек с фильтром
 
#
18.08.2017 10:33:36
Спасибо всем)) Вот смог реализовать вроде как  
 
Перейти    
Подсчет закрашенных ячеек с фильтром
 
#
18.08.2017 09:57:01
Владимир, вот применил фильтр к первому столбику, но подсчитать количество закрашенных нужно во всех трех столбцах и вывести в отдельные колонки  
 
Перейти    
Подсчет закрашенных ячеек с фильтром
 
#
18.08.2017 09:47:43
Bema, Нужные ячейки были закрашены в один цвет - зеленый.  
Изменено: Serzhio8 - 18.08.2017 09:49:53
 
Перейти    
Страницы: 1 2 След.
Наверх