Fábio da Silva

March 20, 2020

54 linhas para o concurso 2058.

Spoiler

01 02 03 04 08 12 14 15 17 20 21 22 23 24 29 31 33 35 38 40 42 44 45 46 47 53 55 56 58 60 61 66 67 68 69 73 76 77 78 79 81 82 84 89 90 95 96 97 99 00
01 02 04 06 08 11 15 16 18 19 22 24 26 27 28 31 32 33 35 37 41 43 44 48 49 52 53 57 59 60 61 63 64 65 70 72 75 76 79 80 86 87 88 89 90 93 94 95 97 00
01 02 04 06 09 11 12 15 16 19 24 25 27 28 29 31 32 33 38 40 44 46 47 49 50 53 55 57 58 60 63 64 65 68 70 72 73 75 76 77 81 82 83 88 89 91 94 96 97 00
01 02 04 07 08 11 12 15 17 20 23 24 26 28 30 33 37 38 39 40 41 42 43 44 46 51 52 53 54 58 61 65 66 68 69 74 75 76 79 80 82 85 87 89 90 93 95 96 97 99
01 02 05 08 09 12 14 17 18 20 21 24 26 27 29 31 34 36 37 40 41 42 43 44 45 52 53 57 59 60 61 62 63 66 70 73 75 76 77 78 84 85 88 89 90 93 95 96 98 99
01 02 06 08 09 11 12 14 17 20 24 25 26 27 30 33 36 37 38 39 41 43 44 45 49 51 52 53 55 57 65 66 68 69 70 71 75 77 78 80 82 83 84 89 90 92 93 94 96 98
01 02 06 09 10 11 12 13 19 20 22 24 25 28 29 31 34 35 36 38 42 46 47 48 50 53 54 55 57 58 61 63 65 68 70 72 73 75 76 77 81 84 87 89 90 93 94 96 97 99
01 02 06 09 10 12 14 15 17 20 21 23 24 28 29 33 34 35 36 37 42 44 46 47 49 55 57 58 59 60 61 62 63 66 70 71 72 73 75 78 81 84 88 89 90 93 95 96 97 98
01 03 04 05 09 14 15 16 17 19 21 23 24 28 29 32 33 36 38 40 41 42 44 46 49 52 53 57 59 60 61 64 67 68 70 71 73 75 78 80 82 85 86 87 90 92 95 96 97 98
01 03 05 08 09 12 14 17 18 19 24 25 26 28 29 33 34 36 39 40 41 42 43 44 45 51 52 53 57 60 62 63 65 66 70 71 75 76 77 80 84 87 88 89 90 91 92 96 97 98
01 03 05 08 09 12 14 18 19 20 21 24 25 28 30 31 32 33 35 37 41 44 47 49 50 51 52 54 56 59 62 65 66 67 70 73 76 78 79 80 83 84 86 87 88 92 93 95 96 97
01 03 05 09 10 11 12 13 17 18 24 25 27 28 29 32 34 35 36 37 42 46 47 48 49 51 52 53 54 60 62 65 66 69 70 71 75 76 78 80 83 84 87 89 90 91 93 94 96 98
01 04 06 07 08 15 17 18 19 20 21 22 23 24 29 33 34 35 36 38 42 43 44 46 50 52 53 55 57 59 61 65 66 68 69 72 75 77 78 80 81 82 83 89 90 91 94 96 97 00
01 04 06 08 09 11 16 18 19 20 24 25 26 27 30 33 34 35 36 39 42 43 45 46 47 51 52 53 57 58 62 63 64 65 70 72 74 75 79 80 81 87 88 89 90 91 92 93 97 98
01 04 06 08 10 11 15 16 18 19 21 24 26 27 29 32 34 35 36 37 41 42 43 47 50 51 52 53 58 60 62 63 64 67 70 72 73 75 78 79 84 85 86 87 89 93 95 98 99 00
01 04 06 08 10 11 15 18 19 20 23 25 26 29 30 31 32 33 37 38 42 43 44 48 49 51 53 54 56 57 61 62 65 66 69 72 74 75 77 80 82 84 87 89 90 93 95 96 97 98
01 05 06 07 09 11 13 14 19 20 24 25 26 28 30 33 34 35 37 40 42 44 46 48 49 51 52 56 57 59 61 63 65 66 70 72 73 75 77 78 82 84 88 89 90 91 92 93 97 98
01 05 06 08 09 12 13 14 16 17 21 22 23 24 25 31 33 38 39 40 41 44 46 49 50 52 53 57 59 60 61 62 65 67 70 74 75 76 77 78 83 84 86 87 88 92 95 98 99 00
01 06 08 09 10 13 15 17 19 20 22 23 25 28 29 33 34 36 38 39 41 42 44 46 47 52 53 54 56 60 61 62 63 64 67 71 75 77 78 80 81 84 85 87 89 92 95 96 98 00
02 03 04 06 09 12 14 15 18 19 21 23 25 27 28 33 34 36 37 38 41 44 46 47 49 51 52 53 56 60 62 65 66 69 70 71 73 75 78 80 82 87 88 89 90 91 94 95 97 00
02 03 04 06 09 14 15 17 18 20 23 24 25 26 28 31 32 36 39 40 41 42 44 46 49 54 55 57 58 59 61 62 63 67 70 72 73 75 77 78 81 85 87 89 90 91 93 96 98 00
02 03 04 07 08 12 14 18 19 20 21 24 25 26 29 31 35 36 38 39 41 45 47 49 50 51 52 53 54 59 61 62 63 66 68 75 76 77 78 80 83 85 86 87 90 92 93 94 97 00
02 03 04 08 09 11 12 14 17 18 22 23 24 29 30 33 34 35 36 37 41 42 46 47 50 51 56 58 59 60 61 63 65 66 70 75 76 77 78 80 81 82 83 85 89 94 95 97 98 99
02 03 05 08 09 11 13 16 18 19 21 24 25 28 30 31 33 34 36 37 41 42 44 46 47 51 52 57 59 60 62 63 64 65 70 72 75 78 79 80 86 87 88 89 90 93 94 95 96 97
02 03 05 08 09 12 14 15 19 20 21 23 24 27 29 33 35 36 37 38 41 45 46 47 48 51 52 53 56 60 61 62 66 67 70 71 74 75 76 78 83 84 87 89 90 92 94 98 99 00
02 03 07 08 09 14 15 16 18 19 21 23 26 27 28 31 34 36 37 40 42 44 46 47 50 51 52 56 59 60 61 62 63 65 69 71 72 73 75 78 84 85 88 89 90 93 94 95 97 00
02 04 06 09 10 11 12 13 17 19 24 25 26 27 28 31 33 34 37 38 41 43 44 45 48 52 53 55 57 59 61 66 68 69 70 71 75 76 78 80 82 83 85 89 90 92 94 96 97 00
02 04 06 09 10 11 12 15 17 18 23 24 26 28 30 31 32 33 34 37 41 44 45 49 50 51 52 56 57 59 61 63 66 68 69 72 73 75 77 80 85 86 88 89 90 93 94 95 97 98
02 04 07 08 10 11 13 16 18 19 22 24 25 29 30 32 33 34 35 37 41 44 46 48 50 51 52 56 57 59 61 63 65 66 69 72 73 75 76 77 81 87 88 89 90 93 94 95 98 00
02 04 08 09 10 11 14 17 18 19 22 24 25 29 30 34 35 36 37 38 41 43 45 47 50 51 52 53 59 60 61 63 65 66 70 73 76 77 78 79 81 82 84 85 86 92 93 96 97 98
02 04 08 09 10 13 14 16 18 19 21 22 24 26 29 31 33 35 36 38 41 42 43 46 47 52 53 57 59 60 61 63 65 67 70 71 74 75 77 80 84 85 88 89 90 92 95 96 97 98
02 05 06 08 09 11 13 17 19 20 21 24 26 29 30 34 35 36 37 40 42 45 46 47 48 51 52 53 54 57 61 62 63 68 70 71 72 73 75 78 84 85 88 89 90 93 94 96 97 99
02 06 07 09 10 12 14 18 19 20 21 23 24 28 29 31 32 33 35 37 41 42 43 44 45 51 52 56 57 59 63 65 66 69 70 74 75 77 78 80 84 86 87 88 90 91 93 95 96 98
03 04 05 06 09 11 12 17 19 20 21 24 25 27 30 32 33 36 37 38 42 46 47 48 49 51 52 53 54 58 61 62 65 66 70 71 74 75 78 80 83 84 87 89 90 93 95 96 98 99
03 04 05 06 09 11 15 18 19 20 23 24 26 28 29 33 34 35 36 39 41 42 43 47 50 51 52 53 57 60 61 62 64 65 69 72 75 77 78 80 81 84 86 87 88 92 96 97 98 00
03 04 05 07 09 12 16 17 19 20 21 22 23 28 30 33 34 36 37 38 44 46 47 49 50 51 52 58 59 60 61 62 63 64 65 71 73 75 78 80 81 84 85 86 87 92 95 96 98 99
03 04 06 07 08 12 15 18 19 20 21 22 23 27 30 31 33 34 37 38 43 44 46 49 50 53 54 55 56 60 61 62 65 68 69 71 72 76 77 79 81 82 85 89 90 94 95 96 97 98
03 04 06 07 08 13 14 15 17 19 24 25 26 27 30 31 32 34 36 39 41 43 47 48 50 51 52 53 59 60 62 63 68 69 70 71 72 75 78 80 84 85 86 87 89 91 92 95 96 98
03 04 06 07 08 14 15 16 18 19 22 24 26 27 30 31 33 35 36 38 41 43 44 45 49 51 52 57 59 60 62 65 66 67 70 71 73 78 79 80 82 83 84 89 90 91 92 95 97 98
03 04 06 07 09 11 13 16 18 19 21 22 23 24 25 31 32 36 38 40 42 43 44 47 50 52 55 57 59 60 61 62 68 69 70 73 75 76 77 78 84 85 88 89 90 91 94 95 96 97
03 04 06 07 09 12 14 16 17 20 21 22 24 25 29 33 36 38 39 40 41 42 44 47 48 51 54 55 58 59 61 62 63 68 70 71 72 75 78 80 83 85 86 87 90 93 95 96 97 99
03 04 07 08 10 11 12 15 16 17 21 22 23 25 28 32 33 35 36 39 42 46 47 48 50 51 53 54 59 60 61 64 66 68 69 71 72 74 75 79 83 84 86 87 90 95 97 98 99 00
03 04 07 08 10 12 15 16 18 19 21 22 24 26 29 33 35 36 38 39 41 43 47 48 50 51 52 53 55 60 62 64 66 69 70 71 75 77 78 79 81 84 85 86 87 92 93 94 97 00
03 06 07 08 09 11 12 14 17 18 22 24 25 26 29 33 34 35 37 40 42 43 44 48 49 51 54 55 59 60 61 62 65 66 70 72 73 76 77 79 81 83 86 88 90 91 95 97 98 00
03 06 07 08 09 11 12 14 18 19 21 23 24 26 27 33 34 35 37 40 41 42 44 45 46 51 52 57 59 60 63 64 65 66 70 72 73 78 79 80 82 85 88 89 90 91 95 96 97 98
03 06 07 08 10 11 12 13 17 20 22 23 28 29 30 31 33 34 35 37 41 43 44 46 49 52 54 55 56 59 61 62 65 67 68 71 74 75 79 80 84 86 87 88 90 92 95 96 98 99
03 07 08 09 10 12 14 15 17 19 21 24 25 28 30 32 33 38 39 40 41 42 46 47 50 51 52 54 58 59 62 63 65 66 70 71 73 75 76 79 83 84 86 87 88 91 94 95 96 97
04 05 07 08 09 13 15 16 18 19 21 24 25 27 30 31 33 38 39 40 41 42 44 46 47 51 52 57 59 60 62 63 64 66 70 72 73 75 78 79 81 85 86 87 90 92 93 94 96 98
04 06 07 08 10 11 13 15 16 17 22 24 25 29 30 31 32 35 36 38 42 43 47 48 50 51 53 54 57 59 62 63 68 69 70 71 74 78 79 80 81 82 84 85 86 93 95 96 97 99
04 06 07 08 10 12 15 16 18 19 22 24 25 27 29 31 33 34 36 37 41 43 44 47 50 52 55 56 58 59 61 62 65 69 70 71 73 75 78 80 81 83 86 88 89 92 93 94 97 00
05 06 07 08 09 11 14 15 19 20 22 23 24 29 30 32 33 35 36 39 41 43 44 47 50 51 52 53 55 60 61 62 66 68 69 74 75 77 78 80 81 84 86 87 88 92 93 96 97 98
05 06 07 08 10 11 13 16 18 19 22 24 25 26 30 31 33 34 36 37 41 42 44 48 49 52 54 57 58 59 61 63 65 69 70 72 73 74 75 77 82 85 87 89 90 91 93 96 98 00
05 06 07 08 10 11 14 16 19 20 22 24 25 29 30 32 33 36 38 40 41 42 44 48 49 51 52 56 57 59 61 62 63 65 68 73 74 75 77 79 83 84 86 87 90 91 93 95 97 98
06 07 08 09 10 13 15 16 18 19 21 22 23 25 28 32 34 35 36 37 42 43 47 48 50 51 52 54 56 59 61 62 63 64 70 71 74 75 79 80 81 84 86 87 88 93 95 97 99 00

