Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Вывод итогов в определенном формате - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вывод итогов в определенном формате (Помогите с подсчитать данные в таблице)
Вывод итогов в определенном формате
reddew Дата: Среда, 09.01.2013, 19:57 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Подскажите как можно подсчитать количество цифр в таблице, так чтобы в поле "итог" результат выводился как для s1 (в прикрепленном файле)? Нужно чтобы для каждой S в столбе ИМЯ, был подсчитан итог, как для S1.
К сообщению приложен файл: 985773.xlsx (18.4 Kb)
 
Ответить
СообщениеПодскажите как можно подсчитать количество цифр в таблице, так чтобы в поле "итог" результат выводился как для s1 (в прикрепленном файле)? Нужно чтобы для каждой S в столбе ИМЯ, был подсчитан итог, как для S1.
Автор - reddew
Дата добавления - 09.01.2013 в 19:57
RAN Дата: Среда, 09.01.2013, 20:30 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[vba]
Код
Function frm(r As Range)
Dim i&, j&
      ReDim a(0 To 9)
      For i = 1 To r.Cells.Count
          For j = 0 To 9
            If Len(r(i)) Then If r(i) = j Then a(j) = a(j) + 1
          Next
          j = 0
      Next
      For i = 0 To 9
          If Len(a(i)) Then frm = frm & i & "(" & a(i) & "шт.);"
      Next
      frm = Left$(frm, Len(frm) - 1)
End Function
[/vba]
К сообщению приложен файл: 1994881.xls (60.0 Kb)

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Среда, 09.01.2013, 20:38
 
Ответить
Сообщение[vba]
Код
Function frm(r As Range)
Dim i&, j&
      ReDim a(0 To 9)
      For i = 1 To r.Cells.Count
          For j = 0 To 9
            If Len(r(i)) Then If r(i) = j Then a(j) = a(j) + 1
          Next
          j = 0
      Next
      For i = 0 To 9
          If Len(a(i)) Then frm = frm & i & "(" & a(i) & "шт.);"
      Next
      frm = Left$(frm, Len(frm) - 1)
End Function
[/vba]
Автор - RAN
Дата добавления - 09.01.2013 в 20:30
AlexM Дата: Среда, 09.01.2013, 21:11 | Сообщение № 3
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4517
Репутация: 1129 ±
Замечаний: 0% ±

Excel 2003
Для разнообразия решение без макроса

см. файл
К сообщению приложен файл: reddew.xls (54.0 Kb)


Номер мобильного модема (без голосовой связи)
9269171249 МегаФон, Московский регион.
 
Ответить
СообщениеДля разнообразия решение без макроса

см. файл
Автор - AlexM
Дата добавления - 09.01.2013 в 21:11
reddew Дата: Четверг, 10.01.2013, 15:19 | Сообщение № 4
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Спасибо, ребят, очень помогли, даже не ждал ответа так скоро specool

cry А как сделать, чтобы при нулевом кол-ве стоял прочерк?


Сообщение отредактировал reddew - Четверг, 10.01.2013, 17:53
 
Ответить
СообщениеСпасибо, ребят, очень помогли, даже не ждал ответа так скоро specool

cry А как сделать, чтобы при нулевом кол-ве стоял прочерк?
Автор - reddew
Дата добавления - 10.01.2013 в 15:19
reddew Дата: Пятница, 11.01.2013, 17:53 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Ребят помогите еще раз, вот что получилось, подскажите как сделать, чтобы если значение не встречалось, то стаял прочерк, как в строке А4?
К сообщению приложен файл: 6051074.xlsx (21.3 Kb)
 
Ответить
СообщениеРебят помогите еще раз, вот что получилось, подскажите как сделать, чтобы если значение не встречалось, то стаял прочерк, как в строке А4?
Автор - reddew
Дата добавления - 11.01.2013 в 17:53
Serge_007 Дата: Пятница, 11.01.2013, 18:52 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Цитата (reddew)
как в строке А4?

В А4 - вручную забито

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
Сообщение
Цитата (reddew)
как в строке А4?

