Экземпляр Excel VBA.

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

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

  • Вырезание и вставка вьетнамских персонажей из PDF
  • Неверное совпадение шаблона Word mergefield
  • Настройка виртуального Com-порта?
  • Код 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 

  • Показывать временную метку при изменении ячейки
  • Excel: изменение и обновление будущего значения на основе прошлого появления и поиска в таблице
  • Вложенные Ifs для личного бухгалтерского листа
  • Зафиксировать верхнюю строку и несколько столбцов в Excel
  • Предотвратите удаление Excel скопированных данных для вставки после определенных операций без буфера обмена Office
  • Как получить пользовательский формат даты в Excel
  • One Solution collect form web for “Экземпляр Excel 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) * wind ^ 3 Else Range("I10").Value = KWH * (2208.5 / 54.872) ^ (1/3) End If End If Application.EnableEvents = True End Sub 
    Давайте будем гением компьютера.