Перевод макроса на преобразование в автоматический режим

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перевод макроса на преобразование в автоматический режим (Макросы/Sub)

graffserg

Дата: Четверг, 22.12.2016, 09:46 | Сообщение № 1

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

Ранг: Участник

Сообщений: 84

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

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

2010

Уважаемые форумчане!
Прошу Вашей помощи, а именно:
1. имеется формула -

Код

ПСТР(Данные!W3; 13; 2)

, которая извлекает необходимые данные
2. далее эти данные преобразовываются с помощью макроса
[vba]

Код

Sub Преобразование()
Application.ScreenUpdating = False
Range("C5:C8").Copy
With Range("D5:D8")
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats
End With
With Application
.ScreenUpdating = False: .CutCopyMode = False
Selection.TextToColumns:
End With
End Sub

[/vba]
Вопрос - как можно данный макрос перевести в автоматический режим, т.е. чтобы при изменении данных в ячейках C5:C8 листа Потребность в материалах, данный макрос автоматически срабатывал и изменял данные?
Спасибо.

Сообщение отредактировал graffserg - Четверг, 22.12.2016, 11:26

Ответить

Nic70y

Дата: Четверг, 22.12.2016, 10:32 | Сообщение № 2

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

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

Сообщений: 8761

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

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

Excel 2010

Код нужно не под спойлер, а под #
в связи с этим отвечать нельзя, по этому я спрошу:
Вы копируете C5:C8 и вставляете значения и форматы в D5:D8,
вопрос анафига?

ЮMoney 41001841029809

Ответить

graffserg

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

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

Ранг: Участник

Сообщений: 84

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

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

2010

Цитата Nic70y, 22.12.2016 в 10:32, в сообщении № 2 ()

Вы копируете C5:C8 и вставляете значения и форматы в D5:D8,
вопрос анафига?

Нет, я:
1. с помощью формулы ПСТР(Данные!W3; 13; 2) вытаскиваю необходимые данные с листа "данные", в данном случае толщину ДСП, в ячейки C5:C8
2. макрос (находится в модуле листа) преобразовывает полученные данные из текстового формата в цифровой и копирует в ячейки D5:D8 . Но он срабатывает если его запускать принудительно.
3. мне необходимо чтобы он срабатывал автоматически при изменении данных в в ячейках C5:C8.
Я понимаю, что необходимо использовать Private Sub Worksheet_Change(ByVal Target As Range), но как это прикрутить иммено к макросу не знаю.

Ответить

Manyasha

Дата: Четверг, 22.12.2016, 11:30 | Сообщение № 4

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

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

Сообщений: 2198

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

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

Excel 2010, 2016

graffserg, здравствуйте, попробуйте так
[vba]

Код

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("C5:C8")) Is Nothing Then
        Преобразование
    End If
End Sub

[/vba]