Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Подсчет калорий и хим состава блюд
 
#1
20.08.2015 07:08:08
Здравствуйте!
Помогите решить задачу.
Имеется файл - закладка продуктов в готовые блюда, там очень много наименований блюд, каждое блюдо на отдельной странице. Задача в том что, нужно подсчитать количество калорий, белков, жиров, углеводов для каждого блюда. Со второго файла - Состав продуктов - начала копировать данные на каждое блюда для каждого продукта отдельно, в общем по одной строчке. Блюд ооочень много. Помогите автоматизировать. Наименования продуктов в двух файлах готова сделать идентичными. Если ставить на каждую страницу формулу ВПР файл будет тяжелым. Что делать?
 
 
 
#2
20.08.2015 07:09:25
Состав продктов
Изменено: Kedr Iohan - 20.08.2015 10:45:33
 
 
 
#3
20.08.2015 07:10:35
закладка продуктов
 
 
 
#4
20.08.2015 08:59:25
Kedr Iohan, здравия.
У Вас наименования в закладке продуктов не совпадают с записями в составе продуктов.
Например, "Перец черный молотый" и "Перец черный". Или "Яйцо" и "Яйцо высш/кат".
Искать вхождение одной фразы в другую тоже не получится. Например, если искать "Вода", то найдем "Мин.вода 1,5 л", что есть не правильно.
Что делать?
Чем шире угол зрения, тем он тупее.
 
 
 
#5
20.08.2015 10:48:58
Kedr Iohan, не нужно хитрить ) Суммарный размер файлов не должен превышать 100К, так Вы решили разместить файлы в двух сообщениях? Так не пойдёт. Удалите из файлов все "лишнее" - ведь можно оставить строк поменьше? Почитайте в "Приемах", как можно уменьшить размер книги. Можно ещё запаковать файлы, разместить их на файлообменниках.
 
 
 
#6
20.08.2015 11:22:25
Извиняюсь.
SAS888 , наименования продуктов подправила. Так получиться?
 
 
 
#7
20.08.2015 11:55:05
Цитата
Kedr Iohan написал: Что делать?
Делать названия блюд одинаковыми и формировать состав макросом.
 
 
 
#8
20.08.2015 13:05:49
вот
 
 
 
#9
20.08.2015 13:07:52
Посмотрите пример во вложении.
Откройте файл и нажмите кнопку "Пересчитать" на листе "Справочник".
Будет произведен требуемый расчет на всех листах, кроме "Продукты" и "Справочник".
Изменено: SAS888 - 20.08.2015 13:16:12
Чем шире угол зрения, тем он тупее.
 
 
 
#10
21.08.2015 06:46:13
Низкий Вам поклон, Спасибо!
 
 
 
#11
21.08.2015 06:51:37
Посмотрите еще пример с добавлением.
Добавлена кнопка и процедура создания нового листа.
Добавьте название блюда в столбец "B" на листе "Справочник" и нажмите кнопку "Создать".
Будет создан лист с пустым бланком и сформирована гиперссылка.
Изменено: SAS888 - 21.08.2015 06:54:31
Чем шире угол зрения, тем он тупее.
 
 
 
#12
21.08.2015 09:51:58
Спасибо!!
Но у меня вышла проблема в том что в некоторых карточках  не заполнена НОРМА (столбик С) и макрос выдает ошибку и не считает на всех последующих листах.
 
 
 
#13
21.08.2015 09:54:45
я по очереди хожу по всем закладкам в поисках пустого столбика, удаляю эту закладку, либо заполняю норму.
Можно сделать так, чтобы он не реагировал на пустые нормы , и считал дальше.
 
 
 
#14
21.08.2015 10:12:29
Цитата
Можно сделать так, чтобы он не реагировал на пустые нормы , и считал дальше.
Можно сделать все, что угодно.
Скорее всего, Вы успели взять файл до того, как я его поправил.
Попробуйте еще раз скопировать файл с макросом из поста № 11 и проверить его работоспособность.
Там добавлено условие: если ячейка "C11" текущего в цикле листа пуста (а это вторая по счету с начала таблицы), то расчет этого листа не производится.
Я счел, что не бывает необходимости рассчитывать блюдо, состоящее всего из одного инградиента.
Если так не устраивает, то укажите, что делать в подобном случае.

Если все равно будет возникать ошибка, то прикрепите к сообщению проблемный файл.
Изменено: SAS888 - 21.08.2015 10:13:44
Чем шире угол зрения, тем он тупее.
 
 
 
#15
21.08.2015 15:01:22
Бифшстекс рубленный не досчитался д конца
 
 
 
#16
21.08.2015 15:09:48
количество не должно быть пустое , а вас вода и кстати чем без макроса не так?
 
 
 
#17
22.08.2015 07:19:09
Проверяйте. Теперь расчет будет выполняться даже при пустом значении "Норма".
P.S. Интересно, а ВОДА у Вас на самом деле такая жирная и калорийная?
Чем шире угол зрения, тем он тупее.
 
 
 
#18
26.08.2015 10:00:38
SAS888, спасибо, пользуюсь с удовольствием!
Но вышел маленький нюанс, если названия в списке продуктов  и во всех вкладках одинаковые но написаны разным регистром (маленькие или большие) то этот продукт не считается.
 
 
 
#19
28.08.2015 08:15:23
В коде макроса "Solution" строку
Код
If a(j, 1) = b(i, 1) Then
замените на
Код
If UCase(a(j, 1)) = UCase(b(i, 1)) Then
и будет счастье.
Чем шире угол зрения, тем он тупее.
 
 
 
Страницы: 1
Читают тему
Наверх