Staroffice Basic, Calc, passing and using ranges

Question

Okay, I was trying to transfer a VBA function from Excel to StarOffice.
The routine call looks like this:
=PS_MUL($K$22:$K$277 ; $L$22:$L$277 ; $F$22:$F$277 ; F22)
That is, there are three ranges, and a value input.
Here is my attempt at STAROFFICE's version of this routine
Function PS_MUL(Tay1_A as Object, Tay2_A as Object, Rank_Vector, Rank_A as Long) as Double
   Dim Product_sum as Double
   Dim Element1 as Double, Element2 as Double
   Dim i as Integer, j as Integer
   Dim cell1 as Object, cell2 as Object
   Product_sum=0
   i=0
   For Each Element1 in Rank_Vector
      i=i+1
      j=0
      cell2=Tay2_A.GetCellByPosition(i,0)
      For Each Element2 in Rank_Vector
          j=j+1
          cell1=Tay1_A.GetCellByPosition(j,0)
          If Element1+Element2=Rank_A Then Product_sum=Product_sum+cell1.Value*cell2.Value
      Next Element2
   Next Element1
   PS_MUL=Product_sum
End FunctionIn VBA, I simply refereced "Product_sum=Product_sum+Tay_1A( i ) * Tay_2A( j )"
That is, the input cell ranges are 1-D arrays, and Tay_1A was implicitly defined. So I just used them as arrays, and no problem.
Here, no matter what I try to do with my code, including getting a cell reference by position and taking its value or whatnot, I still get errors.
I think it is becoming clear to me that I don't understand how to pass and use range references in StarBasic.
If anybody could help me out with understanding passing and using these range references, I'd appreciate it.
Just for comparison, here is the function in VBA:
Function CombSumProd(Tay_1A, Tay2_A, Rank_Vector, Rank_A As Variant) As Variant
Dim Product_sum As Variant, Element1 As Variant, Element2 As Variant
Dim i As Integer, j As Integer
Product_sum=0
i=0
For Each Element1 in Rank_Vector
  i = i+1
  j = 0
  For Each Element2 in Rank_Vector
      j=j+1
      If Element1+Element2=Rank_A Then 
             Product_sum=Product_sum+Tay1_A(i) *Tay2_A(j)
   Next Element2
Next Element1
CombSumProd=Product_sum
End Function

Answer 1

Hi
Follow the steps below - (I am assuming that you are using BI queries in your model & your tabs are as per quarter - one tab for each quarter)
1. Create one radio button & in entry list create static list as 1 - Quarter 1, 2 - Quarter 2 & so on.
2. Now you want plan Vs actual in one graph & Currency in another. So create these reports for each quarter separately, so in all you will have 8 reports (2 for each quarter)
3. IN the layout you have to arrange it vary carefully, you take all the 'Plan Vs Actual' report for all the quarters & arrange them exactly one over the other. Same for Currency reports also.
4. NOw Give visibility condition for each report example - if report is for first quarter then condition will be - bool(if(radio button string=="1",true,false)) & assign the default value in radio button as 1. so that at the time of execution you will get these reports by default.
5. Like wise give condition for all.
6. When you execute this report you will get radio buttons at the top & as you select different buttons differents report will get opened.
7. As you have plased these exactly one over the other, user will not come to know these are different reports.
Try this method, if you have any doubts for this, please do ask me.
Regards
Sandeep