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