S
sia.bhavaraju
Iam working on Agent Based Modeling system using Microsoft Excel.I'm
getting an error saying 424 object required at this part of the code
[Frustration].Offset(1,1)=0
this is the full code
Sub Initialize()
' Declare the local variables.
Dim shopper As Range
' Set the ranom seed.
Rnd (-1)
Random_Seed = 10
Randomize ([Random_Seed])
' Reset the graph.
[Frustration].Offset(1, 1) = 0
[Frustration].Offset(2, 1) = 0
[GraphLables].Clear
[GraphValues].Clear
' Initilaize all of the shoppers.
For Each shopper In [Shoppers]
' Complete the basic shopper initilization.
Call InitializeShopper(shopper)
' Reset the items found counter.
shopper.Offset(0, 13) = 0
' Resett the trip counter.
shopper.Offset(0, 14) = 1
' strat with a moderate frustration level.
shopper.Offset(0, 12) = [Initial_Frustration]
Next shopper
End Sub
Please let me know the solution as soon as possible
Thanks in advance
getting an error saying 424 object required at this part of the code
[Frustration].Offset(1,1)=0
this is the full code
Sub Initialize()
' Declare the local variables.
Dim shopper As Range
' Set the ranom seed.
Rnd (-1)
Random_Seed = 10
Randomize ([Random_Seed])
' Reset the graph.
[Frustration].Offset(1, 1) = 0
[Frustration].Offset(2, 1) = 0
[GraphLables].Clear
[GraphValues].Clear
' Initilaize all of the shoppers.
For Each shopper In [Shoppers]
' Complete the basic shopper initilization.
Call InitializeShopper(shopper)
' Reset the items found counter.
shopper.Offset(0, 13) = 0
' Resett the trip counter.
shopper.Offset(0, 14) = 1
' strat with a moderate frustration level.
shopper.Offset(0, 12) = [Initial_Frustration]
Next shopper
End Sub
Please let me know the solution as soon as possible
Thanks in advance