Вход на сайт
Формула в Excel
325
28.11.13 12:12
Всем привет,
человеку надо помочь вычислить среднемесячные данные в таблице Excel.
Существуют 3 и более колонок (ежемесячно, ежедневно) с дву-трёхзначными цифрами.
Часть цифр помечены красным цветом.
Не могу вспомнить формулу. Напомните пожалуйста (пошагово).
Excel 2000, немецкий.
человеку надо помочь вычислить среднемесячные данные в таблице Excel.
Существуют 3 и более колонок (ежемесячно, ежедневно) с дву-трёхзначными цифрами.
Часть цифр помечены красным цветом.
Не могу вспомнить формулу. Напомните пожалуйста (пошагово).
Excel 2000, немецкий.
NEW 02.12.13 17:05
Esslinger & Puschkina
Благодарю вас, что откликнулись
.
Пример таблицы:
в конце каждой строки с данными (в конце месяца), хотелось бы иметь среднестатистические данные +
отдельно среднестатистические данные "красных" цифр.
Благодарю вас, что откликнулись
.Пример таблицы:
в конце каждой строки с данными (в конце месяца), хотелось бы иметь среднестатистические данные +
отдельно среднестатистические данные "красных" цифр.
NEW 03.12.13 17:32
Так называемая функция (прибора для измерения давления) "Herzrhythmusstörung" - помечается в таблице красным цветом.
И цифры могут быть самыми различными.
Возможно ли вообще в формулу Excel внести понятие "жирный" шрифт и/ или "цвет".
И цифры могут быть самыми различными.
Возможно ли вообще в формулу Excel внести понятие "жирный" шрифт и/ или "цвет".
NEW 03.12.13 23:22
Ниже в тэгах цитата код функции для выполнения вышепоставленной задачи. Протестирована в Excel 2010.
Способ применения следующий (для первой попытки рекомендую создать пробный файл, либо же работать с копией оригинального файла):
1. В нужном документе клик правой кнопкой на названии рабочего листа (напр. Tabelle1), затем выбрать "Code anzeigen". Откроется окно Microsoft Visual Basic.
2. В новом окне вверху в меню Einfügen выбрать Modul. В окрывшееся окно скопировать нижестоящий текст как есть.
3. Закрыть окно Microsoft Visual Basic и вернуться в окно с открытой таблицей.
4. В нужной ячейке задать функцию =MittelwertWennFarbe().
Функции требуются следующие параметры:
- область поиска (range), напр. А1:Е1
- цвет или числовой код цвета (важно чтобы во всех ячейках был один цвет, а не например разные оттенки какого-либо цвета)
Пара примеров:
=MittelwertWennFarbe(А1:Е1;3) - функция считает среднее значение содержимого ячеек в области А1:Е1, цвет шрифта которых красный (3=красный)
=MittelwertWennFarbe(А1:Е1;А1) - функция считает среднее значение содержимого ячеек в области А1:Е1, цвет шрифта которых функция считывает из ячейки А1.
Для того чтобы результат обновлялся при изменении исходных данных, к основной формуле можно добавить +(0*JETZT()).
Примеры:
=MittelwertWennFarbe(А1:Е1;3)+(0*JETZT())
=MittelwertWennFarbe(А1:Е1;А1)+(0*JETZT())
При изменениицвета шрифта в одной или нескольких ячейках нужно нажать F9 для того чтобы результат формул обновился.
Надеюсь смог помочь. Код функции можно изменять под свои конкретные нужды. Для этого повторить пункты 1-3 выше.
И еще: при сохранении файла появится окно с вопросом по поводу безопасности макросов и т.д. Надо ответить "нет" и в открывшемся окне сохранения файла вместо "Excel-Arbeitsmappe" выбрать "Excel-Arbeitsmappemit Makros" как тип файла (Dateityp).
После этого при открытии файла возможно появиться вопрос разрешить ли макросы, нужно разрешить, иначе функция не будет работать.
Способ применения следующий (для первой попытки рекомендую создать пробный файл, либо же работать с копией оригинального файла):
1. В нужном документе клик правой кнопкой на названии рабочего листа (напр. Tabelle1), затем выбрать "Code anzeigen". Откроется окно Microsoft Visual Basic.
2. В новом окне вверху в меню Einfügen выбрать Modul. В окрывшееся окно скопировать нижестоящий текст как есть.
3. Закрыть окно Microsoft Visual Basic и вернуться в окно с открытой таблицей.
4. В нужной ячейке задать функцию =MittelwertWennFarbe().
Функции требуются следующие параметры:
- область поиска (range), напр. А1:Е1
- цвет или числовой код цвета (важно чтобы во всех ячейках был один цвет, а не например разные оттенки какого-либо цвета)
Пара примеров:
=MittelwertWennFarbe(А1:Е1;3) - функция считает среднее значение содержимого ячеек в области А1:Е1, цвет шрифта которых красный (3=красный)
=MittelwertWennFarbe(А1:Е1;А1) - функция считает среднее значение содержимого ячеек в области А1:Е1, цвет шрифта которых функция считывает из ячейки А1.
Для того чтобы результат обновлялся при изменении исходных данных, к основной формуле можно добавить +(0*JETZT()).
Примеры:
=MittelwertWennFarbe(А1:Е1;3)+(0*JETZT())
=MittelwertWennFarbe(А1:Е1;А1)+(0*JETZT())
При изменениицвета шрифта в одной или нескольких ячейках нужно нажать F9 для того чтобы результат формул обновился.
Надеюсь смог помочь. Код функции можно изменять под свои конкретные нужды. Для этого повторить пункты 1-3 выше.
И еще: при сохранении файла появится окно с вопросом по поводу безопасности макросов и т.д. Надо ответить "нет" и в открывшемся окне сохранения файла вместо "Excel-Arbeitsmappe" выбрать "Excel-Arbeitsmappemit Makros" как тип файла (Dateityp).
После этого при открытии файла возможно появиться вопрос разрешить ли макросы, нужно разрешить, иначе функция не будет работать.
В ответ на:
Public Function MittelwertWennFarbe(Bereich As Range, Farbe As Variant)
Dim Zelle As Object
Dim FarbenNr As Integer
Dim Nenner As Integer
Dim Summe As Double
If IsObject(Farbe) Then
FarbenNr = Farbe(1).Font.ColorIndex
Else
FarbenNr = Farbe
End If
For Each Zelle In Bereich
If Zelle.Font.ColorIndex = FarbenNr Then
Summe = Summe + Zelle
Nenner = Nenner + 1
End If
Next
MittelwertWennFarbe = Summe / Nenner
End Function
Public Function MittelwertWennFarbe(Bereich As Range, Farbe As Variant)
Dim Zelle As Object
Dim FarbenNr As Integer
Dim Nenner As Integer
Dim Summe As Double
If IsObject(Farbe) Then
FarbenNr = Farbe(1).Font.ColorIndex
Else
FarbenNr = Farbe
End If
For Each Zelle In Bereich
If Zelle.Font.ColorIndex = FarbenNr Then
Summe = Summe + Zelle
Nenner = Nenner + 1
End If
Next
MittelwertWennFarbe = Summe / Nenner
End Function