{quote}{login=webley}{date=26.05.2010 05:46}{thema=}{post}Альтернативный вариант{/post}{/quote}  
 
Спасибо webley, Михаил, то что хотел.

Подскажите как можно подсчитать количество чисел в строке по ячейках  
Например 5 7 10 23 42     1-1, 2-2, 3-1 4-1, 5-1, 6-0 и так далее

{quote}{login=The_Prist}{date=03.03.2010 04:51}{thema=}{post}И парочка формул массива для подсчета все того же:  
 
=СУММ(ЕСЛИ(($A$2:$A$50/2)=(ЦЕЛОЕ($A$2:$A$50/2));1)) - четные  
 
=СУММ(ЕСЛИ(($A$2:$A$50/2)=(ЦЕЛОЕ($A$2:$A$50/2));1)) - нечетные{/post}{/quote}  
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^­^^^^^^^^^  
Чтот здесь нето    
 
Большое спасибо мне подходит    
=СУММПРОИЗВ(ЕЧИСЛО(T4:X4)*(ОСТАТ(T4:X4;2)=0))  
=СУММПРОИЗВ(ЕЧИСЛО(T4:X4)*(ОСТАТ(T4:X4;2)<>0))

{quote}{login=:)}{date=03.03.2010 04:29}{thema=}{post}В Excel 2003 есть только ЕНЕЧЁТб да и то,если подключена надстройка пакета анализа. Поэтому если не Excel 2007, то без функций пакета анализа для первой строки 1:1 можно так  
 
количество четных: =СУММПРОИЗВ(ЕЧИСЛО(1:1)*(ОСТАТ(1:1;2)=0))  
количество нечетных: =СУММПРОИЗВ(ЕЧИСЛО(1:1)*(ОСТАТ(1:1;2)<>0))  
 
сумма четных: =СУММПРОИЗВ(ЕЧИСЛО(1:1)*(ОСТАТ(1:1;2)=0);1:1)  
сумма нечетных: =СУММПРОИЗВ(ЕЧИСЛО(1:1)*(ОСТАТ(1:1;2)<>0);1:1){/post}{/quote}  
 
Большое спасибо разобрался, работает, подключил пакет анализа в 2003 что-то не работает функция =ЕЧЁТН(T11:X11)пишет #ЗНАЧ,

{quote}{login=The_Prist}{date=03.03.2010 04:11}{thema=}{post}ЕЧЁТН и ЕНЕЧЁТ{/post}{/quote}  
 
Я извиняюсь то таких функций я не нашел в екселе, или что-то я не понял.

Подскажите, как можно подсчитать в строке нечетные и четные числа.

{quote}{login=Михаил}{date=09.02.2010 02:03}{thema=}{post}Что такое массив на Лист1? Это все возмозможные варианты 5 из 41 (42?) или что-то другое?{/post}{/quote}  
Да 5 из 42    
3 блоках (каждый по 5 столбцов), длина  строки 64999. Генератор комбинаций.  
Нужно сравнить с уже имеющеюся базой тиражей, чтоб видеть адрес в каком столбце и в какой строке была выигрышная комбинация.  
База постоянно дописывается

{quote}{login=vikttur}{date=08.02.2010 06:14}{thema=}{post}игрок, хотите выигрышную комбинацию вычислить?  
 
Перевод на язык Excel :)  
На Лист1 данные размещены в 13 блоках (каждый по 5 столбцов), длина массивов - до 64999 строки.  
На Лист2 один блок данных в столбцах А:E, длина массива - ? (автор не указал).  
Необходимо найти совпадение данных каждой строки Листа2 с данными блоков Листа1 и в столбце D Листа2 показать адрес совпадения в формате "№_блока/№_строки"  
 
Как, перевод получился? :){/post}{/quote}  
Перевод хорош только как это сделать?  
Данные на Листе 2 в столбцах А:E будут дописываться по строкам в ручную.  
Данные неизменны в Лист1 размещены в 13 блоках (каждый по 5 столбцов), длина массивов - до 64999 строки.

