Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
Edit, Format random selection
Hello,
I have figured out how to generate a random selection of a range. My next chalenge is to edit or format my random selection and and look for another pick without holding the last format. Is there anyone that can help me? EX. If my cell returns sam12 from the the range, I would like to edit sam12 (make it red color) and look for another selection which is not red and if it pick the one that I made it red it would show it. thx. I paste the below module and in one of the empty cells i type: =SampleNR(A1:T49999) Public Function SampleNR(rSource As Range) As Variant Dim vTemp As Variant Dim nArr() As Long Dim nSource As Long Dim nDest As Long Dim nRnd As Long Dim nTemp As Long Dim i As Long Dim j As Long Application.Volatile nSource = rSource.Count With Application.Caller ReDim vTemp(1 To .Rows.Count, 1 To .Columns.Count) nDest = .Count End With If nDest nSource Then SampleNR = CVErr(xlErrNA) Else ReDim nArr(1 To nSource) For i = 1 To nSource nArr(i) = i Next i For i = 1 To nDest nRnd = Int(Rnd() * (nSource - i + 1)) + i nTemp = nArr(nRnd) nArr(nRnd) = nArr(i) nArr(i) = nTemp Next i nTemp = 1 For i = 1 To UBound(vTemp, 1) For j = 1 To UBound(vTemp, 2) vTemp(i, j) = rSource(nArr(nTemp)) nTemp = nTemp + 1 Next j Next i SampleNR = vTemp End If End Function -- Message posted via OfficeKB.com http://www.officekb.com/Uwe/Forums.a...excel/200707/1 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Random selection of text cells | Excel Discussion (Misc queries) | |||
Random number selection | Excel Worksheet Functions | |||
Random Selection | New Users to Excel | |||
Random Selection | Excel Worksheet Functions | |||
How can I set up the random selection of a cell from within a ran. | Excel Discussion (Misc queries) |