Модераторы: mihanik
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> вопрос по формуле сумма 
:(
    Опции темы
marrisha
Дата 21.7.2006, 09:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 22
Регистрация: 12.4.2006

Репутация: нет
Всего: нет
У меня вопрос по екселю такой, возможно ли в нем сделать такое:
допустим по столбцам идет перечень цифр, ну например:
2
3
4
6
5
7
8
1

мне надо поставить формулу так чтоб она сначало проссумировала эти цифры, т.е должно получиться
36 и после этого сразу ссумировались соответсвенно цифры 3+6 , т.е в конечном итоге выводилась только цифра 9.
Надеюсь понятно тут объяснила))) 
PM MAIL   Вверх
ИгнатьевАлексей
Дата 21.7.2006, 10:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 369
Регистрация: 18.11.2005

Репутация: 1
Всего: 3
Слушай! А количество цифр в полученной сумме конечно-же разное будет? Просто, на мой взгляд, если известно заранее количество цифр, то легко можно обойтись стандартными функциями. Если же нет, как я и предполагаю, то по-моему надо писать свою функцию, но она будет простая очень.

Да поправят меня господа профессионалы, если я ошибаюсь!  smile 

Ну а программировать в VBA на элементарном уровне умеешь?  


--------------------
Vingrad - FOREVER !!! 

"Как вы яхту назовете - так она и поплывет!" 
 Капитан Врунгель 
PM MAIL   Вверх
marrisha
Дата 21.7.2006, 11:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 22
Регистрация: 12.4.2006

Репутация: нет
Всего: нет
да может быть разное, а на счет VBA нет не программировала ни разу, придется теперь разбираться...
а может у кого есть эта функция???  

Это сообщение отредактировал(а) marrisha - 21.7.2006, 11:36
PM MAIL   Вверх
ИгнатьевАлексей
Дата 21.7.2006, 11:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 369
Регистрация: 18.11.2005

Репутация: 1
Всего: 3
Вообще то - VBA дело полезное, но если невмоготу, или срочно надо, то набросаю!  smile 
Только нас, скорее всего, в соседний раздел переведут! 


--------------------
Vingrad - FOREVER !!! 

"Как вы яхту назовете - так она и поплывет!" 
 Капитан Врунгель 
PM MAIL   Вверх
ИгнатьевАлексей
Дата 21.7.2006, 12:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 369
Регистрация: 18.11.2005

Репутация: 1
Всего: 3
Держи! Вроде бы это тебе надо! 
Вставляешь это в любой модуль книги и найдешь одноименную функцию в разделе "Функции определенные пользователем". 
 

Код

Option Explicit

Function СуммаЦифрСуммы(Диапазон As Range)

   Dim summaChisel As Long
   Dim summaCifr As Long
   Dim currentCell As Range
   Dim summaInString As String
   Dim n As Integer
   
   summaChisel = 0
   summaCifr = 0
   
   For Each currentCell In Диапазон
      summaChisel = summaChisel + currentCell.Value
   Next
   
   summaInString = Replace(Str(summaChisel), " ", "")
   
   For n = 1 To Len(summaInString)
     summaCifr = summaCifr + Mid(summaInString, n, 1)
   Next
   
   СуммаЦифрСуммы = summaCifr

End Function

 


--------------------
Vingrad - FOREVER !!! 

"Как вы яхту назовете - так она и поплывет!" 
 Капитан Врунгель 
PM MAIL   Вверх
marrisha
Дата 21.7.2006, 12:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 22
Регистрация: 12.4.2006

Репутация: нет
Всего: нет
большое спасибо))) супер все работает)))) smile

Добавлено @ 13:05 
ой вот еще вопрос
у меня допустим идут числа
2
3
5
6
5
4
3
в сумме получается 28, после того как сложаться цифры 2+8, получается еще одно 2-х значное число 10, т.е надо еще сложить 1+0... 
PM MAIL   Вверх
ИгнатьевАлексей
Дата 21.7.2006, 14:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 369
Регистрация: 18.11.2005

Репутация: 1
Всего: 3
Лови!
Код

Option Explicit

Function СуммаЦифрСуммыДоКонца(Диапазон As Range)

   Dim summaChisel As Long
   Dim currentCell As Range
   Dim summaInString As String
   
   summaChisel = 0
   
   For Each currentCell In Диапазон
      summaChisel = summaChisel + currentCell.Value
   Next
   
   summaInString = Replace(Str(summaChisel), " ", "")
   
   Do
     summaInString = NumStringAddind(summaInString)
     If Len(summaInString) < 2 Then
         Exit Do
     End If
   Loop
   
   СуммаЦифрСуммыДоКонца = Int(summaInString)
   
End Function

Function NumStringAddind(numString As String) As String

     Dim summaCifr As Long
     Dim n As Integer
     
     For n = 1 To Len(numString)
       summaCifr = summaCifr + Mid(numString, n, 1)
     Next
     
     NumStringAddind = Replace(Str(summaCifr), " ", "")
     
End Function




Слушай! А что за задача у тебя? Просто интересно!  smile 
 


--------------------
Vingrad - FOREVER !!! 

"Как вы яхту назовете - так она и поплывет!" 
 Капитан Врунгель 
PM MAIL   Вверх
marrisha
Дата 21.7.2006, 14:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 22
Регистрация: 12.4.2006

Репутация: нет
Всего: нет
а в бухгалтерию надо, там они че то со своими инвентарными номерами мутят, им надо было чтоб именно цифры так суммировались

Добавлено @ 14:32 
еще раз спасибо огромное 
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Работа с MS Office"
mihanik staruha

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Несанкционированная реклама на форуме запрещена
  • Пожалуйста, давайте своим темам осмысленный, информативный заголовок. Вопль "Помогите!" таковым не является.
  • Чем полнее и яснее Вы изложите проблему, тем быстрее мы её решим.
  • Оставляйте свои записи в "Книге отзывов о работе администрации"

Если Вам понравилась атмосфера форума, заходите к нам чаще!
С уважением mihanik и staruha.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Работа с MS Office | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1131 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.