2

Я делаю рабочий лист, где скорость ветра определяет потенциальную энергию места. Это значение является основой нескольких листов в одном файле Excel. Я пытаюсь написать код, где I10 - это скорость ветра, а I12 - потенциальный кВтч в этом месте. Я хочу, чтобы и I10 и I12 были входными ячейками, и вы можете сказать: я хочу знать, какую скорость ветра мне нужно генерировать 4000 кВт-ч, т.е. или скорость моего ветра составляет 4,2 м / с, какой будет моя потенциальная энергия?

Это то, что я сделал до сих пор, но у меня не работает функция питания. На данный момент я определил ячейку I12 (кВтч) без VBA как =(2208,5/(54,872))*I10^3 где I10 - скорость ветра.

Код VBA за листом, который не работает:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Target.Address = "$I$10" Or Target.Address = "$I$12" Then

        WIND = Range("I10")
        KWH = Range("I12")

        Application.EnableEvents = False

        If Target.Address = "$I$10" Then
            Range("I12").Value = (2208.5 / (54.872)) POWER(WIND,3)
        Else
            Range("I10").Value = POWER( KWH (2208.5 / (54.872)),(1/3)

        End If
    End If
    Application.EnableEvents = True
End Sub

Потенциальное решение, но не работает в данный момент.

Function MyPower(Number As Double, Exponent As Double) As Double
    MyPower = Number ^ Exponent
End Function
|источник

1 ответ1

0

Попробуйте это (но дважды проверьте математику, я не уверен, правильно ли он рассчитывает, потому что я не уверен, как должно выглядеть уравнение)

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Target.Address = "$I$10" Or Target.Address = "$I$12" Then

        wind = Range("I10")
        KWH = Range("I12")

        Application.EnableEvents = False

        If Target.Address = "$I$10" Then
            Range("I12").Value = (2208.5 / 54.872) * wind ^ 3
        Else
            Range("I10").Value = KWH * (2208.5 / 54.872) ^ (1/3)

        End If
    End If
    Application.EnableEvents = True
End Sub
|источник

Всё ещё ищете ответ? Посмотрите другие вопросы с метками .