Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

26 Сентябрь 2021, 03:56 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Здесь можно поблагодарить участников форума Улыбка
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1 2 3 4 5 »   Вниз
  Печать  
Автор Тема: мультивыбор в выпадающем списке  (Прочитано 13881 раз)
0 Пользователей и 1 Гость смотрят эту тему.
lufthansa
Форумчанин
***
Offline Offline

Пол: Женский
Расположение: Минск
Сообщений: 50



« Ответ #48191: 25 Сентябрь 2018, 10:38 »

Добрый)

Снова я и снова с выпадающим списком.
Задача такая: выбрать несколько значений с выпадающего списка.

Нашла на форумах excel макрос для этого (https://www.planetaexcel.ru/techniques/1/181/).
Скачала я пример и проверяю, макросы на первой и второй вкладках работают, а нужный макрос не работает.

Я в макросах на уровне ctrl+c ctrl+v, помогите, может его как-то переделать и он заработает или это такой Либре (ведь в excel работает)?

Код:
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


Файл я скачала все по той же ссылке.

* dropdown-multi-select.xls (42 Кб - загружено 21 раз.)
Записан
Страниц: 1 2 3 4 5 »   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!