pick3

[piter]

Please help me in the following =
Create a planilia in Excel, to create pairs with the smallest to the largest digit
Example 457 = pair with the smallest and largest digit = 47. But obeying the three positions in pick3
In the example under 4 digits 1 and is positioned higher in the 3rd position, the digit
In the middle goes like this case is 4:07 = 5.6. gave 5
= 749 Another example is the smallest 4-digit top nine of the pair taking the 2nd position and three
The seventh digit was between 4 and 9 = 5,6,7,8
Purpose of the macro is to create pairs in three positions pick3 rotation with the lowest and highest digit
The third digit is the lowest and highest type OK to filter the smaller more
Use the registration of designs and see the positions of the lower frequencies for more
It may just be ok to create the macro. thanks
pick3
1 st 2 nd 3 rd
4 5 7
7 8 9 ...
here's the list of registered sweepstakes picks opçap copy and paste or type!

 

[Scott Huish]

I, for one, don't understand what you are talking about.
You give examples, but don't really explain how you get them. What does the time 4:07 have to do with 5.6?

Another example is the smallest 4-digit top nine of the pair taking the 2nd position and three

Huh?

Please clarify.

 

[piter]

Hello, HOTPEPPER, thanks for replying, so goal is
In planilia excel 2010, has put a list of pick3
It is a lottery in u.s.a ok
this list
example
457
789
562
467
...
In this list, have the option of going out every time registering new draw may be entering
OK
Next, look at the 457, the lowest digit is the largest 4 7, is to show a color excel
In the list of results planilia where is the smallest and largest digit.
Step macro will separate these pairs = 47,79,26,46
Through the three positions the macro will see the frequency of the positions of minor and major digit, example, is leaving the most digits of the results NA3 th position. Ok thank you accept its improvement, goal HOTPEPPER and see with the macro and passes the smallest and largest digit
Within the three positions, here I see patterns, are the third digit pair that completes the pick3 put the leaves aside'll put randomly

 

[Scott Huish]

The first part I get and is really simple. I don't understand the last part.

Here's the macro so far and the results after running it. Although I think 467 should be 47 not 46 ????

Sub test()
Dim c As Range, t(1 To 3), x As Long, MinX As Long, MaxX As Long
Dim v1 As Long, v2 As Long
For Each c In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
    For x = 1 To 3
        t(x) = Val(Mid(c, x, 1))
    Next x
        MinX = Application.WorksheetFunction.Min(t)
        MaxX = Application.WorksheetFunction.Max(t)
        v1 = Val(MinX & MaxX)
        v2 = Val(MaxX & MinX)
        c.Offset(, 1).NumberFormat = "00"
        c.Offset(, 1) = IIf(v1 <= v2, v1, v2)
Next
End Sub

Sheet1

<TABLE style="BACKGROUND-COLOR: #ffffff; PADDING-LEFT: 2pt; PADDING-RIGHT: 2pt; FONT-FAMILY: Calibri,Arial; FONT-SIZE: 11pt" border=1 cellSpacing=0 cellPadding=0><COLGROUP><COL style="WIDTH: 30px; FONT-WEIGHT: bold"><COL style="WIDTH: 64px"><COL style="WIDTH: 68px"></COLGROUP><TBODY><TR style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt; FONT-WEIGHT: bold"><TD> </TD><TD>A</TD><TD>B</TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">1</TD><TD style="TEXT-ALIGN: right; FONT-FAMILY: Verdana; FONT-SIZE: 10pt">457</TD><TD style="TEXT-ALIGN: right">47</TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">2</TD><TD style="TEXT-ALIGN: right; FONT-FAMILY: Verdana; FONT-SIZE: 10pt">789</TD><TD style="TEXT-ALIGN: right">79</TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">3</TD><TD style="TEXT-ALIGN: right; FONT-FAMILY: Verdana; FONT-SIZE: 10pt">562</TD><TD style="TEXT-ALIGN: right">26</TD></TR><TR style="HEIGHT: 18px"><TD style="TEXT-ALIGN: center; BACKGROUND-COLOR: #cacaca; FONT-SIZE: 8pt">4</TD><TD style="TEXT-ALIGN: right; FONT-FAMILY: Verdana; FONT-SIZE: 10pt">467</TD><TD style="TEXT-ALIGN: right">47</TD></TR></TBODY></TABLE>

