Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Просуммировать числа между собой
 
#1
13.01.2020 18:33:27
Здравствуйте. Есть выборка 2,4,8,16,32,64,128,256. Нужно пересуммировать все числа между собой (все возможные варианты). Например 2+4=первое число. 2+8=второе число, 2+4+8+16=третье число и так далее. Помогите, пожалуйста, это сделать
 
 
 
#2
13.01.2020 18:46:14
Rdaz,
от 6 до 510 с шагом 2.
Могу макросом, надо?
 
 
 
#3
13.01.2020 18:48:35
Да, если можно
 
 
 
#4
13.01.2020 18:52:46
Хотя погорячился. Из этих чётных нужно исключить сами числа ряда - их суммой не представить.
Сейчас нарисуем.
 
 
 
#5
13.01.2020 19:02:44
Наверно так?
Код
Sub main()
Dim E&, I&, R&
E = 2
For I = 2 To 512 Step 2
  If I = E Then
    E = E + E
  Else
    R = R + 1
    Cells(R, "A") = I
  End If
Next I
End Sub
 
 
 
#6
13.01.2020 19:17:31
Попробую, спасибо) А ну подскажите, куда вставлять этот код?Я с макросами не работала ещё
 
 
 
#7
13.01.2020 19:24:22
См. вложение.
Кстати - разложение на слагаемые нужно?
 
 
 
#8
13.01.2020 19:24:42
Доброе время суток
Цитата
Rdaz написал:
макросами не работала ещё
А если прочитать?
 
 
 
#9
13.01.2020 19:30:30
Обязательно это сделаю) Просто так было бы понятнее)
 
 
 
#10
13.01.2020 19:35:14
674136196258318378438498
1076138198260320380440500
1278140200262322382442502
1480142202264324384444504
1882144204266326386446506
2084146206268328388448508
2286148208270330390450510
2488150210272332392452
2690152212274334394454
2892154214276336396456
3094156216278338398458
3496158218280340400460
3698160220282342402462
38100162222284344404464
40102164224286346406466
42104166226288348408468
44106168228290350410470
46108170230292352412472
48110172232294354414474
50112174234296356416476
52114176236298358418478
54116178238300360420480
56118180240302362422482
58120182242304364424484
60122184244306366426486
62124186246308368428488
66126188248310370430490
68130190250312372432492
70132192252314374434494
72134194254316376436496
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#11
13.01.2020 19:40:21
Спасибо)
 
 
 
#12
13.01.2020 22:17:59
Цитата
Апострофф написал:
См. вложение.Кстати - разложение на слагаемые нужно?
Нужно) Опять же, если Вам не тяжело)Заранее огромное спасибо)
 
 
 
#13
13.01.2020 22:41:00
Найдёте теперь, куда вставить :)
Код
Sub main()
Dim E&, I&, R&, J&, D&, S$
E = 2
For I = 2 To 512 Step 2
  If I = E Then
    E = E + E
  Else
    R = R + 1
    Cells(R, "A") = I
    J = I
    D = 256
    S = ""
    While J
      If J >= D Then
        S = "+" & D & S
      End If
      J = J Mod D
      D = D \ 2
    Wend
    'Mid$(S, 1, 1) = "="
    Cells(R, "B") = S
  End If
Next I
End Sub
 
 
 
#14
13.01.2020 22:47:34
Спасибо, да, буду искать))) Если, вдруг, до меня туго дойдет)))) Можно спросить у Вас совета?
 
 
 
#15
13.01.2020 22:48:27
[Alt+F11] - подсказка.
Скрытый текст
Изменено: Апострофф - 13.01.2020 22:53:18
 
 
 
#16
13.01.2020 23:22:01
Все получилось, спасибо) буду теперь этот макрос хранить как зеницу ока)))
Изменено: Rdaz - 13.01.2020 23:50:05
 
 
 
Страницы: 1
Наверх