программа статистики

[bisospd]

Приветствую
мою первую тему на этом форуме удалили ''умные''
модераторы раздела ''студентам''...
надеюсь тут хоть кто-нибудь поможет новичку
можно ли сделать в экзеле такое?:
вводятся случайные числа от 0 до 20
после 100 вводов надо чтобы выдало числа,которые ни разу не вводились
буду благодарен,если кто-нибудь напишет развернутее,потому что я слабо в этом разбираюсь
заранее спасибо.

[motorway]

Да, сделать можно.
Случайные числа вводятся - имеется в виду просто числа "берутся из головы"?

[Казанский]

Пробуйте. При желании 100 чисел можно ввести вручную в диапазон А1:Е20.

[R Dmitry]

Sub trt()
Dim i, arr, v
Set Dict = CreateObject("Scripting.Dictionary")
With Dict
    For i = 1 To 20
     .Add i, i
    Next
    For i = 1 To 100
         v = Val(Application.InputBox("Кол-во введенных чисел :" & i - 1, "Введи число от 0 до 20"))
            If .exists(v) Then .Remove (v)
    Next
    v = ""
    arr = .Items
    For i = 0 To .Count - 1
        v = v & arr(i) & ":"
    Next
 End With
 MsgBox "Неиспользованные числа :" & v
End Sub

Вводить числа до победы

[IgorGO]

см.вложение

[bisospd]

спасибо огромное всем

Сообщение от Казанский

Пробуйте. При желании 100 чисел можно ввести вручную в диапазон А1:Е20.

ваша программа очень удобная,то что нужно
только один вопрос-как найти исходный код и сделать в нем изменения,мне нужны числа от 0 до 36

R Dmitry
тот же вопрос и вам,куда мне надо ввести ваш код?это я так понял макрос называется?
и у вас в коде в пятой строчке For i = 1 To 20,разве не должно быть от 0 до 20?но я поменяю до 36

еще раз всем спасибо

[Казанский]

как найти исходный код и сделать в нем изменения,мне нужны числа от 0 до 36
Нет никакого кода, простейшие функции листа

Заменил "20" на "36" через Ctrl+H, "растянул" столбцы G и H:

[IgorGO]

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

[bisospd]

Казанский
все,то что надо,спасибо!

IgorGO
вот это верно,чтобы стабильно выигрывать,надо стабильно играть)))
только пока еще рано говорить о победе,так как программу товарища Казанского надо заставить работать на моей старенькой Nokia 6230i
а это уже в другую тему

[Serge 007]

Сообщение от bisospd

а это уже в другую тему

В эту что ли?