Создание макроса с умножением

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

Создание макроса с умножением (Макросы/Sub)

Leo201297

Дата: Среда, 15.11.2017, 20:37 | Сообщение № 1

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

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

Сообщений: 4

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

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

Excel 2003

Всем доброго дня/вечера)
Задача такова: создать макрос как в примере ниже, который автоматически посчитает новую зарплату при повышении на Х процентов и запишет. Этот Х должен вноситься из определенной ячейки.

К сообщению приложен файл: 0407493.png (8.0 Kb)

Сообщение отредактировал Leo201297 - Среда, 15.11.2017, 20:39

Ответить

RAN

Дата: Среда, 15.11.2017, 20:41 | Сообщение № 2

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

А что, ниже пример есть? И в нем макрос?

Быть или не быть, вот в чем загвоздка!

Ответить

Leo201297

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

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

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

Сообщений: 4

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

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

Excel 2003

Нет, в файле макроса нет. Это картинка, иллюстрирующая условие. Т.е. после запуска макроса цифры в столбце "зарплата" должны увеличиваться на процент, который предварительно введен в ячейку "процент". Умножение на конкретное число - не решение проблемы, т.к. значения процента - величина переменная, вводимая пользователем.

Ответить

Pelena

Дата: Среда, 15.11.2017, 21:08 | Сообщение № 4

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

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

Сообщений: 19603

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

Замечаний: ±

Excel 365 & Mac Excel

Leo201297, приложите файл с примером в формате Excel в соответствии с Правилами форума.

"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816

Ответить

Leo201297

Дата: Среда, 15.11.2017, 21:14 | Сообщение № 5

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

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

Сообщений: 4

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

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

Excel 2003

Собственно, файл

К сообщению приложен файл: 7126694.xls (15.5 Kb)

Ответить

_Boroda_

Дата: Среда, 15.11.2017, 21:43 | Сообщение № 6

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

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

Сообщений: 17006

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

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Так нужно?
[vba]

Код

Sub tt()
    Application.ScreenUpdating = 0
    With Range("D2")
        z_ = .Value
        .Value = .Value / 100 + 1
        .Copy
        r1_ = Range("B" & Rows.Count).End(xlUp).Row
        Range("B2:B" & r1_).PasteSpecial Operation:=xlMultiply
        .Value = z_
    End With
    Application.CutCopyMode = 0
    Range("D2").Select
    Application.ScreenUpdating = 1
End Sub

[/vba]

К сообщению приложен файл: 7126694_1.xls (35.0 Kb)

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

Ответить

RAN

Дата: Среда, 15.11.2017, 21:50 | Сообщение № 7

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

Ранг: Экселист

Сообщений: 5660

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

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

2010

Цитата _Boroda_, 15.11.2017 в 21:43, в сообщении № 6 (

)

цифры в столбце "зарплата" должны увеличиваться

[vba]

Код

Sub qq()
    Dim a() As Byte
    Dim aa
    For Each cell In [b2:b4]
        If Len(cell) Then
            a = CStr(cell)
            ReDim aa(UBound(a))
            For i = LBound(a) To UBound(a)
                If i Mod 2 Then
                    aa(i) = ""
                Else
                    aa(i) = Val(Chr(a(i))) * [d2] / 100
                End If
            Next
            cell.Value = Join(aa, "")
        End If
    Next
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Сообщение отредактировал RAN - Среда, 15.11.2017, 21:51

Ответить

Leo201297

Дата: Среда, 15.11.2017, 21:52 | Сообщение № 8

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

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

Сообщений: 4

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

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

Excel 2003

Божеечки, _Boroda_ спасибо огроменное, все работает! hands

Ответить

Создание макроса с умножением (Макросы/Sub)

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