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

Вход

Регистрация

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

 

= Мир MS Excel/Определить сумму, произведение и кол-во элементов вектора W - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Определить сумму, произведение и кол-во элементов вектора W (Макросы/Sub)
Определить сумму, произведение и кол-во элементов вектора W
dsfsv Дата: Понедельник, 02.05.2022, 11:52 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Читал правила форума, пишу честно и прямо, решите пожалуйста за меня задачу, если бы знал, как делать сделал бы самостоятельно.
Определить сумму, произведение и количество элементов вектора W
размерности n, значения которых попадают в интервал [S; T].
 
Ответить
СообщениеЧитал правила форума, пишу честно и прямо, решите пожалуйста за меня задачу, если бы знал, как делать сделал бы самостоятельно.
Определить сумму, произведение и количество элементов вектора W
размерности n, значения которых попадают в интервал [S; T].
Автор - dsfsv
Дата добавления - 02.05.2022 в 11:52
Pelena Дата: Понедельник, 02.05.2022, 18:45 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19182
Репутация: 4420 ±
Замечаний: ±

Excel 365 & Mac Excel
И Вам здравствуйте.
Так как примера нет и непонятно, откуда брать данные и куда выводить результат, ответ примерный
[vba]
Код
Sub WWW()
    pr = 1
    For i = 1 To n
        If W(i) >= S And W(i) <= T Then
            k = k + 1   'количество
            sm = sm + W(i)    'сумма
            pr = pr * W(i)    'произведение
        End If
    Next i
End Sub
[/vba]

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеИ Вам здравствуйте.
Так как примера нет и непонятно, откуда брать данные и куда выводить результат, ответ примерный
[vba]
Код
Sub WWW()
    pr = 1
    For i = 1 To n
        If W(i) >= S And W(i) <= T Then
            k = k + 1   'количество
            sm = sm + W(i)    'сумма
            pr = pr * W(i)    'произведение
        End If
    Next i
End Sub
[/vba]
Автор - Pelena
Дата добавления - 02.05.2022 в 18:45
dsfsv Дата: Понедельник, 02.05.2022, 19:16 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Pelena, Спасибо, а как вывести данные на лист excel ? (данные браться из таблицы должны), значения любые.
 
Ответить
СообщениеPelena, Спасибо, а как вывести данные на лист excel ? (данные браться из таблицы должны), значения любые.
Автор - dsfsv
Дата добавления - 02.05.2022 в 19:16
Pelena Дата: Понедельник, 02.05.2022, 19:19 | Сообщение № 4
Группа: Админы
Ранг: Местный житель
Сообщений: 19182
Репутация: 4420 ±
Замечаний: ±

Excel 365 & Mac Excel
По Правилам форума готовить пример файла должен автор вопроса

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеПо Правилам форума готовить пример файла должен автор вопроса
Автор - Pelena
Дата добавления - 02.05.2022 в 19:19
dsfsv Дата: Понедельник, 02.05.2022, 19:43 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Pelena, Можете пожалуйста, теперь посмотреть ?
К сообщению приложен файл: 09-0.xlsm (16.8 Kb)
 
Ответить
СообщениеPelena, Можете пожалуйста, теперь посмотреть ?
Автор - dsfsv
Дата добавления - 02.05.2022 в 19:43
Pelena Дата: Понедельник, 02.05.2022, 20:16 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 19182
Репутация: 4420 ±
Замечаний: ±

Excel 365 & Mac Excel
[vba]
Код
Sub WWW()
    W = Range("C2:I2").Value
    n = Range("M3")
    S = Range("K3")
    T = Range("L3")
    pr = 1
    For i = 1 To n
        If W(1, i) >= S And W(1, i) <= T Then
            k = k + 1   'количество
            sm = sm + W(1, i)   'сумма
            pr = pr * W(1, i)   'произведение
        End If
    Next i
    Range("C6") = k
    Range("C7") = sm
    Range("C8") = pr
End Sub
[/vba]
К сообщению приложен файл: 9350505.xlsm (17.9 Kb)

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
Сообщение[vba]
Код
Sub WWW()
    W = Range("C2:I2").Value
    n = Range("M3")
    S = Range("K3")
    T = Range("L3")
    pr = 1
    For i = 1 To n
        If W(1, i) >= S And W(1, i) <= T Then
            k = k + 1   'количество
            sm = sm + W(1, i)   'сумма
            pr = pr * W(1, i)   'произведение
        End If
    Next i
    Range("C6") = k
    Range("C7") = sm
    Range("C8") = pr
End Sub
[/vba]
Автор - Pelena
Дата добавления - 02.05.2022 в 20:16
dsfsv Дата: Понедельник, 02.05.2022, 20:22 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 0 ±
Замечаний: 0% ±

Pelena, Спасибо, большое.
 
Ответить
СообщениеPelena, Спасибо, большое.
Автор - dsfsv
Дата добавления - 02.05.2022 в 20:22
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Определить сумму, произведение и кол-во элементов вектора W (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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