Calculating Slope Using Macros

[Melpp]

I want to be able to calculate the downwards slope after peaks. The data is very noisy and contains many peaks. Is there any easy way to automate this using Excel VBA Macros.

 

[JackDanIce]

You need to be more precise with your question.

What defines the peak?
What defines a slope?
What is the data that is being generated?

An example would help immensely.

Otherwise, yes, there is an easy way to automate this using Excel VBA Macros.

 

[Melpp]

The data is collected over time and the y-axis scale ranges from 0--> 60. A peak is defined as a high value and I am looking for excel to calculate the slope from the peak back to baseline. A task is repeated about 5 times and so there are multiple peaks and thus multiple slopes to calculate.

 

[Melpp]

I wrote the following code to check is the value of the cell is larger than the 5 cells after it and the 4 cells before it. I am not sure why but it does not seem to output anything. Any advice?

Set FirstCell = Cells(5, 1)

No = 5

For i = 0 To (Last_Row2)
If FirstCell.Offset(i, 0) > FirstCell.Offset(i + 1, 0) Then
If FirstCell.Offset(i + 2, 0) < FirstCell.Offset(0, 0) Then
If FirstCell.Offset(i + 3, 0) < FirstCell.Offset(0, 0) Then
If FirstCell.Offset(i + 4, 0) < FirstCell.Offset(0, 0) Then
If FirstCell.Offset(i + 5, 0) < FirstCell.Offset(0, 0) Then
If FirstCell.Offset(i - 1) < FirstCell.Offset(0, 0) Then
If FirstCell.Offset(i - 2) < FirstCell.Offset(0, 0) Then
If FirstCell.Offset(i - 3) < FirstCell.Offset(0, 0) Then
If FirstCell.Offset(i - 4) < FirstCell.Offset(0, 0) Then
Max = FirstCell.Offset(0, 0).Value
Range(Cells(No, 10)).Value = Max
No = No + 1
End If
End If
End If
End If
End If
End If
End If
End If
End If
Next i

 

[JackDanIce]

The data is collected over time and the y-axis scale ranges from 0--> 60. A peak is defined as a high value and I am looking for excel to calculate the slope from the peak back to baseline. A task is repeated about 5 times and so there are multiple peaks and thus multiple slopes to calculate.

Your reply is arbitary and I didn't find your answers accurate enough to understand your problem (can't comment if anyone else did)

Do you mean if you have a sequence of: 0, 1, 2, 1, 0, 1 then 2 would be the peak?

Then, is the slope 2 (peak - mininum number before or after identified peak, i.e. 2 - green 0 or red 0 - 2 = -2)?

What happens if the sequence then becomes: 0, 1, 2, 1, 0, 1, 2, 3, 4, 4, 5, 6, 5, 6, 7, 6, 7? What is the peak now? What is the base now? What is the slope value you are trying to calculate?

As requested below, it would be much clearer if you posted an example of your data (Excel Jeanie is a good way to post a screenshot of your worksheet) or tried to explain with much more clarity