Макрос. - Microsoft Office Excel

Hagen83 · 26.12.2010, 22:28

Всем привет,

Цель задачи расскажу на примере. Есть данные, которые я копирую в ячейку. Они находятся в первой строке. Необходимо, чтобы сразу при вставке, я той ячейке, куда я вставляю данные, появлялся результат, который указан во второй строке. То есть нужно все сложить.

Буду очень признателен за помощь. Заранее спасибо.

EducatedFool · 26.12.2010, 22:47

Проверяйте: http://excelvba.ru/XL_Files/Sample__...0__0-47-53.zip

Вот весь код:

Код:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = 1 And Target.Count = 1 Then
        x = Application.Evaluate(Replace(Target, vbLf, "+"))
        If Not IsError(x) Then
            Application.EnableEvents = False
            Target = x
            Application.EnableEvents = True
        End If
    End If
End Sub

Hagen83 · 26.12.2010, 22:51

EducatedFool, огромное спасибо. Работает.

26.12.2010, 22:47	#2
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,856	Проверяйте: http://excelvba.ru/XL_Files/Sample__...0__0-47-53.zip Вот весь код: Код: `Private Sub Worksheet_Change(ByVal Target As Range) If Target.Row = 1 And Target.Count = 1 Then x = Application.Evaluate(Replace(Target, vbLf, "+")) If Not IsError(x) Then Application.EnableEvents = False Target = x Application.EnableEvents = True End If End If End Sub` __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Макрос постоянно обрабатывает события. При открытии другой книги макрос обрывается.	Ples	Microsoft Office Excel	8	17.12.2016 18:15
Exel - при открытии файла через макрос, если файл отсутствует - виснет весь макрос	gregory1b	Microsoft Office Excel	2	14.10.2010 11:51
Макрос, запускающий макрос из другого закрытого файла	petruha	Microsoft Office Excel	7	14.03.2010 11:31
Макрос вставки файлов в листы-Необходимо изменить ниже приведённый макрос	as-is	Microsoft Office Excel	4	25.02.2010 07:51
Макрос	терпкая_весна	Microsoft Office Excel	2	18.05.2009 12:53

26.12.2010, 22:51	#3
Hagen83 Пользователь Регистрация: 13.03.2010 Сообщений: 33	EducatedFool, огромное спасибо. Работает.