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

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

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

Войти
Новости: Доступно и просто о работе в офисных пакетах
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: При создание макроса ввожу такой текст: Private Sub Worksheet_Ch...  (Прочитано 1401 раз)
0 Пользователей и 1 Гость смотрят эту тему.
ForumOOo (бот)

Offline Offline

Сообщений: 700


« Стартовое сообщение: 18 Август 2015, 17:13 »

Компонент: Calc
Версия продукта: 4.1.x
Сборка: OpenOffice
ОС: Windows 7

При создание макроса ввожу такой текст:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$12" Then
Sheets(2).Rows(29).Hidden = (Target = "стандартный")
End If
If Target.Address = "$B$45" Then
Sheets(2).Rows(30).Hidden = (Target = "нет")
End If
If Target.Address = "$B$52" Then
Sheets(2).Rows(31).Hidden = (Target = "нет")
End If
If Target.Address = "$B$44" Then
Sheets(2).Rows(32).Hidden = (Target = "нет")
End If
If Target.Address = "$B$53" Then
Sheets(2).Rows(33).Hidden = (Target = "нет")
End If
If Target.Address = "$C$57" Then
Sheets(2).Rows(34).Hidden = (Target = "0")
End If
If Target.Address = "$C$64" Then
Sheets(2).Rows(35).Hidden = (Target = "0")
End If
If Target.Address = "$B$20" Then
Sheets(2).Rows(18).Hidden = (Target = "нет")
End If
If Target.Address = "$B$25" Then
Sheets(2).Rows(17).Hidden = (Target = "нет")
End If
If Target.Address = "$B$26" Then
Sheets(2).Rows(16).Hidden = (Target = "нет")
End If
End Sub

Работает нормально, но стоит выйти и зайти заново начинает выдавать ошибку:
type: com.sun.star.lang.IllegalArgumentException
Message: argument len differ!.

Что это может быть?

--
Подпись: Ivan
Записан
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

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