November 25, 2019

Alguém sabe criar filtros de loterias no excel ?

October 25, 2019

Concurso 2016

2 linhas com 4 pts, 2 linhas com 5 pts e 1 linha com 17 pts...... :smile:

October 24, 2019

Concurso 2015

3 linhas com 15 pts...... :mellow:

October 19, 2019

100 linhas 5 números por linha e 5 número por coluna

01 04 06 07 08 13 14 15 17 19 21 22 24 25 29 31 33 37 38 40 42 44 46 48 50 51 52 54 59 60 63 65 66 67 70 72 73 75 76 79 82 87 88 89 90 91 93 95 96 98
01 04 06 07 08 13 17 18 19 20 21 22 23 27 30 32 34 35 36 37 42 46 47 49 50 51 54 58 59 60 61 63 65 66 69 71 72 73 74 75 84 85 88 89 90 92 93 95 96 98
01 04 06 08 09 11 12 13 15 17 21 22 23 25 26 31 33 37 38 40 42 46 47 49 50 54 55 56 59 60 63 64 65 68 70 74 75 77 78 79 81 82 84 89 90 92 93 96 97 98
01 04 06 08 10 11 13 17 19 20 22 23 25 26 29 32 35 36 37 39 41 42 44 45 48 53 54 57 58 60 61 62 64 65 66 71 75 77 78 80 83 84 87 89 90 92 93 96 98 99
01 04 06 08 10 12 15 17 19 20 21 24 26 27 29 32 33 34 35 37 42 43 44 48 49 51 52 53 56 57 61 62 65 68 69 71 75 76 77 80 83 84 88 89 90 93 95 96 98 00
01 04 07 08 09 11 14 16 19 20 21 22 23 26 29 32 33 35 37 38 41 42 43 46 47 51 52 53 59 60 62 64 65 66 70 73 74 75 77 78 84 85 88 89 90 95 96 97 98 00
01 05 06 07 09 11 13 14 19 20 24 25 26 28 30 33 34 35 37 40 42 44 46 48 49 51 52 56 57 59 61 63 65 66 70 72 73 75 77 78 82 84 88 89 90 91 92 93 97 98
01 05 08 09 10 11 13 18 19 20 22 24 25 26 29 34 35 36 37 40 42 43 47 48 49 51 52 53 54 59 61 62 65 66 70 74 75 76 77 78 83 84 86 87 88 91 92 93 97 00
01 05 08 09 10 11 14 16 18 19 22 23 24 26 29 33 34 35 36 39 42 43 47 48 50 51 52 53 55 57 61 66 67 68 70 72 74 75 79 80 83 84 85 86 87 91 92 97 98 00
01 05 08 09 10 11 14 17 18 19 22 23 24 26 27 32 33 34 35 40 42 44 46 47 50 52 55 57 58 59 61 62 63 66 70 71 73 75 76 77 81 84 86 88 89 93 95 98 99 00
01 06 08 09 10 12 14 17 18 20 21 24 25 27 28 33 34 35 36 37 41 43 47 49 50 53 54 55 56 60 61 62 65 67 70 71 72 75 76 79 82 83 84 88 89 92 93 96 98 99
01 07 08 09 10 11 12 14 18 19 21 24 25 27 30 31 32 33 35 37 42 43 44 47 50 52 53 54 56 59 62 65 66 69 70 75 76 78 79 80 83 84 86 87 88 91 93 95 96 98
01 07 08 09 10 12 14 15 16 19 21 22 23 25 26 31 33 34 36 37 41 42 44 45 46 54 55 57 58 59 63 66 68 69 70 71 73 75 78 80 82 87 88 89 90 92 93 94 97 00
02 03 04 05 08 11 14 16 19 20 23 24 26 28 29 31 32 33 37 39 41 42 44 46 47 51 53 55 58 60 66 67 68 69 70 71 72 73 75 80 84 85 87 88 89 92 95 96 97 00
02 03 04 05 08 12 16 17 18 19 21 22 23 26 29 34 36 37 39 40 41 44 46 48 50 51 52 57 59 60 61 63 64 65 70 71 73 75 77 80 84 85 87 88 89 92 93 95 96 98
02 03 04 06 09 12 14 15 16 17 21 24 26 28 29 31 33 36 37 38 42 43 44 47 50 51 52 54 59 60 61 62 65 68 69 71 73 75 77 80 83 85 86 88 90 95 97 98 99 00
02 03 04 06 09 13 14 15 17 19 21 24 25 28 30 33 35 36 38 39 41 44 46 47 48 51 52 55 59 60 61 62 66 67 70 71 75 77 78 80 82 83 84 89 90 92 93 96 97 98
02 03 04 07 08 11 12 14 15 19 24 26 27 28 29 33 34 35 36 39 42 43 44 45 48 51 52 53 57 60 61 62 65 66 70 71 75 76 78 80 81 87 88 89 90 93 96 97 99 00
02 03 04 07 08 11 12 14 17 20 24 25 26 27 28 32 33 35 39 40 41 44 46 47 48 51 56 58 59 60 61 63 64 65 70 71 72 75 76 79 82 83 85 88 89 93 96 97 99 00
02 03 04 07 08 11 14 16 19 20 21 22 23 26 29 33 35 36 38 40 42 43 45 46 47 51 52 53 54 59 61 64 65 67 69 71 75 77 78 80 84 85 88 89 90 92 96 97 98 00
02 03 05 06 09 11 12 14 17 18 23 25 26 27 28 31 32 33 39 40 41 42 44 45 49 53 54 57 59 60 61 65 66 68 70 73 74 75 76 77 82 84 88 89 90 91 96 97 98 00
02 03 05 06 09 11 14 16 19 20 21 24 25 27 30 31 34 35 36 38 41 43 44 48 49 52 55 57 59 60 62 63 64 67 70 72 77 78 79 80 81 82 83 86 88 93 95 96 97 98
02 03 05 08 09 11 13 14 19 20 21 22 23 24 25 31 32 36 39 40 43 44 45 47 50 52 55 57 58 59 61 65 66 67 70 74 76 77 78 79 84 86 87 88 90 91 92 93 96 98
02 03 05 09 10 12 14 16 19 20 23 24 27 28 29 31 33 34 35 37 41 45 46 47 50 51 52 54 59 60 63 66 68 69 70 72 73 75 76 78 81 84 86 87 88 91 92 95 97 98
02 03 07 08 09 11 12 13 14 17 22 23 24 28 29 32 33 34 35 36 41 43 44 45 49 51 54 57 59 60 62 65 66 68 70 71 75 76 77 80 85 86 88 89 90 91 96 97 98 00
02 03 07 08 09 12 14 16 18 19 21 23 24 29 30 31 32 35 36 37 42 46 47 49 50 51 52 53 58 60 63 64 65 66 70 71 75 76 78 80 81 84 85 87 89 93 94 95 97 98
02 03 07 09 10 14 15 16 18 19 22 23 25 28 29 31 32 33 37 40 41 44 46 47 49 51 52 54 56 59 62 63 65 66 70 74 75 77 78 80 81 83 84 86 88 91 95 97 98 00
02 03 08 09 10 11 12 15 16 19 23 24 25 26 28 33 34 35 38 40 41 42 46 47 48 51 55 57 58 59 61 62 63 64 70 74 75 77 79 80 81 84 86 87 90 92 93 96 97 99
02 03 08 09 10 12 13 15 19 20 24 26 27 28 29 31 34 36 37 40 41 43 44 45 48 52 53 54 57 59 61 62 63 66 68 71 75 76 77 80 81 84 85 86 87 92 95 98 99 00
02 03 08 09 10 14 15 16 18 19 22 24 25 26 30 31 33 38 39 40 41 42 44 47 50 51 52 53 56 57 61 65 67 68 69 71 74 75 78 79 83 84 86 87 90 92 93 95 96 97
02 04 05 06 09 11 12 15 17 19 22 24 26 27 28 32 33 34 35 36 42 43 47 48 50 51 54 55 59 60 61 66 67 68 69 71 73 75 78 80 83 84 87 89 90 91 93 96 98 00
02 04 05 06 09 11 13 15 19 20 21 23 25 27 30 32 33 34 36 38 41 42 43 47 50 51 53 54 58 59 61 62 67 68 69 72 76 77 79 80 84 85 86 88 90 94 95 96 97 98
02 04 05 06 09 14 15 16 19 20 21 23 25 27 30 31 33 37 38 40 41 44 46 47 48 52 54 56 58 59 61 62 63 64 67 72 73 78 79 80 81 82 85 89 90 93 95 96 97 98
02 04 06 09 10 11 12 13 15 17 21 24 25 27 28 33 35 36 37 38 41 42 46 47 48 51 53 54 56 57 63 65 66 69 70 71 74 78 79 80 82 83 84 89 90 92 95 98 99 00
02 04 06 09 10 11 12 13 17 19 21 23 24 25 28 32 33 35 37 38 41 45 47 48 49 51 52 56 57 59 62 63 64 66 70 71 74 75 77 80 84 85 86 88 90 93 96 98 99 00
02 04 06 09 10 11 12 14 17 20 21 24 25 28 29 31 33 34 35 37 42 43 46 47 49 53 56 57 58 59 61 62 65 69 70 71 74 75 78 80 83 85 86 88 90 92 93 96 97 98
02 04 06 09 10 12 14 15 17 20 21 23 28 29 30 33 34 36 37 38 42 46 47 48 49 51 52 57 58 59 63 64 65 69 70 71 73 75 77 80 81 82 84 85 86 91 93 95 96 98
02 04 06 09 10 13 14 15 17 19 21 23 26 27 28 32 33 35 36 38 41 45 47 49 50 51 53 54 56 59 61 62 65 67 68 71 72 73 75 80 84 87 88 89 90 92 94 96 98 00
02 04 07 08 10 11 12 16 17 18 21 23 24 28 29 31 32 33 35 36 42 46 47 48 49 52 55 57 59 60 61 63 64 65 70 73 74 75 76 79 81 84 86 87 90 93 95 98 99 00
02 05 06 07 09 12 13 15 19 20 21 22 23 28 29 32 34 35 36 38 41 43 44 47 50 51 54 55 58 59 66 67 68 69 70 71 74 75 77 80 81 83 84 86 88 92 93 96 97 00
02 05 06 08 09 13 14 16 19 20 21 22 23 24 25 31 33 38 39 40 41 42 46 47 50 51 52 56 57 59 63 64 65 67 70 71 75 77 78 80 84 85 87 88 89 92 93 94 96 98
02 06 08 09 10 11 12 15 17 20 21 24 26 27 29 33 34 35 36 38 43 44 47 49 50 51 52 54 58 59 61 62 65 67 68 71 73 75 79 80 83 85 86 87 90 92 93 94 96 98
02 06 08 09 10 11 13 14 17 19 24 25 26 27 30 32 33 34 35 37 42 43 47 48 50 51 53 54 56 59 61 63 65 68 69 72 75 78 79 80 81 84 86 87 90 91 92 95 96 98
02 06 08 09 10 14 15 16 17 19 24 25 27 28 29 31 33 35 38 40 41 43 44 46 50 52 53 55 57 59 61 62 63 66 68 73 74 75 77 80 81 82 84 86 89 91 92 97 98 00
02 06 08 09 10 15 17 18 19 20 21 24 25 26 29 31 33 34 35 37 43 44 46 47 50 51 52 53 54 59 61 62 63 66 70 71 72 73 75 78 82 87 88 89 90 94 95 96 97 98
03 04 05 06 09 11 12 13 17 19 21 22 24 25 29 31 32 36 38 40 42 43 46 47 50 51 54 58 59 60 61 62 65 67 68 73 74 75 76 77 83 84 88 89 90 95 96 97 98 00
03 04 05 06 09 11 12 17 19 20 21 24 25 27 30 32 33 36 37 38 42 46 47 48 49 51 52 53 54 58 61 62 65 66 70 71 74 75 78 80 83 84 87 89 90 93 95 96 98 99
03 04 05 06 09 11 14 16 19 20 21 22 24 25 30 33 34 38 39 40 41 42 46 47 48 51 52 53 57 58 62 65 66 67 70 73 74 75 78 79 81 83 85 86 87 92 97 98 99 00
03 04 05 06 09 11 17 18 19 20 22 24 25 28 29 32 33 37 38 40 43 44 46 47 50 51 54 55 56 59 61 62 63 68 70 71 72 73 74 75 81 86 87 89 90 92 95 96 97 98
03 04 05 06 09 12 14 18 19 20 21 22 24 25 30 33 34 36 38 39 42 46 47 48 49 51 52 53 57 58 61 62 65 67 70 71 73 75 77 80 81 83 84 86 88 95 96 97 99 00
03 04 05 07 09 11 17 18 19 20 23 25 26 27 30 31 32 33 38 40 41 42 44 46 48 52 54 57 58 59 61 63 65 66 70 71 72 74 75 76 82 83 84 88 89 95 96 97 99 00
03 04 05 07 09 12 14 18 19 20 21 23 26 27 28 31 33 37 38 40 44 45 46 47 50 51 52 56 59 60 61 62 63 64 66 71 72 75 76 79 82 85 88 89 90 93 94 95 97 98
03 04 05 08 10 11 12 17 19 20 24 25 26 27 30 31 33 34 35 37 41 42 46 47 48 52 53 54 56 57 61 62 65 68 69 71 73 75 76 79 83 84 88 89 90 92 96 98 99 00
03 04 05 08 10 13 14 16 19 20 21 23 24 25 26 32 33 36 37 38 41 42 46 47 48 51 52 56 57 59 61 63 65 68 69 72 74 75 77 80 81 82 84 89 90 95 97 98 99 00
03 04 05 09 10 11 12 15 17 20 21 22 23 25 28 31 33 34 37 38 42 44 46 48 49 53 54 57 59 60 61 62 66 68 69 71 73 75 76 77 85 86 87 89 90 92 94 96 98 00
03 04 05 09 10 12 14 16 17 20 21 23 24 25 28 33 36 37 38 39 42 43 47 48 49 51 53 54 56 59 62 65 66 68 70 71 74 75 77 80 81 82 87 89 90 91 92 95 96 98
03 04 06 07 08 11 13 14 19 20 23 26 27 28 30 31 32 35 36 39 41 42 43 46 47 51 52 54 59 60 61 64 65 68 69 72 75 77 78 80 82 83 85 89 90 94 95 96 97 98
03 04 06 07 08 12 14 18 19 20 21 23 25 27 30 31 32 33 35 36 41 44 48 49 50 55 57 58 59 60 61 62 64 65 66 72 73 76 77 79 81 83 86 87 90 92 94 95 98 99
03 04 06 07 08 13 15 17 19 20 22 23 24 28 29 31 35 36 38 40 41 42 46 47 48 51 52 53 59 60 63 64 65 66 70 72 74 75 78 79 81 84 87 89 90 91 92 95 96 97
03 04 06 07 09 11 12 15 18 19 21 23 28 29 30 31 35 36 38 39 41 42 44 47 50 53 54 56 57 60 61 62 65 66 70 74 75 77 78 80 82 83 84 88 89 92 93 95 96 97
03 04 06 07 09 12 13 14 16 17 24 25 27 28 29 31 33 35 38 40 41 42 46 47 48 51 52 57 59 60 63 64 65 69 70 71 72 75 78 80 81 82 84 86 90 93 95 96 98 99
03 04 06 07 09 12 14 18 19 20 21 24 25 28 29 31 35 36 38 40 41 43 44 49 50 52 56 57 58 59 61 62 64 65 67 72 73 75 77 80 83 85 86 87 90 91 92 93 96 98
03 04 06 07 09 13 16 17 19 20 21 24 25 27 28 31 32 33 35 36 41 43 44 48 49 51 52 53 57 58 62 65 66 69 70 71 72 75 78 80 84 85 88 89 90 92 94 96 97 00
03 04 07 08 09 14 15 16 19 20 21 22 23 28 30 32 36 37 38 39 41 43 46 47 50 51 52 53 54 59 61 62 64 65 66 71 75 78 79 80 82 85 86 87 90 93 94 95 97 98
03 04 07 08 10 11 12 15 16 19 21 22 23 26 29 33 34 38 39 40 41 43 46 47 50 51 52 53 54 57 61 62 65 66 70 74 75 77 78 80 84 85 87 88 89 92 95 96 98 99
03 04 07 08 10 11 13 15 16 17 22 24 26 27 29 32 36 37 38 39 42 46 47 48 49 51 52 56 59 60 61 63 64 65 70 71 73 74 75 78 81 82 85 89 90 93 94 95 98 00
03 04 07 08 10 12 15 16 18 19 21 22 24 26 29 33 35 36 38 39 41 43 47 48 50 51 52 53 55 60 62 64 66 69 70 71 75 77 78 79 81 84 85 86 87 92 93 94 97 00
03 05 06 07 09 14 15 17 19 20 21 24 25 27 28 31 33 34 36 39 41 42 43 44 46 51 52 58 59 60 61 62 63 68 70 72 77 78 79 80 83 84 85 86 87 92 95 96 98 00
03 06 07 08 09 11 12 14 15 17 21 23 26 27 28 34 35 36 37 40 41 44 45 47 49 51 52 53 58 60 62 63 65 66 70 72 74 75 78 79 81 82 84 89 90 93 96 98 99 00
03 06 07 08 09 11 12 15 18 19 21 24 25 26 29 33 34 36 39 40 41 42 46 47 50 51 52 53 55 60 64 65 67 68 70 73 74 75 77 78 82 83 84 89 90 91 92 96 97 98
03 06 07 08 09 12 14 15 19 20 21 23 27 28 30 31 32 34 36 39 41 43 44 45 48 52 53 55 57 58 61 62 66 69 70 74 76 77 79 80 81 82 84 85 86 93 95 97 98 00
03 06 07 08 09 14 15 17 18 20 21 24 25 29 30 32 33 34 36 38 41 42 43 47 50 51 52 55 56 59 61 62 63 66 68 71 72 75 78 80 84 85 87 89 90 93 94 96 97 99
03 06 07 08 10 11 12 14 15 17 21 23 25 26 27 31 33 34 36 39 41 42 44 45 47 52 56 58 59 60 62 63 64 65 70 71 73 75 78 79 82 84 88 89 90 96 97 98 99 00
03 06 07 08 10 13 14 15 17 19 21 22 23 26 29 32 33 38 39 40 42 43 44 45 48 51 52 54 56 59 61 66 67 68 70 71 72 74 75 80 84 85 86 87 89 91 95 97 98 00
03 06 07 09 10 11 14 16 18 19 23 26 27 28 30 32 33 34 35 37 41 42 44 45 48 51 53 54 56 59 61 62 65 67 70 72 73 78 79 80 81 82 85 89 90 94 95 96 97 98
03 06 07 09 10 12 14 15 18 19 21 22 24 25 29 33 36 37 38 39 41 43 44 46 48 51 52 53 57 60 61 62 65 66 70 71 74 75 77 80 83 84 88 89 90 92 95 96 97 98
03 06 07 09 10 12 14 15 18 19 23 24 25 26 28 31 32 33 35 40 41 44 48 49 50 51 52 56 57 59 61 62 66 67 70 72 73 75 78 79 83 84 86 87 88 91 94 95 97 00
03 06 07 09 10 13 14 16 18 19 21 24 25 26 30 31 33 34 36 38 42 43 44 45 49 52 53 55 57 58 61 64 67 68 70 72 75 78 79 80 81 82 87 89 90 91 92 95 96 97
03 07 08 09 10 12 14 15 16 19 21 23 24 25 26 31 32 33 35 37 44 46 48 49 50 51 52 55 59 60 61 62 63 67 68 73 75 76 77 78 84 86 88 89 90 91 92 94 97 00
03 07 08 09 10 12 15 16 18 19 21 23 24 25 28 31 33 34 36 37 41 42 46 47 50 51 52 55 59 60 61 62 63 64 65 72 74 75 76 78 84 87 88 89 90 93 96 97 99 00
03 07 08 09 10 12 16 17 18 19 21 23 25 26 27 31 33 34 38 40 41 42 44 45 47 51 52 55 56 59 62 63 64 69 70 72 74 75 79 80 84 86 87 88 90 91 93 95 96 98
03 07 08 09 10 14 15 17 18 20 21 23 24 25 26 34 36 37 39 40 42 43 47 48 49 51 52 53 59 60 61 62 65 66 68 71 72 74 75 76 81 84 87 89 90 92 93 95 96 98
04 05 06 07 09 11 13 15 17 20 21 22 23 28 30 32 33 35 36 39 43 45 47 48 50 51 52 53 54 58 61 62 66 69 70 72 74 78 79 80 84 85 86 87 88 91 94 96 97 99
04 06 07 08 10 11 12 13 17 20 21 23 24 29 30 33 34 36 38 39 45 46 47 49 50 51 52 55 58 59 61 62 63 65 68 71 72 74 75 76 84 85 87 89 90 92 93 96 97 98
04 06 07 08 10 11 13 17 19 20 21 22 23 24 29 31 32 33 35 40 41 45 46 47 48 52 54 56 58 59 61 62 64 65 67 75 76 78 79 80 83 84 87 89 90 92 93 95 96 98
04 06 07 08 10 11 15 16 18 19 22 23 24 29 30 32 33 36 38 40 41 42 44 47 50 51 52 53 54 59 61 62 65 68 69 71 73 74 75 77 85 86 87 89 90 93 95 96 97 98
04 06 07 08 10 12 14 15 17 19 21 23 24 27 29 32 33 35 37 38 41 43 47 48 50 51 55 56 58 59 61 62 63 66 70 72 75 76 79 80 81 82 84 86 89 93 94 95 98 00
05 06 07 08 09 11 13 14 15 17 22 23 24 27 29 31 33 35 38 40 41 44 46 48 50 52 55 56 59 60 61 62 63 67 68 71 74 75 79 80 82 84 86 87 90 92 93 96 98 99
05 06 07 08 09 12 14 16 18 19 21 23 24 26 29 33 35 36 38 40 42 43 44 45 50 51 52 57 59 60 61 62 63 66 68 72 75 77 78 80 81 84 87 89 90 91 93 94 95 97
05 06 07 08 10 11 12 17 18 19 21 23 24 25 29 32 33 34 37 40 41 43 44 46 50 51 53 54 56 59 62 65 66 67 70 71 72 75 78 79 84 85 86 87 88 92 93 98 99 00
05 06 07 08 10 11 13 16 18 19 22 24 25 26 30 31 33 34 36 37 41 42 44 48 49 52 54 57 58 59 61 63 65 69 70 72 73 74 75 77 82 85 87 89 90 91 93 96 98 00
05 06 07 08 10 12 15 16 18 19 21 23 24 27 29 31 33 34 35 37 42 45 46 47 48 51 53 54 59 60 61 62 68 69 70 71 73 75 79 80 82 84 86 87 90 92 93 94 96 98
05 06 07 09 10 11 13 14 15 17 21 23 25 26 27 32 33 35 37 38 42 43 44 46 50 51 52 53 58 60 61 64 66 68 69 74 75 77 79 80 82 84 88 89 90 91 92 96 98 99
05 06 07 09 10 11 13 17 19 20 21 22 23 25 30 32 34 36 38 39 41 44 46 47 48 51 53 54 58 59 61 62 64 65 66 72 73 75 77 80 84 85 88 89 90 92 93 96 97 98
05 06 07 09 10 13 14 15 17 19 21 24 25 27 30 31 33 34 38 40 44 46 48 49 50 52 55 56 58 59 61 62 63 66 70 72 73 75 77 78 81 82 84 86 89 91 92 93 97 98
05 07 08 09 10 14 15 16 18 19 21 22 23 25 28 32 33 34 38 40 42 44 46 47 49 51 54 56 59 60 61 62 63 66 70 73 74 75 77 79 81 85 86 87 90 91 92 93 97 98
06 07 08 09 10 11 12 13 19 20 22 24 25 27 29 31 33 34 35 37 42 43 44 47 50 51 56 58 59 60 61 63 64 65 70 72 75 76 78 79 81 84 86 87 88 92 93 95 96 98
06 07 08 09 10 11 13 14 19 20 23 24 28 29 30 32 34 35 36 37 41 42 43 44 46 51 52 56 57 59 62 65 66 68 70 71 72 73 75 80 84 85 87 88 89 91 93 95 97 98
06 07 08 09 10 12 14 18 19 20 21 22 23 25 26 31 33 35 38 40 42 44 46 47 50 52 53 54 56 59 61 62 66 68 69 73 74 75 77 80 81 84 85 87 89 91 93 95 97 98
06 07 08 09 10 12 15 18 19 20 21 23 24 25 28 33 34 35 37 40 42 43 46 47 49 51 52 55 56 59 62 63 64 66 70 71 74 75 78 79 81 84 86 87 88 91 92 93 97 00

