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

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

26 Май 2020, 02:14 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Здесь можно поблагодарить участников форума Улыбка
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: Дата в ячейке в зависимости от выбора.  (Прочитано 1356 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Bigor
Мастер
*****
Offline Offline

Пол: Мужской
Сообщений: 912


« Ответ #53721: 20 Февраль 2020, 19:40 »

Пробуйте
Код:
Sub Izmeneno(oEvent)
' привязать этот макрос к событию листа "Содержимое изменено"
' Если в первой колонке выбран "Отправил", то во вторую запишет текущую дату
'---- Координаты диапазона, после изменения которого вызвана. Индекс Первой колонки не интересует, поэтому не смотрим её
' Последняя колонка диапазона. Если вызван из ячейки, то Start=End
nCol = oEvent.RangeAddress.EndColumn
nRow = oEvent.RangeAddress.StartRow
nRow_end = oEvent.RangeAddress.EndRow
' Текущий лист
oSheet = ThisComponent.Sheets(oEvent.RangeAddress.Sheet)
' Если хвост диапазона в первой колонке и одна ячейка

If (nCol=0) And (nRow = nRow_end) Then

Select Case oEvent.String
Case "Отправил"
       oSheet.getCellByPosition(2,nRow).Value = Now
                       Case "Переслал"
oSheet.getCellByPosition(3,nRow).Value = Now
Case "Закрыл"
           oSheet.getCellByPosition(4,nRow).Value = Now
End Select
End If
End sub
Записан

Поддержать разработчиков LibreOffice можно можно тут, а наш форум вот тут
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

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