Jag försöker göra ett Exceldokument för träningsplanering.
För att kunna ange antal repetioner i formen A + B, tex 1+2 måste jag skriva en funktion i VBA som summerar antal repetitioner.
Efter lite googlade hittade jag Evaluate vilket löste problemet utmärkt, förutom en hake. Det fungerar tydligen inte att köra Evaluate på en cell som har värdet 1.
Bifogar en bild för att göra det lite tydligare: http://i.imgur.com/2esga7S.png
En lösning är ju att skriva if-satser för varje scenario men det känns onödigt. Det måste finnas ett enklare sätt.
Vore tacksam för hjälp.
För att kunna ange antal repetioner i formen A + B, tex 1+2 måste jag skriva en funktion i VBA som summerar antal repetitioner.
Efter lite googlade hittade jag Evaluate vilket löste problemet utmärkt, förutom en hake. Det fungerar tydligen inte att köra Evaluate på en cell som har värdet 1.
Bifogar en bild för att göra det lite tydligare: http://i.imgur.com/2esga7S.png
Kod:
Public Function SumRow(rngReps As Range, rngSet As Range) 'Anledning till att jag tar med Set utan att använda är för att få funktionen att reagera när Set ändras
Dim cReps As Range
SumRow = 0
For Each cReps In rngReps
If (cReps.Value <> vbNullString) Then
SumRow = SumRow + Evaluate(cReps.Value) * Evaluate(cReps.Offset(0, -1).Value)
End If
Next
End Function
En lösning är ju att skriva if-satser för varje scenario men det känns onödigt. Det måste finnas ett enklare sätt.
Vore tacksam för hjälp.