November 20, 2018

Esta planilha esta com tantos erros que acho difícil de arruma-lá, mas se uma alma caridosa se dispuser ficaria grato.

Abaixo a planilha com os erros que achei.

Private Function Comb(r As Long, n As Long)
Dim c1 As New Collection, c2 As New Collection, arr(), arrTemp(), i As Long, j As Long, v
For i = 1 To n
c1.Add Array(-1, i)
Next i
While c1.Count
arr = c1(1)
c1.Remove 1
j = UBound(arr)
If j = r Then
c2.Add arr
Else
ReDim Preserve arr(j + 1)
For i = arr(j) + 1 To n
arr(j + 1) = i
c1.Add arr
Next i
End If
Wend
ReDim arr(1 To c2.Count)
ReDim arrTemp(1 To r)
i = 0
For Each v In c2
i = i + 1
For j = 1 To r
arrTemp(j) = v(j)
Next j
arr(i) = arrTemp
Next v
Comb = arr
End Function

Sub Main()
Dim rng As Range, arrTemp(), arr(), arr1(), arr2(), arrComb(1 To 4), isFound As Boolean, v
Dim i1 As Long, i2 As Long, i3 As Long, i4 As Long, i5 As Long, i As Long, j As Long, k As Long

For i = 1 To 4
arrComb(i) = Comb(i, 5)
Next i

