Умножение столбца данных на число

Дата: Пятница, 05.10.2018, 10:37 | Сообщение № 1

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

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

Сообщений: 15

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

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

Excel 2013

Уважаемые форумчане,
У меня имеется столбец цифр, состоящий из 3000 строк. Мне необходимо умножить этот столбец на число, округлить и записать результат в другой столбец. Просто умножение я записываю так:
[vba]

Код

[j6:j3011].Value = [m6:m3011 * A1]

[/vba]
Но если я записываю формулу:[vba]

Код

[j6:j3011].Value = Round( [m6:m3011 * A1], 0)

[/vba], то выдается ошибка 13. Я так понимаю, что наверное надо определить массив в начале макроса. Может кто подскажет решение проблеммы?

Дата: Пятница, 05.10.2018, 10:54 | Сообщение № 2

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

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

Сообщений: 16718

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Можно вот так
[vba]

Код

Sub tt()
[j6:j14].Value = [m6:m14 * A1+.5]
[j6:j14].Replace What:=".*", Replacement:=""
End Sub

[/vba]
Leon307, в следующий раз кладите свой файл-пример.

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Дата: Пятница, 05.10.2018, 11:01 | Сообщение № 3

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

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

Сообщений: 15

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

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

Excel 2013

Спасибо!

Дата: Пятница, 05.10.2018, 11:14 | Сообщение № 4

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

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

Сообщений: 15

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

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

Excel 2013

Все работает, но без округления...

К сообщению приложен файл: _____.rar (19.1 Kb)

Дата: Пятница, 05.10.2018, 11:24 | Сообщение № 5

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

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

Сообщений: 16718

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Не вижу у Вас в файле ни с округлением, ни без округления. Вы вообще тот файл положили?
И зачем его архивировать?

Дата: Пятница, 05.10.2018, 11:29 | Сообщение № 6

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

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

Сообщений: 15

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

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

Excel 2013

Архивтровал, поскольку иначе не берет. А округление я вынужден был сделать в стольце В, так как в столбце С не удалось...

Дата: Пятница, 05.10.2018, 11:32 | Сообщение № 7

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

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

Сообщений: 15

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

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

Excel 2013

Извините, в приложенном файле у меня умножвется столбец F, а резкльтаты записываются в столбец С. Затем берется остаток от деления столбца В на постоянную в ячейке В3.

Дата: Пятница, 05.10.2018, 11:34 | Сообщение № 8

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

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

Сообщений: 16718

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Я макроса своего сегодняшнего в Вашем файле от 02.10.2018 не вижу. Странно, да?

Дата: Пятница, 05.10.2018, 11:48 | Сообщение № 9

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

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

Сообщений: 15

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

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

Excel 2013

Вот макрос с Вашим примером:
[vba]

Код

Public Sub Counter()
Dim CounterCell As Range, i As Long
Set CounterCell = ActiveSheet.Range("A1")
CounterCell.Value = 0

'Application.ScreenUpdating = False

Do While CounterCell.Value < 1000000#
CounterCell.Value = CounterCell.Value + 0.01
[c6:c16].Value = [f6:f16*A1+.5]
[c6:c16].Replace What:=".*", Replacement:=""
Loop

'Application.ScreenUpdating = True

End Sub

[/vba]

Сейчас переправлю уже исправленный файл. Еще раз простите.

К сообщению приложен файл: 2481040.rar (18.7 Kb)

Дата: Пятница, 05.10.2018, 11:58 | Сообщение № 10

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

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

Сообщений: 16718

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

И что не нравится? В столбце С все округляется, про столбец В речи вообще не было, да и не совсем ясно, что там такое и зачем

Дата: Пятница, 05.10.2018, 12:00 | Сообщение № 11

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

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

Сообщений: 15

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

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

Excel 2013

Да мне хотелось, чтобы округлялось в столбце В, если конечно это в принципе врзможно. Думаю, что это ускорило бы программу, поскольку у меня строчек больше 3000 в оригинальной програмке.

Дата: Пятница, 05.10.2018, 12:04 | Сообщение № 12

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

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

Сообщений: 15

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

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

Excel 2013

А вся мысль посвящена одной задаче: Преобразование ряда случайных чисел в линейную функцию на примере словацкого ЛОТО. Нсли интнонсно, могу рассказать более подробно, но, наверное, не здесь, а в личной переписке.

Дата: Пятница, 05.10.2018, 12:10 | Сообщение № 13

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

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

Сообщений: 16718

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Спасибо, не стоит. Лучше нормально сформулируйте вопрос. В первом посте был вопрос про округление умноженного. Я Вам ответ на него дал. Что не так-то?
Дальше пошли какие-то столбцы В и С, какая-то 23 в ячейке В3 и совершенно непонятная формула в столбце В - зачем округлять заведомо целые данные, полученные функцией ОСТАТ?
Короче, ничего не понятно

Дата: Пятница, 05.10.2018, 12:21 | Сообщение № 14

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

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

Сообщений: 15

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

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

Excel 2013

Ладно, дальше попробую сам разобраться. Спасибо еще раз за подсказку!