Здравствуйте.Снова обращаюсь к Вам за помощью.В трех столбцах с помощью функции СЛЧИС происходит перестановка чисел от 1 до 15. Как заставить производить перестановку чисел до получения определённого результата( 1 ) в ячейке AV10,происходят другие вычисления с выводом результата в эту ячейку.
Здравствуйте.Снова обращаюсь к Вам за помощью.В трех столбцах с помощью функции СЛЧИС происходит перестановка чисел от 1 до 15. Как заставить производить перестановку чисел до получения определённого результата( 1 ) в ячейке AV10,происходят другие вычисления с выводом результата в эту ячейку.megavlom
Возможно, только поподробнее - как все это работает, откуда и как единица берется и прочее. А в общих чертах [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If [av10] = 1 Then Application.EnableEvents = 0 [S9:U23] = [S9:U23].Value Application.EnableEvents = 1 End If End Sub
[/vba]
Цитатаmegavlom ()
А макросом возможно?
Возможно, только поподробнее - как все это работает, откуда и как единица берется и прочее. А в общих чертах [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If [av10] = 1 Then Application.EnableEvents = 0 [S9:U23] = [S9:U23].Value Application.EnableEvents = 1 End If End Sub
Sub megavlom() Dim cl As Range, a Cells(1, 5) = Empty Randomize Do For Each cl In [a1:c10] 'ra cl = Int(15 * Rnd) Next a = Cells(5, 1) + Cells(5, 2) + Cells(5, 3) If a = 15 Then Cells(1, 5) = a: Exit Do Loop End Sub
[/vba]
Вариант. Условие останова с потолка. [vba]
Код
Sub megavlom() Dim cl As Range, a Cells(1, 5) = Empty Randomize Do For Each cl In [a1:c10] 'ra cl = Int(15 * Rnd) Next a = Cells(5, 1) + Cells(5, 2) + Cells(5, 3) If a = 15 Then Cells(1, 5) = a: Exit Do Loop End Sub
при смене случайных чисел изменяется набор диапазонов(числа искомые значения -ВпРом).Дальше серия расчетов и ,если данные совпадают,то результат 1 .Если нет происходит перебор чисел снова.пытаюсь ввести данные в модуль,пока высвечивает ошибку.
при смене случайных чисел изменяется набор диапазонов(числа искомые значения -ВпРом).Дальше серия расчетов и ,если данные совпадают,то результат 1 .Если нет происходит перебор чисел снова.пытаюсь ввести данные в модуль,пока высвечивает ошибку.megavlom
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
