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

Автор ForumOOo (бот), 18 августа 2015, 17:13

0 Пользователи и 1 гость просматривают эту тему.

ForumOOo (бот)

Компонент: 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