Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 30.08.2019, 18:49   #11
Petrov210217
Пользователь
 
Регистрация: 14.11.2018
Сообщений: 89
По умолчанию

Цитата:
Сообщение от MCH Посмотреть сообщение
С этой задачей справится "Поиск решения"
Спасибо за совет! Действительно работает. Раньше этой функцией не пользовался.


Цитата:
Сообщение от сфинкс Посмотреть сообщение
у меня работает макрос
с шагами 0.233 для ускорения:
Код:
Sub D4E4F4()
   
    For i = -1 To 1.2 Step 0.233
          For j = -1 To 1.2 Step 0.233
                For k = -1 To 1.2 Step 0.233

    Range("d4").Select
    ActiveSheet.Range("d4").Value = i
    Range("e4").Select
    ActiveSheet.Range("e4").Value = j
    Range("f4").Select
    ActiveSheet.Range("f4").Value = k

 If Range("L6") > Range("m6") Then End
 If Range("L6") > Range("L9") Then ActiveSheet.Range("L9").Value = Range("L6"): ActiveSheet.Range("L11").Value = i: ActiveSheet.Range("L12").Value = j: ActiveSheet.Range("L13").Value = k
 If Range("L6") < Range("L15") Then ActiveSheet.Range("L15").Value = Range("L6"): ActiveSheet.Range("L17").Value = i: ActiveSheet.Range("L18").Value = j: ActiveSheet.Range("L19").Value = k
 
    Next: Next: Next
End Sub
шаги нецелые против ошибки в точке -1 1 -1
или нужны формулы вида
=ЕСЛИОШИБКА((J329^2)/(C329^2);0)

но неясно достигается ли значение

зато впервые в теме циклы перебирают значения 3-ёх переменных
и остаётся сформулировать условие оптимальности
Макрос, к моему огромному сожалению, выдает ошибку на условия. В чем ошибка, я не смог разобраться. Если не затруднит, поясните где ошибка. Решение с макросом так же интересует.
ЫЫЫЫЫЫ
Petrov210217 вне форума Ответить с цитированием
Старый 30.08.2019, 20:00   #12
сфинкс
Форумчанин
 
Аватар для сфинкс
 
Регистрация: 17.06.2012
Сообщений: 954
По умолчанию

ошибка из-за столбца К
иногда вместо цифр появляется слово #число

поэтому как пишу в столбце К включена формула
=ЕСЛИОШИБКА((J329^2)/(C329^2);0)
Синтаксис
ЕСЛИОШИБКА(значение;значение_при_ош ибке)

значение 0,99960 получается при
d4=0,94 e4=0 f4=около 1

мой макрос пишет найденные значения d4e4f4
Случайные и Массивы https://programmersforum.ru/showthread.php?t=344371 Учим C# & basic & excel & python https://programmersforum.ru/showthre...=327446&page=5 ничего нерекомендую

Последний раз редактировалось сфинкс; 30.08.2019 в 20:10.
сфинкс вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Поиск необходимых символов в ячейке Chuikov Microsoft Office Excel 2 22.06.2015 18:05
Организация программ с использованием процедур .использованием параметров-значений и параметров переменных Фрейтор 40-500 Помощь студентам 0 02.11.2012 21:58
Организация программ с использованием процедур .использованием параметров-значений и параметров переменных Фрейтор 40-500 Помощь студентам 6 02.11.2012 21:46
Программирование циклов с использованием оператора WHILE Yuliyanna Паскаль, Turbo Pascal, PascalABC.NET 11 25.04.2011 02:25
с использованием вложенных циклов вкусняшка Помощь студентам 4 31.03.2009 17:22