Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Fill cells with pseudo-random values
excel spreadsheet, 5 columns, fourth column (D) contains no data.
I want fill column D with pseudo-random values: 350, 540, 750, 1500, 1200, 2000, 630, 450, 1800, 970 need be filled in cells in random order. ( entered in rows from 2 - 7303, not needs for all column) Thanks, santander |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Fill cells with pseudo-random values
MyNums = Array(350, 540, 750, 1500, 1200, 2000, _
630, 450, 1800, 970) ArraySize = UBound(MyNums) + 1 For RowCount = 2 To 7303 RanNum = Int(ArraySize * Rnd()) Range("D" & RowCount) = MyNums(RanNum) Next RowCount "SANTANDER" wrote: excel spreadsheet, 5 columns, fourth column (D) contains no data. I want fill column D with pseudo-random values: 350, 540, 750, 1500, 1200, 2000, 630, 450, 1800, 970 need be filled in cells in random order. ( entered in rows from 2 - 7303, not needs for all column) Thanks, santander |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Fill cells with pseudo-random values
Hi,
maybe this Right click the sheet tab, view code and paste this in and run it Sub stance() For x = 2 To 7303 myvalue = Int((10 * Rnd) + 1) Cells(x, 4).Value = Application.WorksheetFunction.Choose _ (myvalue, 350, 540, 750, 1500, 1200, 2000, 630, 450, 1800, 970) Next End Sub Mike "SANTANDER" wrote: excel spreadsheet, 5 columns, fourth column (D) contains no data. I want fill column D with pseudo-random values: 350, 540, 750, 1500, 1200, 2000, 630, 450, 1800, 970 need be filled in cells in random order. ( entered in rows from 2 - 7303, not needs for all column) Thanks, santander |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Fill cells with pseudo-random values
When paste this code, its not recognized as macro - nothing to run.
santander "Joel" wrote in message ... MyNums = Array(350, 540, 750, 1500, 1200, 2000, _ 630, 450, 1800, 970) ArraySize = UBound(MyNums) + 1 For RowCount = 2 To 7303 RanNum = Int(ArraySize * Rnd()) Range("D" & RowCount) = MyNums(RanNum) Next RowCount "SANTANDER" wrote: excel spreadsheet, 5 columns, fourth column (D) contains no data. I want fill column D with pseudo-random values: 350, 540, 750, 1500, 1200, 2000, 630, 450, 1800, 970 need be filled in cells in random order. ( entered in rows from 2 - 7303, not needs for all column) Thanks, santander |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Fill cells with pseudo-random values
Hi,
yes it works. thanks. ~~~~~~~~~ "Mike H" wrote in message ... Hi, maybe this Right click the sheet tab, view code and paste this in and run it Sub stance() For x = 2 To 7303 myvalue = Int((10 * Rnd) + 1) Cells(x, 4).Value = Application.WorksheetFunction.Choose _ (myvalue, 350, 540, 750, 1500, 1200, 2000, 630, 450, 1800, 970) Next End Sub Mike "SANTANDER" wrote: excel spreadsheet, 5 columns, fourth column (D) contains no data. I want fill column D with pseudo-random values: 350, 540, 750, 1500, 1200, 2000, 630, 450, 1800, 970 need be filled in cells in random order. ( entered in rows from 2 - 7303, not needs for all column) Thanks, santander |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
how do i fill cells with random color? | Excel Programming | |||
fill any random cell in a column and block all other cells | Excel Discussion (Misc queries) | |||
How can I fill a block of 300 cells with non-repeating random #s | Excel Discussion (Misc queries) | |||
fill random cells | Excel Programming | |||
fill random cells | Excel Programming |