В А4 - вручную забито
Автор - Serge_007
Дата добавления - 11.01.2013 в 18:52
reddew Дата: Пятница, 11.01.2013, 18:58 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Цитата (Serge_007)
Цитата (reddew писал(а)):
как в строке А4?
В А4 - вручную забито

Ну да, я для примера поставил, если бы я мог не вручную, я бы сюда не написал)))


Сообщение отредактировал reddew - Пятница, 11.01.2013, 18:58
 
Ответить
Сообщение
Цитата (Serge_007)
Цитата (reddew писал(а)):
как в строке А4?
В А4 - вручную забито

Ну да, я для примера поставил, если бы я мог не вручную, я бы сюда не написал)))
Автор - reddew
Дата добавления - 11.01.2013 в 18:58
Serge_007 Дата: Пятница, 11.01.2013, 19:16 | Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Так надо-то что?

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеТак надо-то что?
Автор - Serge_007
Дата добавления - 11.01.2013 в 19:16
_Boroda_ Дата: Пятница, 11.01.2013, 20:07 | Сообщение № 9
Группа: Админы
Ранг: Местный житель
Сообщений: 16718
Репутация: 6505 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Может, так?
К сообщению приложен файл: 6051074_1.xlsx (21.7 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеМожет, так?
Автор - _Boroda_
Дата добавления - 11.01.2013 в 20:07
reddew Дата: Пятница, 11.01.2013, 22:41 | Сообщение № 10
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Цитата (Serge_007)
Так надо-то что?

Надо чтобы вставлялись пробелы как на А4,но не вручную)

Цитата (_Boroda_)
Может, так?

Подходит, но я не могу изменить названия столбцов в общем итоге, то есть после этого результат не считается(((
 
Ответить
Сообщение
Цитата (Serge_007)
Так надо-то что?

Надо чтобы вставлялись пробелы как на А4,но не вручную)

Цитата (_Boroda_)
Может, так?

Подходит, но я не могу изменить названия столбцов в общем итоге, то есть после этого результат не считается(((
Автор - reddew
Дата добавления - 11.01.2013 в 22:41
_Boroda_ Дата: Пятница, 11.01.2013, 23:20 | Сообщение № 11
Группа: Админы
Ранг: Местный житель
Сообщений: 16718
Репутация: 6505 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Цитата (reddew)
Подходит, но я не могу изменить названия столбцов в общем итоге, то есть после этого результат не считается(((

Да не вопрос
Код
=СЧЁТЕСЛИ($B3:$AF3;СТОЛБЕЦ()-СТОЛБЕЦ($AG3))

Только зачем? Так очень наглядно и понятно все.

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
Цитата (reddew)
Подходит, но я не могу изменить названия столбцов в общем итоге, то есть после этого результат не считается(((

Да не вопрос
Код
=СЧЁТЕСЛИ($B3:$AF3;СТОЛБЕЦ()-СТОЛБЕЦ($AG3))

Только зачем? Так очень наглядно и понятно все.
Автор - _Boroda_
Дата добавления - 11.01.2013 в 23:20
reddew Дата: Пятница, 11.01.2013, 23:35 | Сообщение № 12
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Цитата (_Boroda_)
=СЧЁТЕСЛИ($B3:$AF3;СТОЛБЕЦ()-СТОЛБЕЦ($AG3))

Спасибо теперь все работает как нужно.
clap
Цитата (_Boroda_)
Только зачем? Так очень наглядно и понятно все.

Согласен, но нужно чтобы там были имена, которые присвоены числам, но это мелочи еще раз спасибо)


Сообщение отредактировал reddew - Пятница, 11.01.2013, 23:36
 
Ответить
Сообщение
Цитата (_Boroda_)
=СЧЁТЕСЛИ($B3:$AF3;СТОЛБЕЦ()-СТОЛБЕЦ($AG3))

Спасибо теперь все работает как нужно.
clap
Цитата (_Boroda_)
Только зачем? Так очень наглядно и понятно все.

Согласен, но нужно чтобы там были имена, которые присвоены числам, но это мелочи еще раз спасибо)
Автор - reddew
Дата добавления - 11.01.2013 в 23:35
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Вывод итогов в определенном формате (Помогите с подсчитать данные в таблице)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!