Выбор из столбца необходимые числа и перенос их в другой.

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выбор из столбца необходимые числа и перенос их в другой. (Макросы/Sub)

Irina3011

Дата: Понедельник, 29.06.2015, 17:40 | Сообщение № 1

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

Ранг: Новичок

Сообщений: 10

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

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

Excel 2007

Заполнить 10 ячеек в столбце С целыми случайными числами из диапазона [10;40]. Выбрать и записать в столбец D те числа из столбца С, которые являются нечетными числами, принадлежащими отрезку [15; 25]

[vba]

Код

Sub zd_1()
Dim i As Integer, j As Byte
Cells.Clear
Randomize
j = 1
For i = 1 To 10
Cells(i, 3) = CInt(Rnd * (40 - 10) + 10)
If Cells(i, 3) >= 15 And Cells(i, 3) <= 25 And Cells(i, 3) Mod 2 <> 0 Then
Cells(j, 4) = Cells(i, 3)
j = j + 1
End If
Next i
End Sub

[/vba]
Вопрос теперь как из этого случайного ряда выбрать необходимые числа и посчитать их сумму.

В столбце E дана последовательность из n случайных целых чисел из диапазона [-15;45]. Вычислить и записать в ячейку А10 сумму тех чисел из столбца Е, которые нечетны и отрицательны.

Сообщение отредактировал Irina3011 - Понедельник, 29.06.2015, 17:49

Ответить

Manyasha

Дата: Понедельник, 29.06.2015, 18:56 | Сообщение № 2

Группа: Модераторы

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

Сообщений: 2198

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

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

Excel 2010, 2016

Irina3011, зачем Вы приводите код подобной задачи? Лучше показывайте код Вашей задачи с пометкой проблемного места.
Сл. числа из диапазона [-15;45][vba]

Код

Cells(i, 5) = CInt(Rnd * (45 + 15) - 15)

[/vba]
сумма:
[vba]

Код

    For i = 1 To 10
         If Cells(i, 5) < 0 And Cells(i, 5) Mod 2 <> 0 Then
         'или
         'If Cells(i, 5) < 0 And Cells(i, 5) Mod 2 =-1 Then
         'или
         'If Cells(i, 5) < 0 And (Cells(i, 5) And 1) Then
             summ = summ + Cells(i, 5)
         End If
     Next i
     [a10] = summ

[/vba]

ЯД: 410013299366744 WM: R193491431804

Ответить

Irina3011

Дата: Понедельник, 29.06.2015, 19:03 | Сообщение № 3

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

Ранг: Новичок

Сообщений: 10

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

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

Excel 2007

Цитата Manyasha, 29.06.2015 в 18:56, в сообщении № 2

зачем Вы приводите код подобной задачи? Лучше показывайте код Вашей задачи с пометкой проблемного места.

Прблемное место было именно в том чтоб Вычислить и записать в ячейку А10 сумму тех чисел из столбца Е, которые нечетны и отрицательны.

Ответить

Страница 1 из 1
1