Jump to content

Fábio da Silva

Membro Inativo
  • Posts

    8
  • Joined

  • Last visited

1 Follower

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

Fábio da Silva's Achievements

Apprentice

Apprentice (3/14)

  • First Post
  • Conversation Starter
  • Week One Done
  • One Month Later
  • One Year in

Recent Badges

4

Reputation

  1. Alguém sabe criar filtros de loterias no excel ?
  2. Concurso 2016 2 linhas com 4 pts, 2 linhas com 5 pts e 1 linha com 17 pts......
  3. Concurso 2015 3 linhas com 15 pts......
  4. 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
  5. 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
  6. 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
  7. 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.
×
×
  • Create New...