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

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

20 Апрель 2021, 22:11 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Часто задаваемые вопросы по LibreOffice и Apache OpenOffice.org
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: « 1 2   Вниз
  Печать  
Автор Тема: Обрамление ячеек при помощи макроса [РЕШЕНО]  (Прочитано 10737 раз)
0 Пользователей и 1 Гость смотрят эту тему.
BotExtraSens
Участник
**
Offline Offline

Сообщений: 24


« Ответ #47011: 11 Май 2018, 12:43 »

Правильно система ругается, левых скобок вы поставили больше. Копируйте мой код из #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
Записан
Страниц: « 1 2   Вверх
  Печать  
 
Перейти в:  

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