Sheets("Plan2").Select
Set rng = Range("A1").CurrentRegion
Rows("12:23").ClearContents
rng.Interior.ColorIndex = 2
arr = rng.Value 'ERRO DE TEMPO DE EXECUÇÃO 13 TIPOS INCOMPATIVEIS
ReDim arrTemp(1 To 5)

loop1:
arr1 = arr
For i = 1 To 5
arrTemp(1) = 1: arrTemp(2) = 1: arrTemp(3) = Int(Rnd * 2): arrTemp(4) = 0: arrTemp(5) = 0
For j = 1 To 5
k = Int(Rnd * 5) + 1
v = arrTemp(j)
arrTemp(j) = arrTemp(k)
arrTemp(k) = v
Next j
For j = 1 To 5
arr1(i, j) = IIf(arrTemp(j) = 1, 1, vbNullString) 'ERRO DE EXECUÇÃO 9 SUBSCRITO FORA DO INTERVALO
Next j
Next i
For j = 1 To 5
k = 0
For i = 1 To 5
k = k + Val(arr1(i, j)) 'ERRO DE EXECUÇÃO 9 SUBSCRITO FORA DO INTERVALO
Next i
If k = 0 Or k = 5 Then GoTo loop1
Next j
arr = arr1

loop2:
arr1 = arr
For i = 1 To 5
k = 0
For j = 1 To 5
k = k + Val(arr1(i, j)) 'ERRO DE EXECUÇÃO 9 SUBSCRITO FORA DO INTERVALO
Next j
For j = 1 To k
arrTemp(j) = 0
Next j
For j = k + 1 To 5
arrTemp(j) = 1
Next j
For j = 1 To 5
k = Int(Rnd * 5) + 1
v = arrTemp(j)
arrTemp(j) = arrTemp(k)
arrTemp(k) = v
Next j
For j = 1 To 5
arr1(i, j + 5) = IIf(arrTemp(j) = 1, 1, vbNullString) 'ERRO DE EXECUÇÃO 9 SUBSCRITO FORA DO INTERVALO
Next j
Next i
For j = 1 To 5
k = 0
For i = 1 To 5
k = k + Val(arr1(i, j + 5)) 'ERRO DE EXECUÇÃO 9 SUBSCRITO FORA DO INTERVALO
Next i
If k = 0 Or k = 5 Then GoTo loop2
Next j
arr = arr1

