Профессиональные приемы работы в Microsoft Excel

Пожалуйста, войдите или зарегистрируйтесь.


Расширенный поиск  

Новости:

Читайте новые сообщения форума форума в RRS-агрегаторах

Автор Тема: суммирование ячеек с заливкой в определяемой функцией диапазоне  (Прочитано 601 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Диана Нурушева

  • Пользователь
  • **
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 11

здравствуйте! просьба помочь.
функция Public Function SumByColor
можно ли в эту функцию добавить еще одно условие: суммирование значений с заливкой по определенной фамилии.
пробовала добавить функции суммесли и суммеслимн. не получается.
Записан

kuklp1

  • Пользователь
  • **
  • Уважение: +5/-0
  • Оффлайн Оффлайн
  • Сообщений: 82

SumByColor - пользовательская функция написанная на ВБА. И где она в Вашем файле? А формулам листа, тем самым суммесли и суммеслимн, до лампочки любые форматы ячеек, они работают только со значениями(чего и Вам желаю).
Записан
Я, как всегда, чертовски адекватен… Email: kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728, E332314026771

Диана Нурушева

  • Пользователь
  • **
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 11

сюда можно вложить файл с расширением.xls-его и вложила.
а функция Public Function SumByColor у меня в файле с расширением .xlsm
Public Function SUMBYCELLCOLOR(ByVal rgeSearchCells As Range, _
                              ByVal rgeCriteriaCell As Range) As Double
Dim rgeCell As Range
For Each rgeCell In rgeSearchCells
   If rgeCell.Interior.Color = rgeCriteriaCell.Interior.Color Then
      SUMBYCELLCOLOR = SUMBYCELLCOLOR + rgeCell.Value
   End If
Next rgeCell
End Function
то есть, в диапазон просматриваемых ячеек =SumByColor([color=#ff0000]C2:C16[/color];$H$1) бесполезно пытаться впихнуть функцию суммесли?
тогда, как можно диапазон просматриваемых ячеек ограничить только одной фамилией (разумеется формулой, не руками диапазон выбирать по каждой фамилии)?
« Последнее редактирование: 01.03.2017, 22:40:02 от vikttur »
Записан

kuklp1

  • Пользователь
  • **
  • Уважение: +5/-0
  • Оффлайн Оффлайн
  • Сообщений: 82

Сюда вполне можно запакованные в зип, рар файлы xlsm, или просто xls выкладывать.
Public Function SUMBYCELLCOLOR(ByVal rgeSearchCells As Range, _
                               ByVal rgeCriteriaCell As Range, fam$) As Double
    Dim rgeCell As Range
    For Each rgeCell In rgeSearchCells
        If rgeCell.Interior.Color = rgeCriteriaCell.Interior.Color And rgeCell.Offset(, -1).Value = fam Then
            SUMBYCELLCOLOR = SUMBYCELLCOLOR + rgeCell.Value
        End If
    Next rgeCell
End Function
где fam - нужная фамилия.
Записан
Я, как всегда, чертовски адекватен… Email: kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728, E332314026771

Диана Нурушева

  • Пользователь
  • **
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 11
Записан

Диана Нурушева

  • Пользователь
  • **
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 11

просьба. Вы не могли бы помочь еще?
есть два файла: "2 файл" и "3 файл". в каждом нужен только один лист.
во "2 файле" по строкам фамилии, по столбам- даты. в этом файле изначально расставлены оранжевые заливки.
в "3 файле" по строкам фамилии и даты под каждой, столб- время в цифровом формате, причем у людей не все даты могут быть рабочими (нерабочих в таблице нет).
нужно:
1. из 2 файла перенести оранжевые заливки в 3 файл по датам и фамилиям
2. после того как я руками расставлю в 3 файле серые заливки (сама), перенести эти серые заливки во 2 файл по фамилиям и датам.
спасибо!
 
Записан

vikttur

  • Глобальный модератор
  • Старожил
  • *****
  • Уважение: +46/-0
  • Оффлайн Оффлайн
  • Сообщений: 912

Вопрос не по теме. Один вопрос - одна тема.
Записан

Диана Нурушева

  • Пользователь
  • **
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 11

в Вашем заархивированном файле формула работает, но когда пытаюсь саму формулу скопировать отсюда в новый файл- она не работает. уточните формулу, пожалуйста...
Записан

vikttur

  • Глобальный модератор
  • Старожил
  • *****
  • Уважение: +46/-0
  • Оффлайн Оффлайн
  • Сообщений: 912

?
Здесь только один архив - Ваш. Вы к себе обращаетесь?
Записан

Диана Нурушева

  • Пользователь
  • **
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 11

архив Ваш. в заархивированном файле функция работает.
копирую код функции, прописанный тут Вами в окошке в файл у меня на локальном диске- не работает(
Записан

kuklp1

  • Пользователь
  • **
  • Уважение: +5/-0
  • Оффлайн Оффлайн
  • Сообщений: 82

Диана, придите в себя! В каком сообщении Виктора Вы видите архив?! Номер и время сообщения, пожалуйста.
P.S. и не надо писать мне в личку, все вопросы обсуждаются в форуме. Кроме случаев оплачиваемой работы. Или дружеских сплетен форумчан.  ;)
Записан
Я, как всегда, чертовски адекватен… Email: kuklp60@gmail.com WM Z206653985942, R334086032478, U238399322728, E332314026771

Диана Нурушева

  • Пользователь
  • **
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 11

формула, прописанная kuklp1 в сообщении от 01.03.17 не всегда работает. иногда все хорошо- выдает верный результат, а иногда в файлах- выдает сумму=0, хотя там есть ячейки, удовлетворяющие заданным условиям. просто хотела уточнить скорректированную под фамилию функцию. извините, не хотела никого задеть.
p.s. я в себе.
Записан
 



Темы без ответов

06.09.2017 10:43 Solver VBA не решает гиперболическое уравнение, но при этом решает гармоническое 104
17.08.2017 12:15 Гиперссылка и фильтр одновременно макрос 222
13.06.2017 00:27 Сводная таблица: как не вручную отсортировать в опред. порядке (не Custom List) 623
23.05.2017 11:20 Копирование данных из одной таблицы в умную таблицу по условию 1081
18.05.2017 15:45 Не работает гиперссылка при копировании. 592
15.03.2017 15:45 автозамена картинок PowerPoint 835
13.03.2017 07:09 Использование базы КЛАДР в exel 1183
11.03.2017 13:43 Изменить нумерацию страниц 1059
10.03.2017 08:40 Как делать бекапы гугл таблицы? 900
18.02.2017 11:31 Изменить ввод данных помогите...из столбца в таблицу. 1132





Яндекс цитирования msexcel.ru Яндекс.Метрика

Страница сгенерирована за 0.079 секунд. Запросов: 45.