Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/положительное минимальное число - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир 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
 
Ответить
Сообщениетолько только узнал раздел vba в разделе разработчики
но упорством хочу сделать задачу,
и от моих знаний нет благополучных идей, я был бы рад тому кто поможет решить его и в дар отдам биткоины

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

Автор - Tayer107
Дата добавления - 11.10.2017 в 22:12
Che79 Дата: Среда, 11.10.2017, 22:21 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 533
Репутация: 92 ±
Замечаний: 0% ±

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


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

Автор - Che79
Дата добавления - 11.10.2017 в 22:21
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/
 
Ответить
Сообщение#менятьцветтекста
[vba]
Код
c.Value = c.Value * 2
c.Interior.Color = RGB(255, 0, 0)
[/vba]
примерное

Автор - Tayer107
Дата добавления - 11.10.2017 в 22:34
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/
 
Ответить
Сообщениенахождения минимального значения массива, расположенного в
заданном диапазоне 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]
Минимум_в_зад

Автор - Tayer107
Дата добавления - 11.10.2017 в 22:40
Pelena Дата: Среда, 11.10.2017, 22:41 | Сообщение № 5
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11597
Репутация: 2572 ±
Замечаний: 0% ±

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


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
СообщениеTayer107, оформите коды тегами. Для этого в режиме правки поста выделите код и нажмите кнопку # на панели инструментов

Автор - Pelena
Дата добавления - 11.10.2017 в 22:41
Tayer107 Дата: Среда, 11.10.2017, 22:51 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
[vba]
Код
If c.Value > 0
[/vba] условие что значение положительное


excelworld.ru/
 
Ответить
Сообщение[vba]
Код
If c.Value > 0
[/vba] условие что значение положительное

Автор - Tayer107
Дата добавления - 11.10.2017 в 22:51
Tayer107 Дата: Среда, 11.10.2017, 22:58 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
[vba]
Код
Xmin = Worksheets("Лист2").Cells(j, 1).Value
[/vba] сомнения насчет минимального значения


excelworld.ru/
 
Ответить
Сообщение[vba]
Код
Xmin = Worksheets("Лист2").Cells(j, 1).Value
[/vba] сомнения насчет минимального значения

Автор - Tayer107
Дата добавления - 11.10.2017 в 22:58
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/
 
Ответить
Сообщение[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]

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

Автор - Tayer107
Дата добавления - 12.10.2017 в 01:35
buchlotnik Дата: Четверг, 12.10.2017, 09:36 | Сообщение № 9
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3113
Репутация: 853 ±
Замечаний: 0% ±

2010, 2013, 2016 RUS / ENG
Кто-нибудь - есть, файл - отсутствует
Цитата
Sub бла бла бла минимал положительное значение()
и процедура с таким именем у вас работает?!


каждому For - Next!
платная помощь:
ЯД: 410012595572239
buchlotnik@mail.ru
 
Ответить
СообщениеКто-нибудь - есть, файл - отсутствует
Цитата
Sub бла бла бла минимал положительное значение()
и процедура с таким именем у вас работает?!

Автор - buchlotnik
Дата добавления - 12.10.2017 в 09:36
Tayer107 Дата: Четверг, 12.10.2017, 11:02 | Сообщение № 10
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

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


excelworld.ru/
 
Ответить
Сообщениебла_бла_бла
дело не в нем

Автор - Tayer107
Дата добавления - 12.10.2017 в 11:02
Pelena Дата: Четверг, 12.10.2017, 11:38 | Сообщение № 11
Группа: Модераторы
Ранг: Местный житель
Сообщений: 11597
Репутация: 2572 ±
Замечаний: 0% ±

Excel 2010, 2016 & Mac Excel
бла_бла_бла

Детский сад какой-то...
[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]


"Черт возьми, Холмс! Но как??!!"
ЯД 41001765434816
 
Ответить
Сообщение
бла_бла_бла

Детский сад какой-то...
[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]

Автор - Pelena
Дата добавления - 12.10.2017 в 11:38
Tayer107 Дата: Четверг, 12.10.2017, 11:55 | Сообщение № 12
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
[vba]
Код
Sub Hell()
MsgBox ("Ñïàñèáî, Pelen!")
End Sub
[/vba]


excelworld.ru/
 
Ответить
Сообщение[vba]
Код
Sub Hell()
MsgBox ("Ñïàñèáî, Pelen!")
End Sub
[/vba]

Автор - Tayer107
Дата добавления - 12.10.2017 в 11:55
Tayer107 Дата: Четверг, 12.10.2017, 11:57 | Сообщение № 13
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
[vba]
Код
Sub Hell()
MsgBox ("Spasibo, Pelen!")
End Sub
[/vba]

часть комментария переводится в какой то юникод это лечиться?


excelworld.ru/
 
Ответить
Сообщение[vba]
Код
Sub Hell()
MsgBox ("Spasibo, Pelen!")
End Sub
[/vba]

часть комментария переводится в какой то юникод это лечиться?

Автор - Tayer107
Дата добавления - 12.10.2017 в 11:57
K-SerJC Дата: Пятница, 13.10.2017, 11:33 | Сообщение № 14
Группа: Проверенные
Ранг: Обитатель
Сообщений: 283
Репутация: 39 ±
Замечаний: 0% ±

Excel 2013
часть комментария переводится в какой то юникод это лечиться?

перед копированием русского текста из vba редактора переключите раскладку на русский


Благими намерениями выстелена дорога в АД.
 
Ответить
Сообщение
часть комментария переводится в какой то юникод это лечиться?

перед копированием русского текста из vba редактора переключите раскладку на русский

Автор - K-SerJC
Дата добавления - 13.10.2017 в 11:33
Мир MS Excel » Вопросы и решения » Вопросы по VBA » положительное минимальное число (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!