положительное минимальное число

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » положительное минимальное число (Макросы/Sub)

Tayer107

Дата: Среда, 11.10.2017, 22:12 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

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

В столбце C записать последовательность
из N случайных чисел из диапозона (-12:12).
Определить и записать в ячейку D положительное минимальное число

excelworld.ru/

Сообщение отредактировал Tayer107 - Среда, 11.10.2017, 22:29

Ответить

Che79

Дата: Среда, 11.10.2017, 22:21 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1649

Репутация: 306 ±

Замечаний: 0% ±

2013 Win, 365 Mac

Tayer107, и Вам здравствуйте.
Читайте Правила форума, только, пожалуйста, внимательно. И этот раздел тоже! Исправляйте свой пост и Вам помогут. А задача Ваша уже решена, но, как вариант, формульно.

Делай нормально и будет нормально!

Ответить

Tayer107

Дата: Среда, 11.10.2017, 22:34 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

#менятьцветтекста
[vba]

Код

c.Value = c.Value * 2
c.Interior.Color = RGB(255, 0, 0)

[/vba]
примерное

excelworld.ru/

Ответить

Tayer107

Дата: Среда, 11.10.2017, 22:40 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

нахождения минимального значения массива, расположенного в
заданном диапазоне 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]
Минимум_в_зад

excelworld.ru/

Ответить

Pelena

Дата: Среда, 11.10.2017, 22:41 | Сообщение № 5

Группа: Админы

Ранг: Местный житель

Сообщений: 19174

Репутация: 4413 ±

Замечаний: ±

Excel 365 & Mac Excel

Tayer107, оформите коды тегами. Для этого в режиме правки поста выделите код и нажмите кнопку # на панели инструментов

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Tayer107

Дата: Среда, 11.10.2017, 22:51 | Сообщение № 6

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

[vba]

Код

If c.Value > 0

[/vba] условие что значение положительное

excelworld.ru/

Ответить

Tayer107

Дата: Среда, 11.10.2017, 22:58 | Сообщение № 7

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

[vba]

Код

Xmin = Worksheets("Лист2").Cells(j, 1).Value

[/vba] сомнения насчет минимального значения

excelworld.ru/

Ответить

Tayer107

Дата: Четверг, 12.10.2017, 01:35 | Сообщение № 8

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

[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

[/vba]

кто нибудь тут есть?

excelworld.ru/

Ответить

buchlotnik

Дата: Четверг, 12.10.2017, 09:36 | Сообщение № 9

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

Репутация: 929 ±

Замечаний: 20% ±

2010, 2013, 2016 RUS / ENG

Кто-нибудь - есть, файл - отсутствует

Цитата

Sub бла бла бла минимал положительное значение()

и процедура с таким именем у вас работает?!

Ответить

Tayer107

Дата: Четверг, 12.10.2017, 11:02 | Сообщение № 10

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

бла_бла_бла
дело не в нем

excelworld.ru/

Ответить

Pelena

Дата: Четверг, 12.10.2017, 11:38 | Сообщение № 11

Группа: Админы

Ранг: Местный житель

Сообщений: 19174

Репутация: 4413 ±

Замечаний: ±

Excel 365 & Mac Excel

Цитата Tayer107, 12.10.2017 в 11:02, в сообщении № 10 ()

бла_бла_бла

Детский сад какой-то...
[vba]

Код

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

[/vba]