|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.08.2017, 23:36 | #1 |
Новичок
Джуниор
Регистрация: 23.08.2017
Сообщений: 1
|
Помогите объеденить 2 скрипта
1 Скрипт делает выпадающий список в ячейке
Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, Range("C2:C5")) Is Nothing And Target.Cells.Count = 1 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 2 Скрипт - складывает значение в одной ячейке Private vData Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) If Target.Count > 1 Then Exit Sub If Not Intersect(Target, [H5:H100]) 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, [H5:H100]) 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 Необходимо совместить оба скрипта, чтобы они могли работать на одном листе. Огромное спасибо уважаемые программисты |
24.08.2017, 06:26 | #2 |
Участник клуба
Регистрация: 02.05.2010
Сообщений: 1,390
|
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728 |
Опции темы | Поиск в этой теме |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите с изменением скрипта | Elay | HTML и CSS | 1 | 12.03.2016 19:24 |
Помогите с синхронизацией работы скрипта | lollollollol | PHP | 15 | 13.05.2014 22:49 |
Помогите с написание скрипта | Руслан65789987 | Общие вопросы C/C++ | 0 | 10.12.2013 15:07 |