{quote}{login=Ленка}{date=08.02.2010 02:28}{thema=Создание шаблона сметы}{post}Подскажите пожалуйста никак не могу решить проблему.  
Есть документ в Excele состоит из нескольких страниц  
в каждой строчке есть "название работы" "единица измерения" "цена" и "объем"  
Идея в том чтобы проставляя в яцейке "объем" вместо нулей другое значение, вся строка появлялась на последней странице при этом считая и сумму работы.  
Возможно ли это сделать? ПОМОГИТЕ!!{/post}{/quote}  
А какое значение вместо нулей. Вы в какой программе работаете КП "ІВК" или АВК,

{quote}{login=vikttur}{date=08.02.2010 11:46}{thema=}{post}Просто - написать формулу или макрос. Или правила почитать и пример показать :){/post}{/quote}  
Вот пример, как сделать программно, на форуме примера не нашел.

в Листе 1 есть 13 столбцов A:E, H:L, O:S, V:Z, AC:AG, и так далее строк 64999    
В Листе 2 есть 1 столбец А:E.  
Как сравнить лист 2 с листом 1 чтоб напротив каждой строки был адрес совпадений    
Например А В С Д Е   Адрес  
        5 6 7 9 10  5столбец, 500строка.

Вот сам принцеп работы, может есть у кого какие соображения  
А программа нерабочая весит около 2мб, с базой данных, может в ней что-то недоделанное.  
 
Многоуважаемый АЛЛ реально ли сделать программу, вот по этому принципу работы. Или просто бросить эту идею.

{quote}{login=vikttur}{date=01.02.2010 09:32}{thema=}{post}"Все это я приобрел за деньги, человек оказался не честный, сказал, что она у него работала когда-то, после получения моих денег"  
Как же это Вы - игрок вроде, а так Вас провели? :){/post}{/quote}  
Да провели, по словам этого человека, ему создали программу вот по этой идеи он перепродал ее мне, но она не рабочая.  
Вот сам принцеп работы, может есть у кого какие соображения  
А программа нерабочая весит около 2мб, с базой данных, может в ней что-то недоделанное.

{quote}{login=Михаил}{date=14.01.2010 07:00}{thema=Re: Re: }{post}{quote}{login=игрок}{date=14.01.2010 05:04}{thema=Re: }{post}есть хорошая идея для создания умного фильтра для лотерей есть часть решенной задачи, а до конца доделать не могу, файл могу сбросить только не в эху.{/post}{/quote}Ну так покажите файл. Только за размером следите.{/post}{/quote}  
 
есть два файла    
1 идея она весит около 100кб, что и как должно работать  
2 файл программы которая недоделанная 2мб.  
 
Все это я приобрел за деньги, человек оказался не честный, сказал, что она у него работала когда-то, после получения моих денег. В файле чего-то нахватает только не могу разобраться. сбросьте свой емел и я переброшу этих два файла, помогите разобраться плиз.

есть хорошая идея для создания умного фильтра для лотерей есть часть решенной задачи, а до конца доделать не могу, файл могу сбросить только не в эху.

{quote}{login=Михаил}{date=03.10.2009 05:24}{thema=}{post}Наверно что-то типа этого хочешь...{/post}{/quote}  
 
Не могу открыть файл. Excel пишет данные утеряны, после восстановления файла ничего нет.

Извините больше не буду, я думал что тема:..., автоматически создастся.

Как из таблицы данных сделать график по заданным критериям, чтоб сделать статистику

{quote}{login=Михаил}{date=02.10.2009 04:40}{thema=}{post}>> "Все нормально только не могу фильтр вписать, чтоб подряд идущие цифры больше 2 небело в строке вместе с фиксованными," <<    
Ну если еще актуально, то держи{/post}{/quote}  
 
Очень большое спасибо за помощь в решении моей так званой задачи.  
 
Хочу открыть другую тему.    
 
Как из таблицы данных сделать график по заданным критериям, чтоб сделать статистику

{quote}{login=Михаил}{date=30.09.2009 06:44}{thema=}{post}Вот пример:  
 