loop3:
arr1 = arr
For j = 1 To 5
k = 0
For i = 1 To 5
k = k + Val(arr1(i, j)) 'ERRO DE EXECUÇÃO 9 SUBSCRITO FORA DO INTERVALO
Next i
For i = 1 To k
arrTemp(i) = 0
Next i
For i = k + 1 To 5
arrTemp(i) = 1
Next i
For i = 1 To 5
k = Int(Rnd * 5) + 1
v = arrTemp(i)
arrTemp(i) = arrTemp(k)
arrTemp(k) = v
Next i
For i = 1 To 5
arr1(i + 5, j) = IIf(arrTemp(i) = 1, 1, vbNullString) 'ERRO DE EXECUÇÃO 9 SUBSCRITO FORA DO INTERVALO
Next i
Next j
For i = 1 To 5
k = 0
For j = 1 To 5
k = k + Val(arr1(i + 5, j)) 'ERRO DE EXECUÇÃO 9 SUBSCRITO FORA DO INTERVALO
Next j
If k = 0 Or k = 5 Then GoTo loop3
Next i
arr = arr1

loop4:
For i = 1 To 5
k = 0
For j = 1 To 5
k = k + Val(arr1(i + 5, j)) 'ERRO DE EXECUÇÃO 9 SUBSCRITO FORA DO INTERVALO
Next j
arrTemp(i) = arrComb(5 - k) 'ERRO DE EXECUÇÃO 9 SUBSCRITO FORA DO INTERVALO
Next i
For i1 = 1 To UBound(arrTemp(1)) 'ERRO DE TEMPO DE EXECUÇÃO 13 TIPOS INCOMPATIVEIS
For j = 1 To 5
arr1(6, j + 5) = vbNullString 'ERRO DE EXECUÇÃO 9 SUBSCRITO FORA DO INTERVALO
Next j
For j = 1 To UBound(arrTemp(1)(i1)) 'ERRO DE TEMPO DE EXECUÇÃO 13 TIPOS INCOMPATIVEIS
arr1(6, 5 + arrTemp(1)(i1)(j)) = 1 'ERRO DE TEMPO DE EXECUÇÃO 13 TIPOS INCOMPATIVEIS
Next j
For i2 = 1 To UBound(arrTemp(2)) 'ERRO DE TEMPO DE EXECUÇÃO 13 TIPOS INCOMPATIVEIS
For j = 1 To 5
arr1(7, j + 5) = vbNullString 'ERRO DE EXECUÇÃO 9 SUBSCRITO FORA DO INTERVALO
Next j
For j = 1 To UBound(arrTemp(2)(i2)) 'ERRO DE TEMPO DE EXECUÇÃO 13 TIPOS INCOMPATIVEIS
arr1(7, 5 + arrTemp(2)(i2)(j)) = 1 'ERRO DE TEMPO DE EXECUÇÃO 13 TIPOS INCOMPATIVEIS
Next j
For i3 = 1 To UBound(arrTemp(3)) 'ERRO DE TEMPO DE EXECUÇÃO 13 TIPOS INCOMPATIVEIS
For j = 1 To 5
arr1(8, j + 5) = vbNullString 'ERRO DE EXECUÇÃO 9 SUBSCRITO FORA DO INTERVALO
Next j
For j = 1 To UBound(arrTemp(3)(i3)) 'ERRO DE TEMPO DE EXECUÇÃO 13 TIPOS INCOMPATIVEIS
arr1(8, 5 + arrTemp(3)(i3)(j)) = 1 'ERRO DE TEMPO DE EXECUÇÃO 13 TIPOS INCOMPATIVEIS
Next j
For i4 = 1 To UBound(arrTemp(4)) 'ERRO DE TEMPO DE EXECUÇÃO 13 TIPOS INCOMPATIVEIS
For j = 1 To 5
arr1(9, j + 5) = vbNullString 'ERRO DE EXECUÇÃO 9 SUBSCRITO FORA DO INTERVALO
Next j
For j = 1 To UBound(arrTemp(4)(i4)) 'ERRO DE TEMPO DE EXECUÇÃO 13 TIPOS INCOMPATIVEIS
arr1(9, 5 + arrTemp(4)(i4)(j)) = 1 'ERRO DE TEMPO DE EXECUÇÃO 13 TIPOS INCOMPATIVEIS
Next j
For i5 = 1 To UBound(arrTemp(5)) 'ERRO DE TEMPO DE EXECUÇÃO 13 TIPOS INCOMPATIVEIS
For j = 1 To 5
arr1(10, j + 5) = vbNullString 'ERRO DE EXECUÇÃO 9 SUBSCRITO FORA DO INTERVALO
Next j
For j = 1 To UBound(arrTemp(5)(i5)) 'ERRO DE TEMPO DE EXECUÇÃO 13 TIPOS INCOMPATIVEIS
arr1(10, 5 + arrTemp(5)(i5)(j)) = 1 'ERRO DE TEMPO DE EXECUÇÃO 13 TIPOS INCOMPATIVEIS
Next j
'=================
isFound = True
For j = 1 To 5
k = 0
For i = 1 To 10
k = k + Val(arr1(i, j + 5)) 'ERRO DE EXECUÇÃO 9 SUBSCRITO FORA DO INTERVALO
Next i
If k <> 5 Then
isFound = False
Exit For
End If
Next j
If isFound Then
arr = rng.Value
For i = 1 To UBound(arr, 1)
For j = 1 To UBound(arr, 2)
If arr1(i, j) = vbNullString Then arr(i, j) = vbNullString
Next j
Next i
Range("A12").Resize(UBound(arr1, 1), UBound(arr, 2)).Value = arr
ReDim arrTemp(1 To 1, 1 To 101)
k = 0
For i = 1 To 5
For j = 1 To 5
If arr(i, j) <> vbNullString Then
k = k + 1
arrTemp(1, k) = arr(i, j)
End If
Next j
Next i
For i = 1 To 5
For j = 6 To 10
If arr(i, j) <> vbNullString Then
k = k + 1
arrTemp(1, k) = arr(i, j)
End If
Next j
Next i
For i = 6 To 10
For j = 1 To 5
If arr(i, j) <> vbNullString Then
k = k + 1
arrTemp(1, k) = arr(i, j)
End If
Next j
Next i
For i = 6 To 10
For j = 6 To 10
If arr(i, j) <> vbNullString Then
k = k + 1
arrTemp(1, k) = arr(i, j)
End If
Next j
Next i
k = k + 1
arrTemp(1, k) = "Total " & k - 1 & " numbers."
Range("A23").Resize(1, k) = arrTemp
Exit Sub
End If
'=================
Next i5
Next i4
Next i3
Next i2
Next i1
End Sub
Sub Generate300()
Dim i As Long
With Sheets("Plan3")
.Cells.ClearContents
For i = 1 To 300
Main
Sheets("Plan2").Range("A23").CurrentRegion.Copy .Range("A65000").End(xlUp).Offset(1)
MsgBox "Iteration : " & i
Next i
End With
End Sub

