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

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 25 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 24.08.2017, 00:36   #1
bbt_26
Новичок
 
Регистрация: 24.08.2017
Сообщений: 1
Репутация: 10
По умолчанию Помогите объеденить 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, 07:26   #2
kuklp
Профессионал
 
Регистрация: 02.05.2010
Адрес: Украина, Днепропетровск.
Сообщений: 1,390
Репутация: 152

icq: 4190413
skype: pilipnik
По умолчанию

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


15:27.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.