Sub MyTest()  
Dim Т_Д() 'Создаем массив данных  
Dim Ст1, Ст2, Ст3, Ст4, Ст5, Ст6, Стр, teim1, teim2 'переменные строк и cтолбцов  
Стр = 1  
Dim TheRange As Range  
teim1 = Timer  
Application.ScreenUpdating = False  
'For Ст1 = 1 To 7  
'If Ст1 = 2 Or Ст1 = 5 Then Ст1 = Ст1 + 1  
  ' For Ст2 = Ст1 + 1 To 8  
   'If Ст2 = 2 Or Ст2 = 5 Then Ст2 = Ст2 + 1  
       For Ст3 = Ст2 + 1 To 40  
       If Ст3 = 2 Or Ст3 = 5 Then Ст3 = Ст3 + 1  
           For Ст4 = Ст3 + 1 To 41  
           If Ст4 = 2 Or Ст4 = 5 Then Ст4 = Ст4 + 1  
               For Ст5 = Ст4 + 1 To 42  
               If Ст5 = 2 Or Ст5 = 5 Then Ст5 = Ст5 + 1  
                   ReDim Preserve Т_Д(1 To 5, 1 To Стр)  
                   Т_Д(1, Стр) = 2  
                   Т_Д(2, Стр) = 5  
                   Т_Д(3, Стр) = Ст3  
                   Т_Д(4, Стр) = Ст4  
                   Т_Д(5, Стр) = Ст5  
                     
                  Стр = Стр + 1  
 
               Next Ст5  
           Next Ст4  
       Next Ст3  
   'Next Ст2  
'Next Ст1  
Set TheRange = Range(Cells(2, 1), Cells(Стр, 5))  
 
TheRange.Value = Application.WorksheetFunction.Transpose(Т_Д)  
teim2 = Timer  
Application.ScreenUpdating = True  
 
MsgBox (teim2 - teim1)  
End Sub  
 
Здесь я в качестве примера взял два числа - 2 и 5 как постоянные. На основе этого примера можешь делать свои.{/post}{/quote}  
 
Все нормально только не могу фильтр вписать, чтоб подряд идущие цифры больше 2 небело в строке вместе с фиксованными,    
например  2 5 1 3 6

{quote}{login=Лузер™}{date=30.09.2009 04:56}{thema=}{post}Как бы ничего не понял.  
Я и первый-то раз с трудом идею понял.  
А сейчас так вообще...{/post}{/quote}  
 
В общем, идея в том чтобы создать все возможные варианты, например 5 из 42, это полная комбинация, а потом отфильтровать.    
 
Три и более подряд цифр никогда не выпадают на это уже есть фильтр цикла.  
 
А вот чтобы создать  неполную систему. Например, если угадать 5 цифр из 42, то, что б была гарантирована 3 (так званая неполная система), в цикле надо как-то отфильтровать чтоб 1 вариант с 3 цифрами повторялся только 1 раз.

{quote}{login=игрок}{date=30.09.2009 04:48}{thema=Re: }{post}{quote}{login=Лузер™}{date=30.09.2009 04:19}{thema=}{post}так побыстрее будет:  
 
 
     If Not ((k - j = 1) And (j - i = 1)) Then  
       For l = k + 1 To 9  
         If Not ((l - k = 1) And (k - j = 1)) Then  
           For m = l + 1 To 10  
             If Not ((m - l = 1) And (l - k = 1)) Then  
                 
 
End Sub{/post}{/quote}  
 
   Как бы фильтр усложнит  
1. Фильтр на максимум 3 фиксованных и две переменны  
Например 1 2 4 5 7  
        1 2 4 8 9  
а с 4 фиксованными отфильтровать  
Например 1 2 4 5 7  
        1 2 4 5 8  
1.Аналогично сделать второй фильтр только на 2 фиксованых а 3 и 4 отфильтровать{/post}{/quote}

{quote}{login=Лузер™}{date=30.09.2009 04:19}{thema=}{post}так побыстрее будет:  
 
 
     If Not ((k - j = 1) And (j - i = 1)) Then  
       For l = k + 1 To 9  
         If Not ((l - k = 1) And (k - j = 1)) Then  
           For m = l + 1 To 10  
             If Not ((m - l = 1) And (l - k = 1)) Then  
                 
 
End Sub{/post}{/quote}  
 
   Как бы фильтр усложнит  
1. Фильтр на максимум 3 фиксованных и две переменны  
Например 1 2 4 5 7  
        1 2 4 8 9  
а с 4 фиксованными отфильтровать  
Например 1 2 4 5 7  
        1 2 4 5 8  
1.Аналогично сделать второй фильтр только на 2 фиксованых а 2 и 3 отфильтровать

{quote}{login=Лузер™}{date=30.09.2009 03:09}{thema=}{post}игрок, Вы когда все деньги мира выиграете, отпишите сюда. Будем хоть знать, что помогли в создании "формулы успеха"{/post}{/quote}  
 