November 19, 2018

22 horas atrás, sorel disse:

ola zangado( brabo) esta macro alem de gerar aleatorio, gera 5 por linha e 5 por coluna que é que esta ocoreendo em 92%


Private Function Comb(r As Long, n As Long)
  Dim c1 As New Collection, c2 As New Collection, arr(), arrTemp(), i As Long, j As Long, v
  For i = 1 To n
    c1.Add Array(-1, i)
  Next i
  While c1.Count
    arr = c1(1)
    c1.Remove 1
    j = UBound(arr)
    If j = r Then
      c2.Add arr
    Else
      ReDim Preserve arr(j + 1)
      For i = arr(j) + 1 To n
        arr(j + 1) = i
        c1.Add arr
      Next i
    End If
  Wend
  ReDim arr(1 To c2.Count)
  ReDim arrTemp(1 To r)
  i = 0
  For Each v In c2
    i = i + 1
    For j = 1 To r
      arrTemp(j) = v(j)
    Next j
    arr(i) = arrTemp
  Next v
  Comb = arr
End Function

Sub Main()
  Dim rng As Range, arrTemp(), arr(), arr1(), arr2(), arrComb(1 To 4), isFound As Boolean, v
  Dim i1 As Long, i2 As Long, i3 As Long, i4 As Long, i5 As Long, i As Long, j As Long, k As Long

  For i = 1 To 4
    arrComb(i) = Comb(i, 5)
  Next i

  Sheets("Plan2").Select
  Set rng = Range("A1").CurrentRegion
  Rows("12:23").ClearContents
  rng.Interior.ColorIndex = 2
  arr = rng.Value
  ReDim arrTemp(1 To 5)

