Переделать формулу для срабатывания по нажатию кнопки

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Переделать формулу для срабатывания по нажатию кнопки (Макросы/Sub)

Cooper

Дата: Четверг, 12.01.2017, 19:06 | Сообщение № 1

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

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

Сообщений: 2

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

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

Excel 2013

Добрый день, подскажите пожалуйста, уже весь мозг сломал, как можно переделать этот код чтобы срабатывал только по нажатию кнопки на листе, а то у самого только ошибок пачку отлично получается генерировать))))
Заранее спасибо)

[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)

        Dim Rng As Range
If Not Target Is Nothing Then
        If Not Intersect(Target, Range("B12")) Is Nothing Then
        Application.EnableEvents = False
        Set Rng = Rows(2).Find(what:=Target, LookIn:=xlValues, lookAt:=xlWhole)
        If Not Rng Is Nothing Then
            Rng.Offset(1, 0) = Rng.Offset(1, 0) - Target.Offset(10, 0)
            Set Target = Nothing
        End If
        Application.EnableEvents = True
        End If
End If

[/vba]

Ответить

Manyasha

Дата: Четверг, 12.01.2017, 19:17 | Сообщение № 2

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

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

Сообщений: 2198

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

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

Excel 2010, 2016

Cooper, здравствуйте, так хотите?
[vba]

Код

Sub macro()
    Dim Rng As Range
    Set Rng = Rows(2).Find(what:=Range("B12"), LookIn:=xlValues, lookAt:=xlWhole)
    If Not Rng Is Nothing Then
        Rng.Offset(1, 0) = Rng.Offset(1, 0) - Range("B12").Offset(10, 0)
    End If
End Sub

[/vba]

ЯД: 410013299366744 WM: R193491431804

Ответить

Cooper

Дата: Четверг, 12.01.2017, 19:23 | Сообщение № 3

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

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

Сообщений: 2

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

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

Excel 2013

ЭТО ГЕНИАЛЬНО!!!
Спасибо большое))))

Ответить

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