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

Я делаю рабочий лист, где скорость ветра определяет потенциальную энергию местоположения. Это значение является основой нескольких листов в одном файле Excel. Я пытаюсь написать код, где I10 – скорость ветра, а I12 – потенциальный кВтч на этом месте. Я хочу, чтобы I10 как I12 был входным ячеек, где вы можете сказать: я хочу знать, какую скорость ветра мне нужно, чтобы генерировать 4000 kwh, т.е. или скорость ветра 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 

  • MySQL для EXCEL (2010) - пользовательский запрос выбора
  • Скопируйте рабочий лист Excel и поддерживайте относительную ссылку на ячейки в формулах
  • Excel vba: копировать строки, если данные соответствуют значениям в столбце на другом листе
  • Как я могу определить, существует ли лист a в рабочей книге?
  • Восстановить пароль защиты листа в Excel
  • Скрытие всех выбранных строк данных
  • Как заменить текст в теле входящего сообщения гиперссылкой в ​​Outlook 2010?
  • Умный способ подключения нескольких изображений к макросу макроса - VAB 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 
    Interesting Posts

    Как суммировать числа в диапазоне, которые имеют только определенный цвет ячейки ?

    Как удалить текущий сеанс в Chrome?

    Как вы устанавливаете, очищаете и переключаете один бит?

    Любые инструменты для удаления программного обеспечения, которое невозможно удалить с панели управления

    Как вставить исходный текст?

    Как я могу передавать одну и ту же музыку на несколько компьютеров?

    Есть ли список / журнал драйверов установки Windows XP, загруженных во время установки?

    Использовать имена хостов для подключения к компьютерам в локальной сети

    Windows видит только 768 МБ ОЗУ из 4 ГБ

    Найдите, установлен ли пакет

    QEMU с пропуском GPU не запустится

    Есть ли способ приостановить отдельные настольные приложения на диске? (Прежде всего Linux)

    Проблема с удаленным отображением приложений Java

    Excel, как найти номер столбца min значение?

    Как проверить, работает ли ОЗУ в двухканальном режиме

    Давайте будем гением компьютера.