поиск приблизительного значения в ячейке таблицы

[annetetet]

Доброго времени суток. В моем маленьком коде есть момент, когда макрос ищет значение u в таблице на втором листе "лист 1". Мне нужно, чтобы он находил и приблизительные значения. то есть, например, если я введу 0,5 он нашел в табличке 0,4935. Подскажите, как это сделать, пожалуйста)

[27102014]

В следующий раз выкладывайте код, а не картинки, форум программистов, а не художников

нужно округлить значение ячейки с помощью формулы ОКРУГЛ

t1 = ROUND (cells (i+1,j+1), 1)

[annetetet]

Спасибо. Загрузить на сайт файл .xlsm не удалось, а скриншоты мне было сделать проще, чем архив. В след. раз буду делать архив. Правда такое решение не совсем правильное. По условию пользователь может ввести любое u. а значение в таблице нужно найти максимально приближенное. Поэтому если пользоваться оператором ROUND не понятно, до какого разряда округлять. Вставила Ваше решение в код - программа вообще не сработала.

[annetetet]

вопрос остается открытым

[ShAM66]

Сообщение от annetetet

вопрос остается открытым

Замечание по файлу тоже.

[Akeloya]

Сообщение от annetetet

вопрос остается открытым

Если подумать головой, то вам необходимо найти минимальную разницу сверху или снизу от числа (в зависимости от того, как ставится задача).

Формально, если представить значения на листе множеством A{x}, вам необходимо для поиска нужного вам числа s (близкого к заданному m) получить новое множество B{x,y} пар ключей где x - число из исходного множества A, а y - это результат разницы для поиска числа s сверху (x-m) и снизу (m-x). В итоге задача сведется к поиску минимального y в множестве B.

При этом такую постановку задачи по поиску можно будет считать полной, если дополнить ее точностью поиска эпсилон. Это нужно в тех случаях, если мы имеем погрешность вычислений, тогда все разницы y, попавшие в погрешность отражают искомые значения s.

[annetetet]

Сообщение от Akeloya

Если подумать головой, то вам необходимо найти минимальную разницу сверху или снизу от числа (в зависимости от того, как ставится задача).

Формально, если представить значения на листе множеством A{x}, вам необходимо для поиска нужного вам числа s (близкого к заданному m) получить новое множество B{x,y} пар ключей где x - число из исходного множества A, а y - это результат разницы для поиска числа s сверху (x-m) и снизу (m-x). В итоге задача сведется к поиску минимального y в множестве B.

При этом такую постановку задачи по поиску можно будет считать полной, если дополнить ее точностью поиска эпсилон. Это нужно в тех случаях, если мы имеем погрешность вычислений, тогда все разницы y, попавшие в погрешность отражают искомые значения s.

как раз сегодня додумала до такой идеи, только y нужно искать не просто минимальное, а минимальное по модулю, поскольку разница может быть отрицательной, а значение нам нужно найти ближайшее. застопорилась теперь на том, как именно найти минимальный модуль значений в новой таблице.
*далеко мне еще до звания аса в этом деле

[annetetet]

Сообщение от ShAM66

Замечание по файлу тоже.

спешал фо ю файл, в первоначальном виде

[who]

а зачем вы пытаетесь взять значение из ячейки

Cells(a + 2, 3)

если ранее получаете "а" в дробном виде?

и нужно предупреждать, что значение "k" меньше единицы, как в принципе и "u"

[Akeloya]

Сообщение от annetetet

как раз сегодня додумала до такой идеи, только y нужно искать не просто минимальное, а минимальное по модулю, поскольку разница может быть отрицательной, а значение нам нужно найти ближайшее. застопорилась теперь на том, как именно найти минимальный модуль значений в новой таблице.
*далеко мне еще до звания аса в этом деле

В моем ответе у меня маленькая неточность - я не указал что нужно искать неотрицательные числа. Я вам предложил общий вариант решения задачи, модуль - это уже частное, так как в вашем случае вы не ищите с которой стороны вы подошли к числу, но это не значит что такое не понадобится

Модуль - функция abs(x). Т.е., вам необходимо брать модуль от разницы abs(u - cells[i,j]), тогда вы просто ищите число близкое к нулю.

Даю подсказку - вы можете не просто писать код, но и воспользоваться листами экселя вбивая в ячейки формулы. Вообще, если таблица значений у вас не меняется, вам вбс код нафиг не нужен - вы на отдельном листе отводите две ячейки под значения u и k, формируете таблицу разниц исходной и u, поскольку изначально u = 0, то она будет совпадать.
Затем в третьей ячейки вы выкидываете поиск минимального значения в таблице разниц, ну и несколько ячеек с формулами, высчитывающие rad, a, sin.
В итоге макрос сводится к тому, чтобы ввести данные в нужную ячейку и вывести данные меседж боксом на экран, так как всё остальное выполнит за вас эксель.
Одна единственная формула min и рукотворная таблица (растягиванием за крестик) заменят вам рукописный цикл

В вашем случае уменьшение кода - уменьшение ошибок в решении