Правильно система ругается, левых скобок вы поставили больше. Копируйте мой код из #12, он рабочий.
И стоит обрезать мой комментарий, в коде он не нужен. Это то что после символа '
Не обратил внимание
Ваш код Рабочий!
Концепцию вашего варианта вроде понял.
Кое что к ниму прикрутил в качестве доп оформления
Global i As Integer ' Глобальная Переменная сохраняет свои значения даже после завершения макрос
Global k As Integer ' Глобальная Переменная сохраняет свои значения даже после завершения макрос
Global h As Integer
Global j As Integer
Option VBASupport 1 ' поддержка совместимости с VBA
Option Compatible
Sub Graf
Dim oDoc as Object ' Dim - обьявление переменной oDoc тип Object
Dim oCell as Object ' Dim - обьявление переменной oCell тип Object
Dim oSheet as Object ' Dim - обьявление переменной oSheet тип Object
oDoc=ThisComponent ' Обращение к Текущему Открытому Документу
oSheet = oDoc.sheets (2) ' Обращение к № Листа Текущего Документа (Индекс 0 это первый Лист,Индекс 1 это Второй Лист и т.д)
oCell = oSheet.getCellByPosition (i, k) ' Обращение к Ячейке на Листе (первый индекс Столбец , второй индекс Строка) - Позицирование
oCell.Value = i ' Присвоение Ячейке значения Глобальной переменной (i)
oCell = oSheet.getCellByPosition (i, k) ' Обращение к Ячейке на Листе (первый индекс Столбец , второй индекс Строка) - Позицирование
oCell.Value = k ' Присвоение Ячейке значения Глобальной переменной (k)
i = i + 1 ' увеличение значений глобальной переменной (k) на +1 с каждым запуском макроса
k = k + 1 ' увеличение значений глобальной переменной (k) на +1 с каждым запуском макроса
j = j + 1
h = h + 1
oCell.CellBackColor = RGB(0, 255, 0) ' Фон ячейки (зеленый)
ocell.CharColor = RGB(255, 0, 0) ' Цвет Чисел, Букв, Символов, Знаков (красный).
ocell.CharFontName = "Courier" ' Шрифт Courier
ocell.CharFontName = "Bold" ' Выделение шрифта (Жирный)
ocell.CharHeight = 14 ' Высота Чисел, Букв, Символов, Знаков
'===================================================
with Range(Cells(j, i), Cells(h, k)).Borders(xlEdgeLeft) 'Нумерация строк и столбцов в Cells идет с 0, то есть A1 - это Cells(0, 0)
.LineStyle = xlContinuous
.Weight = xlThin
End With
End Sub
