Помогите с макросом - Microsoft Office Excel

Igg69 · 06.06.2016, 21:54

Нашел на форуме макрос суммирующий данные в ячейке. Все работает. Только сумма в ячейке не удаляется.Что надо сделать что бы ячейка очищалась?

Private vData

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [A1:A100]) Is Nothing Then
If IsNumeric(Target) Then vData = Target
End If
End Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Not Intersect(Target, [A1:A100]) Is Nothing Then
Application.EnableEvents = False
If Target.Count = 1 And IsNumeric(Target(1)) Then
Target = Target + vData
Else
Application.Undo
End If
Application.EnableEvents = True
End If
End Sub

Hugo121 · 06.06.2016, 21:58

Введите в ячейку число с обратным знаком.
А ещё вроде можно выделить сразу две ячейки и удалить.
Пример для проверки лень делать, да и зачем, нам оно не надо.

зондер · 29.08.2016, 19:58

нужен макрос для подсчета площади и периметра для CorelDRAW X8. Дело в том, что макросы такие есть, но только до Х7 (да и то не все работают). В Х8 нет даже папки GMS, куда вставляли нужные приблуды. Есть возможность помочь в этом вопросе? Если есть, то сколько будет стоить? Сообщество дизайнеров вам будет благодарно, найдутся те, кто сможет скинуться на этот инструмент.

06.06.2016, 21:54	#1
Igg69 Новичок Джуниор Регистрация: 06.06.2016 Сообщений: 1	Помогите с макросом Нашел на форуме макрос суммирующий данные в ячейке. Все работает. Только сумма в ячейке не удаляется.Что надо сделать что бы ячейка очищалась? Private vData Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Target.Count > 1 Then Exit Sub If Not Intersect(Target, [A1:A100]) Is Nothing Then If IsNumeric(Target) Then vData = Target End If End Sub Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Not Intersect(Target, [A1:A100]) Is Nothing Then Application.EnableEvents = False If Target.Count = 1 And IsNumeric(Target(1)) Then Target = Target + vData Else Application.Undo End If Application.EnableEvents = True End If End Sub

06.06.2016, 21:58	#2
Hugo121 Старожил Регистрация: 11.05.2010 Сообщений: 5,166	Введите в ячейку число с обратным знаком. А ещё вроде можно выделить сразу две ячейки и удалить. Пример для проверки лень делать, да и зачем, нам оно не надо. webmoney: E265281470651 Z422237915069 R418926282008 Последний раз редактировалось Hugo121; 06.06.2016 в 22:01.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Помогите с макросом!	Nikita1987	Microsoft Office Excel	2	18.12.2014 10:43
Помогите с макросом	Dasha-DEV	Microsoft Office Word	4	29.10.2014 14:06
Помогите с макросом	famasik	Microsoft Office Excel	2	10.12.2013 17:20
Помогите с макросом	Romuald	Microsoft Office Excel	23	05.02.2009 11:51

29.08.2016, 19:58	#3
зондер Новичок Джуниор Регистрация: 29.08.2016 Сообщений: 1	нужен макрос для подсчета площади и периметра для CorelDRAW X8. Дело в том, что макросы такие есть, но только до Х7 (да и то не все работают). В Х8 нет даже папки GMS, куда вставляли нужные приблуды. Есть возможность помочь в этом вопросе? Если есть, то сколько будет стоить? Сообщество дизайнеров вам будет благодарно, найдутся те, кто сможет скинуться на этот инструмент.