В Excele это делается так :Columns("U:AL").EntireColumn.Hidden = False Columns("U:AL").EntireColumn.Hidden = TrueА как сделать в OOO Calc ?В принципе можно и так :Sub ColFalse()Doc = StarDesktop.CurrentComponentSheet = Doc.Sheets.getByName("Лист1")for i =0 to 4Col = Sheet.Columns(i)Col.IsVisible = trueNext IEnd Subно хотелось бы обойтись без связки For ... Next .
|