loop1:
  arr1 = arr
  For i = 1 To 5
    arrTemp(1) = 1: arrTemp(2) = 1: arrTemp(3) = Int(Rnd * 2): arrTemp(4) = 0: arrTemp(5) = 0
    For j = 1 To 5
      k = Int(Rnd * 5) + 1
      v = arrTemp(j)
      arrTemp(j) = arrTemp(k)
      arrTemp(k) = v
    Next j
    For j = 1 To 5
      arr1(i, j) = IIf(arrTemp(j) = 1, 1, vbNullString)
    Next j
  Next i
  For j = 1 To 5
    k = 0
    For i = 1 To 5
      k = k + Val(arr1(i, j))
    Next i
    If k = 0 Or k = 5 Then GoTo loop1
  Next j
  arr = arr1

loop2:
  arr1 = arr
  For i = 1 To 5
    k = 0
    For j = 1 To 5
      k = k + Val(arr1(i, j))
    Next j
    For j = 1 To k
      arrTemp(j) = 0
    Next j
    For j = k + 1 To 5
      arrTemp(j) = 1
    Next j
    For j = 1 To 5
      k = Int(Rnd * 5) + 1
      v = arrTemp(j)
      arrTemp(j) = arrTemp(k)
      arrTemp(k) = v
    Next j
    For j = 1 To 5
      arr1(i, j + 5) = IIf(arrTemp(j) = 1, 1, vbNullString)
    Next j
  Next i
  For j = 1 To 5
    k = 0
    For i = 1 To 5
      k = k + Val(arr1(i, j + 5))
    Next i
    If k = 0 Or k = 5 Then GoTo loop2
  Next j
  arr = arr1
  
loop3:
  arr1 = arr
  For j = 1 To 5
    k = 0
    For i = 1 To 5
      k = k + Val(arr1(i, j))
    Next i
    For i = 1 To k
      arrTemp(i) = 0
    Next i
    For i = k + 1 To 5
      arrTemp(i) = 1
    Next i
    For i = 1 To 5
      k = Int(Rnd * 5) + 1
      v = arrTemp(i)
      arrTemp(i) = arrTemp(k)
      arrTemp(k) = v
    Next i
    For i = 1 To 5
      arr1(i + 5, j) = IIf(arrTemp(i) = 1, 1, vbNullString)
    Next i
  Next j
  For i = 1 To 5
    k = 0
    For j = 1 To 5
      k = k + Val(arr1(i + 5, j))
    Next j
    If k = 0 Or k = 5 Then GoTo loop3
  Next i
  arr = arr1
  
loop4:
  For i = 1 To 5
    k = 0
    For j = 1 To 5
      k = k + Val(arr1(i + 5, j))
    Next j
    arrTemp(i) = arrComb(5 - k)
  Next i
  For i1 = 1 To UBound(arrTemp(1))
    For j = 1 To 5
      arr1(6, j + 5) = vbNullString
    Next j
    For j = 1 To UBound(arrTemp(1)(i1))
      arr1(6, 5 + arrTemp(1)(i1)(j)) = 1
    Next j
    For i2 = 1 To UBound(arrTemp(2))
      For j = 1 To 5
        arr1(7, j + 5) = vbNullString
      Next j
      For j = 1 To UBound(arrTemp(2)(i2))
        arr1(7, 5 + arrTemp(2)(i2)(j)) = 1
      Next j
      For i3 = 1 To UBound(arrTemp(3))
        For j = 1 To 5
          arr1(8, j + 5) = vbNullString
        Next j
        For j = 1 To UBound(arrTemp(3)(i3))
          arr1(8, 5 + arrTemp(3)(i3)(j)) = 1
        Next j
        For i4 = 1 To UBound(arrTemp(4))
          For j = 1 To 5
            arr1(9, j + 5) = vbNullString
          Next j
          For j = 1 To UBound(arrTemp(4)(i4))
            arr1(9, 5 + arrTemp(4)(i4)(j)) = 1
          Next j
          For i5 = 1 To UBound(arrTemp(5))
            For j = 1 To 5
              arr1(10, j + 5) = vbNullString
            Next j
            For j = 1 To UBound(arrTemp(5)(i5))
              arr1(10, 5 + arrTemp(5)(i5)(j)) = 1
            Next j
           '=================
            isFound = True
             For j = 1 To 5
               k = 0
              For i = 1 To 10
                k = k + Val(arr1(i, j + 5))
              Next i
              If k <> 5 Then
                 isFound = False
                 Exit For
              End If
            Next j
            If isFound Then
               arr = rng.Value
               For i = 1 To UBound(arr, 1)
                 For j = 1 To UBound(arr, 2)
                   If arr1(i, j) = vbNullString Then arr(i, j) = vbNullString
                 Next j
               Next i
               Range("A12").Resize(UBound(arr1, 1), UBound(arr, 2)).Value = arr
               ReDim arrTemp(1 To 1, 1 To 101)
               k = 0
               For i = 1 To 5
                 For j = 1 To 5
                   If arr(i, j) <> vbNullString Then
                      k = k + 1
                      arrTemp(1, k) = arr(i, j)
                   End If
                 Next j
               Next i
               For i = 1 To 5
                 For j = 6 To 10
                   If arr(i, j) <> vbNullString Then
                      k = k + 1
                      arrTemp(1, k) = arr(i, j)
                   End If
                 Next j
               Next i
               For i = 6 To 10
                 For j = 1 To 5
                   If arr(i, j) <> vbNullString Then
                      k = k + 1
                      arrTemp(1, k) = arr(i, j)
                   End If
                 Next j
               Next i
               For i = 6 To 10
                 For j = 6 To 10
                   If arr(i, j) <> vbNullString Then
                      k = k + 1
                      arrTemp(1, k) = arr(i, j)
                   End If
                 Next j
               Next i
               k = k + 1
               arrTemp(1, k) = "Total " & k - 1 & " numbers."
               Range("A23").Resize(1, k) = arrTemp
               Exit Sub
            End If
           '=================
          Next i5
        Next i4
      Next i3
    Next i2
  Next i1
End Sub
Sub Generate300()
  Dim i As Long
  With Sheets("Plan3")
    .Cells.ClearContents
    For i = 1 To 300
      Main
      Sheets("Plan2").Range("A23").CurrentRegion.Copy .Range("A65000").End(xlUp).Offset(1)
      MsgBox "Iteration : " & i
    Next i
  End With
End Sub

Olá Sorel rodei sua macro mas ela está dando erro, escrevi onde está o erro, espero que o corrija.

Private Function Comb(r As Long, n As Long)
Dim c1 As New Collection, c2 As New Collection, arr(), arrTemp(), i As Long, j As Long, v
For i = 1 To n
c1.Add Array(-1, i)
Next i
While c1.Count
arr = c1(1)
c1.Remove 1
j = UBound(arr)
If j = r Then
c2.Add arr
Else
ReDim Preserve arr(j + 1)
For i = arr(j) + 1 To n
arr(j + 1) = i
c1.Add arr
Next i
End If
Wend
ReDim arr(1 To c2.Count)
ReDim arrTemp(1 To r)
i = 0
For Each v In c2
i = i + 1
For j = 1 To r
arrTemp(j) = v(j)
Next j
arr(i) = arrTemp
Next v
Comb = arr
End Function