Excel tables to the web >> http://www.excel-jeanie-html.de/index.php?f=1" target="_blank"> Excel Jeanie HTML 4


Now, what's it supposed to do?

 

[piter]

Hello, hotpepper, okay, yeah, sorry the error is 47
Step 2 in their own list, select a highlight color to another color on the lower and higher
Can I type in blue and green in most less, then the pair separates the macro (that already does)
And a highlight color from the list of results
example
478
568 ....
Step 3, put on top three position in the header tions
1 st 2 nd 3 rd
4 7 8
5 6 8
You see the last 10 or the entire list of draws where pick3
In what position the lowest digit is overdue, or more digit
In the 10th digit of the biggest draws pick3 nai gettin 3rd positions in the five contests
So I'll put in the 3rd digit high positions because of the delay or the lowest digitoa see where this same thing late, you can be 10 or more draws opçap mark the number of draws,
OK
HOtpepper planilia can do in Excel 2010? The link it is corrupted, the problems with the link, thanks for help

 

[piter]

What I'm looking for is a macro in Excel 2010 to increase the seven numbers on the phone for a B cell
For example, if I have the following result of the lottery in cell A 43 19 22 36 25 11 49 -  increase in the next cell by a = 44 20 23 37 12 50 For this database the last number is 50 for this number does not may be increased to 51 and should be set at 01 again!

 

[Scott Huish]

How many iterations? And where are the initial 7 values coming from?

 

[piter]

hello hot
There are 50 columns in a spreadsheet, each column has more than 8000 entries (results) of each entry consists of 7 numbers! You have everything in column A, now I want to do is to increase all results in each cell for this column to be increased from 1 in column B, column 2 increased C increased 3 in column D, and so until all 50 columns are increased by one, so when you reach the end of 50 columns and this column if you increase by one, then you would reset the results to the entire column or back to start again!

 

[piter]

hello HOTPEPPER ,macro automatic ok=
There are 50 columns in a sheet, each column has over 8000 entries (results) each entry consist of 7 numbers! You have all that in column A, now what I want to do is to increase all the results in each cell for this column to be increased by 1 in column B, increased by 2 in column C, increased by 3 in column D and so on until all 50 columns are increased by one therefore when you get to the end of 50 columns and if you increase this column by 1 then you would be resetting the whole results to column A or back to beginning again!
I didn’t think this would be that difficult to understand

 

[Scott Huish]

It's not difficult for you to understand because you know what you are talking about. You need to explain your questions in such a way that somebody who has NO idea what you are talking about can understand.

So my understanding of what you are saying is this. Take the result from the first part and increment each value by 1 across 50 columns with a max of 50 at which point it will reset at 1. So if that is correct, does this do what you want?

Sub test()
Dim c As Range, t(1 To 3), x As Long, MinX As Long, MaxX As Long
Dim v1 As Long, v2 As Long, lr As Long
lr = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("A1:A" & lr)
    For x = 1 To 3
        t(x) = Val(Mid(c, x, 1))
    Next x
        MinX = Application.WorksheetFunction.Min(t)
        MaxX = Application.WorksheetFunction.Max(t)
        v1 = Val(MinX & MaxX)
        v2 = Val(MaxX & MinX)
        c.Offset(, 1).NumberFormat = "00"
        c.Offset(, 1) = IIf(v1 <= v2, v1, v2)
Next
With Range("C1:AZ" & lr)
    .Formula = "=MOD(B1,50)+1"
    .Value = .Value
End With
End Sub