Excel VBA Foor L oop с 2 переменными - PullRequest
Новая
       51

Excel VBA Foor L oop с 2 переменными

0 голосов
/ 02 апреля 2020

Все еще довольно зеленый во вселенной VBA. Но я создал вложенное значение для l oop ниже для запуска интерполяции. Проблема в том, что мне нужна интерполяция (Ideal Total Test Hrs) слева. Справа - это то, что я получаю. Пожалуйста, изображение электронной таблицы в ссылке ниже

https://i.stack.imgur.com/fLo3M.png [1]

Я хотел бы, например, чтобы вычисления выполнялись для строки = 17 и j = 1 Затем переходим к следующей строке = 18 и j = 2 и т. Д. c.

Любое понимание очень ценится! Дайте мне знать, если потребуется дополнительная информация / уточнение! 

Private Sub j2_vba()

'Ideal Total Test Hrs Calculations
        Dim j As Integer
        ColA = FindColNumber("Ideal Total Test Hrs")
            For Row = 17 To LastDataRow
                For j = 1 To NWK
                    Sheets("Prognosis").Cells(Row, ColA) = Sheets("Prognosis").Cells(Row - 1, ColA - 1) + ((tt - Sheets("Prognosis").Cells(Row - 1, ColA - 1)) / (NWK - (j-1))) * ((j + 1) - j)
                Next j
            Next Row

End Sub

Function FindColNumber(ColName As String) As Integer
    Dim LastCol As Integer
    Dim Col As Integer
        'find last Column
        LastCol = Sheets("Prognosis").Cells(13, 256).End(xlToLeft).Column
        For Col = 1 To LastCol
            If Sheets("Prognosis").Cells(13, Col) = ColName Then
                FindColNumber = Col
            End If
        Next Col


  [1]: https://i.stack.imgur.com/fLo3M.png
...