Макрос на список значений назначенный на конкретные ячейки

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

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

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

voxron

Дата: Среда, 10.01.2018, 11:21 | Сообщение № 1

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

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

Сообщений: 1

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

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

Excel 2016

Добрый день!
Никогда не программировал на VBA, так что особо не пинайте.
Есть небольшая задачка.
Приложил скрин с формата файла. Нужно назначить на выделенные стрелочкой макрос VBA, для остальных ячеек, макрос отрабатывать не должен.
Что делает макрос? Он дает возможность вставлять несколько значений через запятую в объединенные ячейки.
Пример макроса, который сейчас есть:

# Private Sub Worksheet_Change(ByVal Target As Range)
'On Error Resume Next
If Target.Cells.Count = 1 And Target.Column = 4 And Target.Row = 7 Then
Application.EnableEvents = False
newVal = Target
Application.Undo
oldval = Target
If Len(oldval) <> 0 And oldval <> newVal Then
Target = Target & ", " & newVal
Else
Target = newVal
End If
If Len(newVal) = 0 Then Target.ClearContents
Application.EnableEvents = True
End If
End Sub #

Список значений назначенный на ячейку, берется со второй закладки.