Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

Вернуться   Форум программистов > Microsoft Office и VBA > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Ответ
 
Опции темы
Старый 23.08.2017, 23:36   #1
bbt_26
Новичок
Джуниор
 
Регистрация: 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


Необходимо совместить оба скрипта, чтобы они могли работать на одном листе. Огромное спасибо уважаемые программисты
bbt_26 вне форума Ответить с цитированием
Старый 24.08.2017, 06:26   #2
kuklp
Участник клуба
 
Регистрация: 02.05.2010
Сообщений: 1,390
По умолчанию

Кросс:
http://www.planetaexcel.ru/forum/ind...rase_id=343116
mailto: kuklp60@gmail.com, ящики для благодарностей:
WM Z206653985942, R334086032478, U238399322728
kuklp вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите с изменением скрипта Elay HTML и CSS 1 12.03.2016 19:24
Помогите с синхронизацией работы скрипта lollollollol PHP 15 13.05.2014 21:49
Помогите с написание скрипта Руслан65789987 Общие вопросы C/C++ 0 10.12.2013 14:07


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS