B
BigJim
Can anyone point me to help topics on named ranges. I
cannot find the syntax to set the rSource and rDest
variables below.
My puzzle has two arrays, an array of scores and an array
of results seperated by several rows of blank rows.
Each array has a name in the top-left cell (NS_Scores,
NS_Percentages) and each array is approx 8 rows * 32
columns. Both the widh and height will be variable once I
have better control of the code.
I want to apply a user-defined function to populate the
results array (one column at a time) from the Scores
array.
How do I pass references to individual columns of the two
arrays to the user defined function?
Public CalcPercentage (rSource as range, rDest as range)
as boolean
' some logic to produce the Dest array from the
Source.
exit function
....
dim rSource as range
dim i as integer
dim iNoRows as integer
iNoRows = 8
for i=1 to 24
rSource = range(range("MyScores").offset(i, col),
range("MyScores").offset(iNoRows, col))
rDest = range(rSource).offset("MyPercentage"))
dim bResult as boolean
bResult = CalcPercentage (rSource, rDest)
next i
....
cannot find the syntax to set the rSource and rDest
variables below.
My puzzle has two arrays, an array of scores and an array
of results seperated by several rows of blank rows.
Each array has a name in the top-left cell (NS_Scores,
NS_Percentages) and each array is approx 8 rows * 32
columns. Both the widh and height will be variable once I
have better control of the code.
I want to apply a user-defined function to populate the
results array (one column at a time) from the Scores
array.
How do I pass references to individual columns of the two
arrays to the user defined function?
Public CalcPercentage (rSource as range, rDest as range)
as boolean
' some logic to produce the Dest array from the
Source.
exit function
....
dim rSource as range
dim i as integer
dim iNoRows as integer
iNoRows = 8
for i=1 to 24
rSource = range(range("MyScores").offset(i, col),
range("MyScores").offset(iNoRows, col))
rDest = range(rSource).offset("MyPercentage"))
dim bResult as boolean
bResult = CalcPercentage (rSource, rDest)
next i
....