Что могу сказать про форум то он интересен и хорош.  
 
"формулы успеха" на верное нет, только фильтрами и статистикой можно приблизится к успеху на чуть-чуть.  
 
Если получится создать что-то в этом роде обязательно поделюсь.

{quote}{login=Михаил}{date=30.09.2009 02:52}{thema=}{post}Если исключить все варианты, где есть числа подряд, то в твоем примере останется всего шесть вариантов:  
1; 3; 5; 7; 9  
1; 3; 5; 7; 10  
1; 3; 5; 8; 10  
1; 3; 6; 8; 10  
1; 4; 6; 8; 10  
2; 4; 6; 8; 10{/post}{/quote}  
 
нет не шесть вариантов, а больше 2 подряд числа учитываются  
макрос предложены Лузером работает  
только как вернуть строки, подряд.  
 
Есть еще один вопрос если этим генератором сформировать 42 - 5 то вариантов должно бить 850668 строк, а ексель больше чем 65536 нет и выдает ошибку, как удлинить лист екселя по строкам

есть макрос  
Sub перебор_комбинаций()  
Dim myAraj()  
Dim i, j, k, l, m, myRows, p  
myRows = 1  
For i = 1 To 6  
   For j = i + 1 To 7  
       For k = j + 1 To 8  
           For l = k + 1 To 9  
               For m = l + 1 To 10  
                 Cells(myRows, 1) = i  
                 Cells(myRows, 2) = j  
                 Cells(myRows, 3) = k  
                 Cells(myRows, 4) = l  
                 Cells(myRows, 5) = m  
                 myRows = myRows + 1  
               Next m  
           Next l  
       Next k  
   Next j  
Next i  
 
End Sub  
 
всего комбинаций 252  
 
Как отфильтровать подряд идущих цифр больше 2-х в строке. Например, 1 2 3, 8 9 10, и так далее и комбинаций будет намного меньше.

{quote}{login=Михаил}{date=29.09.2009 12:32}{thema=}{post}Вот немного упрощенный вариант{/post}{/quote}  
 
Ураааа работает то, что надо. Но будет, изменятся 6 и 8 как бы сделать ссылку на ячейки, чтоб не менять весь макрос. Например, будет 5 и 36, 4 и 42, вариантов множество.

{quote}{login=The_Prist}{date=29.09.2009 10:22}{thema=}{post}Не до конца понял, что значит без повторений, если числа от 1 до 8.    
Может так? См.вложение.{/post}{/quote}  
 
Мысль правильна.  
 
Без повторений, это значит, что все строки не должны повторятся из указанного диапазона как в ЧИСЛКОМБ ()  
 
Как быть уверенным на 100% в выданных вариантах. В вашем варианте сколько б я строк и столбцов не выделил сгенерируется комбинация чисел, а надо чтоб больше чем ЧИСЛКОМБ () небело.

{quote}{login=Виталий}{date=29.09.2009 11:06}{thema=Re: Генератор чисел}{post}{quote}{login=игрок}{date=29.09.2009 09:25}{thema=Генератор чисел}{post}Помогите создать генератор чисел с помощью макроса. Чтоб он выдавал в таблице числа целые от 1 до 8 по 6 в каждой строке. Проще говоря, из =ЧИСЛКОМБ(8;6) сделать таблицу.  
 
см.вложение (доработано - повторений не должно быть){/post}{/quote}  
 
Да, но у Вас повторяются цифры в строке есть 2 единицы или 2 восьмёрки и так дал.  
 
Надо как-то из =ЧИСЛКОМБ () сделать таблицу. по строкам и столбцам числа 8 и 6 примерны они могут, меняются. Потом еще надо будет из этой таблицы сделать фильтр, но пока надо решить эту задачу.

{quote}{login=Микки}{date=29.09.2009 09:40}{thema=Re: }{post}{quote}{login=vikttur}{date=29.09.2009 09:36}{thema=}{post}Проверьте:  
=ЦЕЛОЕ(СЛЧИС()*8)+1  
Копируете в любое к-во ячеек.{/post}{/quote}  
Виктор я так понял надо все 28 вариантов перебрать без повторений.{/post}{/quote}  
 
Да, без повторений, это можно сделать только с помощью макроса наверное, вывести в таблицу и использовать функцию ЧИСЛКОМБ(8;6)