Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Выбор нескольких значений из всплывающего списка в ячейке - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Выбор нескольких значений из всплывающего списка в ячейке (Формулы/Formulas)
Выбор нескольких значений из всплывающего списка в ячейке
tatanya Дата: Суббота, 28.04.2018, 15:37 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 1 ±
Замечаний: 0% ±

Excel 2003
Здравствуйте! Помогите осуществить затею. Мне нужно чтобы в колонках с названием "Причина..." возможно было выбирать несколько значений из созданного мною всплывающего списка через ";". Список, из которого осуществляется выбор будет постоянно пополнятся и основная таблица по мере ее наполнения также будет увеличиваться. У меня есть уже таблица с реальными значениями, в которую, если мне кто-то окажет посильную помощь, нужно будет вставить макрос и чтобы она у меня работала.
К сообщению приложен файл: 5678386.xls(64.0 Kb)


Сообщение отредактировал tatanya - Суббота, 28.04.2018, 15:38
 
Ответить
СообщениеЗдравствуйте! Помогите осуществить затею. Мне нужно чтобы в колонках с названием "Причина..." возможно было выбирать несколько значений из созданного мною всплывающего списка через ";". Список, из которого осуществляется выбор будет постоянно пополнятся и основная таблица по мере ее наполнения также будет увеличиваться. У меня есть уже таблица с реальными значениями, в которую, если мне кто-то окажет посильную помощь, нужно будет вставить макрос и чтобы она у меня работала.

Автор - tatanya
Дата добавления - 28.04.2018 в 15:37
StoTisteg Дата: Суббота, 28.04.2018, 15:45 | Сообщение № 2
Группа: Авторы
Ранг: Ветеран
Сообщений: 918
Репутация: 78 ±
Замечаний: 0% ±

Excel 2010
Боюсь, без макроса тут никак. А в макросе нужна форма с ListBox с установленным
[vba]
Код
.MultiSelect = fmMultiSlectMulti
[/vba]


Проверь всё. ThisWorkbook.Save. On Error Resume Next.
 
Ответить
СообщениеБоюсь, без макроса тут никак. А в макросе нужна форма с ListBox с установленным
[vba]
Код
.MultiSelect = fmMultiSlectMulti
[/vba]

Автор - StoTisteg
Дата добавления - 28.04.2018 в 15:45
tatanya Дата: Суббота, 28.04.2018, 16:29 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 1 ±
Замечаний: 0% ±

Excel 2003
Я понимаю, что нужен макрос, но я в этом ничего не понимаю, а мне очень нужно. Может кто-то подскажет куда реально можно обратиться с этим, чтобы очень быстро помогли? ))
 
Ответить
СообщениеЯ понимаю, что нужен макрос, но я в этом ничего не понимаю, а мне очень нужно. Может кто-то подскажет куда реально можно обратиться с этим, чтобы очень быстро помогли? ))

Автор - tatanya
Дата добавления - 28.04.2018 в 16:29
Nic70y Дата: Суббота, 28.04.2018, 21:05 | Сообщение № 4
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4738
Репутация: 1024 ±
Замечаний: 0% ±

Excel 2013
сбацал тяп - ляп :)
а вдруг пригодится
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    [L185] = Target
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("g4:g176")) Is Nothing Then
    If Target.Count > 1 Then Exit Sub
        If Target <> "" Then
            If [L187] = 0 Then
                If [L185] <> "" Then
                    [L185] = [L185] & ";" & Chr(10) & Target
                Else
                    [L185] = Target
                End If
                U__127
            End If
        Else
            [L185] = ""
        End If
    End If
End Sub
[/vba]
[vba]
Код
Sub U__127()
    [L187] = 1
    ActiveCell = [L185]
    [L187] = 0
End Sub
[/vba]
К сообщению приложен файл: 5518354.xls(75.5 Kb)


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)
 
Ответить
Сообщениесбацал тяп - ляп :)
а вдруг пригодится
[vba]
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    [L185] = Target
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("g4:g176")) Is Nothing Then
    If Target.Count > 1 Then Exit Sub
        If Target <> "" Then
            If [L187] = 0 Then
                If [L185] <> "" Then
                    [L185] = [L185] & ";" & Chr(10) & Target
                Else
                    [L185] = Target
                End If
                U__127
            End If
        Else
            [L185] = ""
        End If
    End If
End Sub
[/vba]
[vba]
Код
Sub U__127()
    [L187] = 1
    ActiveCell = [L185]
    [L187] = 0
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 28.04.2018 в 21:05
tatanya Дата: Воскресенье, 29.04.2018, 17:41 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 1 ±
Замечаний: 0% ±

Excel 2003
Спасибо! Столбец "G" работает, а как сделать чтобы и "K" тоже также работал?
 
Ответить
СообщениеСпасибо! Столбец "G" работает, а как сделать чтобы и "K" тоже также работал?

Автор - tatanya
Дата добавления - 29.04.2018 в 17:41
Nic70y Дата: Воскресенье, 29.04.2018, 19:25 | Сообщение № 6
Группа: Друзья
Ранг: Участник клуба
Сообщений: 4738
Репутация: 1024 ±
Замечаний: 0% ±

Excel 2013
добавил
плюс ориентир по последней ячейке с датой
К сообщению приложен файл: 7533164.xls(67.0 Kb)


ЯД(poison) 41001841029809
+7 978 049 98 74 (мтс)
 
Ответить
Сообщениедобавил
плюс ориентир по последней ячейке с датой

Автор - Nic70y
Дата добавления - 29.04.2018 в 19:25
tatanya Дата: Понедельник, 30.04.2018, 15:53 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 4
Репутация: 1 ±
Замечаний: 0% ±

Excel 2003
Спасибо большущее! Все работает как нужно!
 
Ответить
СообщениеСпасибо большущее! Все работает как нужно!

Автор - tatanya
Дата добавления - 30.04.2018 в 15:53
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Выбор нескольких значений из всплывающего списка в ячейке (Формулы/Formulas)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2018 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!