Макрос умножения

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

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

Макрос умножения

Alone-x

Дата: Среда, 19.01.2011, 18:35 | Сообщение № 1

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

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

Сообщений: 7

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

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

Всем доброго дня\вечера!))
Думал ну проще не бывает, ан нет) гугл не помог, хотя я может плохо искал)

Задача состоит в простом умножение)

Есть некий столбик чисел, но все они в неких УЕ.
1уе= 341

Нужен макрос который умножит весь столбик на 341

Ответить

Саня

Дата: Среда, 19.01.2011, 19:36 | Сообщение № 2

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

Ранг: Ветеран

Сообщений: 1068

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

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

XL 2016

Code

Sub Макрос7()
    Dim c As Range

    For Each c In Range("A1:A23")
       c.Value = c.Value * 341
    Next c
End Sub

Ответить

Serge_007

Дата: Среда, 19.01.2011, 20:42 | Сообщение № 3

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

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Quote (Alone-x)

Нужен макрос который умножит весь столбик на 341

Здравствуйте.

А макрос обязателен?
Это и так достаточно быстро делается, см. видео.

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Саня

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

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

Ранг: Ветеран

Сообщений: 1068

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

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

XL 2016

мне понравилось как ты диапазон выделил

[vba]

Код

Sub Макрос8()
     Dim c As Range

     Set c = Cells.SpecialCells(xlCellTypeBlanks).Cells(1, 1)

     c = 341
     c.Copy
     Range("A1:A27").PasteSpecial Operation:=xlMultiply

     c.Clear
End Sub

[/vba]

Ответить

Макрос умножения

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