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

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

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

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

Сообщений: 121


« Ответ #49412: 21 Декабрь 2018, 18:06 »

Если прямо в лоб, то примерно так. Если подумать, то можно пооптимизировать

Код:
If (oEvent.RangeAddress.StartColumn = 19) And _
    (oEvent.RangeAddress.StartRow > 0) And _
    (oEvent.RangeAddress.StartRow < 50) Then ' В диапазоне "T2:T50"?
        newVal = oEvent.getString()
        If Not isEmpty(oldValues) Then oldVal = oldValues(oEvent.RangeAddress.StartRow-1)(0)
        razd="-"
        If Len(oldVal) <> 0 And oldVal <> newVal Then
            If left(newVal,1,1)="O" Then razd="-"          
            oEvent.setString(oldVal & razd & newVal)            
        End If
        If Len(newVal) = 0 Then oEvent.ClearContents(7)
        on_ChangeSelection(oEvent)
    End If


Че поменять чтобы он после OD OS и OU ставил запятую?
Записан
Страниц: « 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!