Sub Main()
Dim rng As Range, arrTemp(), arr(), arr1(), arr2(), arrComb(1 To 4), isFound As Boolean, v
Dim i1 As Long, i2 As Long, i3 As Long, i4 As Long, i5 As Long, i As Long, j As Long, k As Long

For i = 1 To 4
arrComb(i) = Comb(i, 5)
Next i

Sheets("Plan2").Select
Set rng = Range("A1").CurrentRegion
Rows("12:23").ClearContents
rng.Interior.ColorIndex = 2
arr = rng.Value '>ERRO EM TEMPO DE EXECUÇÃO 13
ReDim arrTemp(1 To 5)

loop1:
arr1 = arr
For i = 1 To 5
arrTemp(1) = 1: arrTemp(2) = 1: arrTemp(3) = Int(Rnd * 2): arrTemp(4) = 0: arrTemp(5) = 0
For j = 1 To 5
k = Int(Rnd * 5) + 1
v = arrTemp(j)
arrTemp(j) = arrTemp(k)
arrTemp(k) = v
Next j
For j = 1 To 5
arr1(i, j) = IIf(arrTemp(j) = 1, 1, vbNullString)
Next j
Next i
For j = 1 To 5
k = 0
For i = 1 To 5
k = k + Val(arr1(i, j))
Next i
If k = 0 Or k = 5 Then GoTo loop1
Next j
arr = arr1

loop2:
arr1 = arr
For i = 1 To 5
k = 0
For j = 1 To 5
k = k + Val(arr1(i, j))
Next j
For j = 1 To k
arrTemp(j) = 0
Next j
For j = k + 1 To 5
arrTemp(j) = 1
Next j
For j = 1 To 5
k = Int(Rnd * 5) + 1
v = arrTemp(j)
arrTemp(j) = arrTemp(k)
arrTemp(k) = v
Next j
For j = 1 To 5
arr1(i, j + 5) = IIf(arrTemp(j) = 1, 1, vbNullString)
Next j
Next i
For j = 1 To 5
k = 0
For i = 1 To 5
k = k + Val(arr1(i, j + 5))
Next i
If k = 0 Or k = 5 Then GoTo loop2
Next j
arr = arr1

loop3:
arr1 = arr
For j = 1 To 5
k = 0
For i = 1 To 5
k = k + Val(arr1(i, j))
Next i
For i = 1 To k
arrTemp(i) = 0
Next i
For i = k + 1 To 5
arrTemp(i) = 1
Next i
For i = 1 To 5
k = Int(Rnd * 5) + 1
v = arrTemp(i)
arrTemp(i) = arrTemp(k)
arrTemp(k) = v
Next i
For i = 1 To 5
arr1(i + 5, j) = IIf(arrTemp(i) = 1, 1, vbNullString)
Next i
Next j
For i = 1 To 5
k = 0
For j = 1 To 5
k = k + Val(arr1(i + 5, j))
Next j
If k = 0 Or k = 5 Then GoTo loop3
Next i
arr = arr1

loop4:
For i = 1 To 5
k = 0
For j = 1 To 5
k = k + Val(arr1(i + 5, j))
Next j
arrTemp(i) = arrComb(5 - k)
Next i
For i1 = 1 To UBound(arrTemp(1))
For j = 1 To 5
arr1(6, j + 5) = vbNullString
Next j
For j = 1 To UBound(arrTemp(1)(i1))
arr1(6, 5 + arrTemp(1)(i1)(j)) = 1
Next j
For i2 = 1 To UBound(arrTemp(2))
For j = 1 To 5
arr1(7, j + 5) = vbNullString
Next j
For j = 1 To UBound(arrTemp(2)(i2))
arr1(7, 5 + arrTemp(2)(i2)(j)) = 1
Next j
For i3 = 1 To UBound(arrTemp(3))
For j = 1 To 5
arr1(8, j + 5) = vbNullString
Next j
For j = 1 To UBound(arrTemp(3)(i3))
arr1(8, 5 + arrTemp(3)(i3)(j)) = 1
Next j
For i4 = 1 To UBound(arrTemp(4))
For j = 1 To 5
arr1(9, j + 5) = vbNullString
Next j
For j = 1 To UBound(arrTemp(4)(i4))
arr1(9, 5 + arrTemp(4)(i4)(j)) = 1
Next j
For i5 = 1 To UBound(arrTemp(5))
For j = 1 To 5
arr1(10, j + 5) = vbNullString
Next j
For j = 1 To UBound(arrTemp(5)(i5))
arr1(10, 5 + arrTemp(5)(i5)(j)) = 1
Next j
'=================
isFound = True
For j = 1 To 5
k = 0
For i = 1 To 10
k = k + Val(arr1(i, j + 5))
Next i
If k <> 5 Then
isFound = False
Exit For
End If
Next j
If isFound Then
arr = rng.Value
For i = 1 To UBound(arr, 1)
For j = 1 To UBound(arr, 2)
If arr1(i, j) = vbNullString Then arr(i, j) = vbNullString
Next j
Next i
Range("A12").Resize(UBound(arr1, 1), UBound(arr, 2)).Value = arr
ReDim arrTemp(1 To 1, 1 To 101)
k = 0
For i = 1 To 5
For j = 1 To 5
If arr(i, j) <> vbNullString Then
k = k + 1
arrTemp(1, k) = arr(i, j)
End If
Next j
Next i
For i = 1 To 5
For j = 6 To 10
If arr(i, j) <> vbNullString Then
k = k + 1
arrTemp(1, k) = arr(i, j)
End If
Next j
Next i
For i = 6 To 10
For j = 1 To 5
If arr(i, j) <> vbNullString Then
k = k + 1
arrTemp(1, k) = arr(i, j)
End If
Next j
Next i
For i = 6 To 10
For j = 6 To 10
If arr(i, j) <> vbNullString Then
k = k + 1
arrTemp(1, k) = arr(i, j)
End If
Next j
Next i
k = k + 1
arrTemp(1, k) = "Total " & k - 1 & " numbers."
Range("A23").Resize(1, k) = arrTemp
Exit Sub
End If
'=================
Next i5
Next i4
Next i3
Next i2
Next i1
End Sub
Sub Generate300()
Dim i As Long
With Sheets("Plan3")
.Cells.ClearContents
For i = 1 To 300
Main
Sheets("Plan2").Range("A23").CurrentRegion.Copy .Range("A65000").End(xlUp).Offset(1)
MsgBox "Iteration : " & i
Next i
End With
End Sub

November 18, 2018

Olá, baixei recentemente uma fórmula para gerar números aleatórios no vba para Lotomania mas a mesma gera combinações repetidas.

Alguém saberia me dizer qual o problema da fórmula.

Abaixo a fórmula.

Sub test()

Dim Numjogos As Long
Dim NumDezenas As Integer

Numjogos = 1048576 'Número jogos
NumDezenas = 50 'N dezenas

Dim Li As Long
Li = 1 ' Na linha 1
For i = 1 To Numjogos

Jogo_Time Li, NumDezenas
Li = Li + 1
Next i

Sheets(1).Select

End Sub

Sub Jogo_Time(Linha, qtde)

'Randomize Timer
a = qtde 'quantidade de dezenas
c = 100 'limite de 1 a 100 de dezenas
s = 1 'Na coluna 1

For i = 0 To 99
'Valores ou variaveis do tipo Sigle são armazenadas como números IEEE de vírgula flutuante de 32 bits (4 bytes)
'São números com casas decimais ou fracionados Ex: 0,25333
'Função "Rnd" Retorna um Single que contém um número aleatório podendo ser positivo ou negativo .

If Rnd <= a / c Then
a = a - 1
Cells(Linha, s) = i
s = s + 1
End If
c = c - 1
Next i

End Sub
Sub tes()

Agradeço qualquer ajuda.

Sign In

Fábio da Silva

Posts

Joined

Last visited

Content Type

Profiles

Forums

Downloads

Posts posted by Fábio da Silva

Palpites Lotomania

Criar filtros no excel para loterias

LOTOMANIA - 100 palpites

LOTOMANIA - 100 palpites

LOTOMANIA - 100 palpites

Formula para gerar números aleatórios gera números repetidos

Formula para gerar números aleatórios gera números repetidos

Formula para gerar números aleatórios gera números repetidos

Forums

Loterias

Activity