только только узнал раздел vba в разделе разработчики но упорством хочу сделать задачу, и от моих знаний нет благополучных идей, я был бы рад тому кто поможет решить его и в дар отдам биткоины
В столбце C записать последовательность из N случайных чисел из диапозона (-12:12). Определить и записать в ячейку D положительное минимальное число
только только узнал раздел vba в разделе разработчики но упорством хочу сделать задачу, и от моих знаний нет благополучных идей, я был бы рад тому кто поможет решить его и в дар отдам биткоины
В столбце C записать последовательность из N случайных чисел из диапозона (-12:12). Определить и записать в ячейку D положительное минимальное числоTayer107
excelworld.ru/
Сообщение отредактировал Tayer107 - Среда, 11.10.2017, 22:29
Tayer107, и Вам здравствуйте. Читайте Правила форума, только, пожалуйста, внимательно. И этот раздел тоже! Исправляйте свой пост и Вам помогут. А задача Ваша уже решена, но, как вариант, формульно.
Tayer107, и Вам здравствуйте. Читайте Правила форума, только, пожалуйста, внимательно. И этот раздел тоже! Исправляйте свой пост и Вам помогут. А задача Ваша уже решена, но, как вариант, формульно.Che79
нахождения минимального значения массива, расположенного в заданном диапазоне C15:D20 [vba]
Код
Public Function Минимум_в_заданном() ‘ нахождения минимального значения в заданном диапазоне Dim r As Integer, c As Integer, minimal As Variant minimal = Cells(15, 3) For r = 15 To 20 For c = 3 To 4 If Cells(r, c) < minimal Then minimal = Cells(r, c) End If Next c Next r
[/vba] Минимум_в_зад
нахождения минимального значения массива, расположенного в заданном диапазоне C15:D20 [vba]
Код
Public Function Минимум_в_заданном() ‘ нахождения минимального значения в заданном диапазоне Dim r As Integer, c As Integer, minimal As Variant minimal = Cells(15, 3) For r = 15 To 20 For c = 3 To 4 If Cells(r, c) < minimal Then minimal = Cells(r, c) End If Next c Next r
Sub бла бла бла минимал положительное значение() Const mc = 10 Dim i&, max&, min&, s$
With Columns("c:d") .Delete Shift:=xlToLeft End With Randomize Timer For i = 1 To mc Cells(i, 3) = -12 + Rnd * 12 * 2 \ 1 Cells(i, 4) = Cells(i, 1) Next max = 1: min = 1 For i = 2 To mc If Cells(i, 1) > Cells(max, 1) Then max = i If Cells(i, 1) < Cells(min, 1) Then min = i Next i = Cells(max, 1) Cells(max, 1) = Cells(min, 1) Cells(min, 1) = i s = Replace("c1,c2", 1, max) With Range(Replace(s, 2, min)) .Select .Interior.ColorIndex = 10 End With End Sub
[/vba]
кто нибудь тут есть?
[vba]
Код
Sub бла бла бла минимал положительное значение() Const mc = 10 Dim i&, max&, min&, s$
With Columns("c:d") .Delete Shift:=xlToLeft End With Randomize Timer For i = 1 To mc Cells(i, 3) = -12 + Rnd * 12 * 2 \ 1 Cells(i, 4) = Cells(i, 1) Next max = 1: min = 1 For i = 2 To mc If Cells(i, 1) > Cells(max, 1) Then max = i If Cells(i, 1) < Cells(min, 1) Then min = i Next i = Cells(max, 1) Cells(max, 1) = Cells(min, 1) Cells(min, 1) = i s = Replace("c1,c2", 1, max) With Range(Replace(s, 2, min)) .Select .Interior.ColorIndex = 10 End With End Sub
Sub значение() Const mc = 10 Dim i&, a&, min& Columns(3).Clear Randomize Timer For i = 1 To mc Cells(i, 3) = -12 + Rnd * 12 * 2 \ 1 Next min = 0 Do min = min + 1 Loop Until Cells(min, 3) > 0 Or min > mc a = Cells(min, 3) For i = min + 1 To mc If Cells(i, 3) > 0 And Cells(i, 3) < a Then a = Cells(i, 3) Next Cells(1, 4) = a Cells(1, 4).Interior.ColorIndex = 4 End Sub
Sub значение() Const mc = 10 Dim i&, a&, min& Columns(3).Clear Randomize Timer For i = 1 To mc Cells(i, 3) = -12 + Rnd * 12 * 2 \ 1 Next min = 0 Do min = min + 1 Loop Until Cells(min, 3) > 0 Or min > mc a = Cells(min, 3) For i = min + 1 To mc If Cells(i, 3) > 0 And Cells(i, 3) < a Then a = Cells(i, 3) Next Cells(1, 4) = a Cells(1, 4).Interior.ColorIndex = 4 End Sub