Переменная типа Object не установлена

@Konstantin_F · Регистрация: 16.05.2015

Author24 — интернет-сервис помощи студентам

Здравствуйте! Написал простейший макрос в OpenOffice 4.1.5

Visual Basic

Sub Main
s=17
For i=1 To 6
    For J=1 To 24
        Cells(s. 1) = Cells(i. 1)
        Cells(s. 1) = Cells(j. 2)
        s=s+1    
    Next J
Next i
End Sub

Получил сообщение:
Ошибка времени выполнения BASIC
Переменная типа Object не установлена

При этом помечает эту строку: Cells(s. 1) = Cells(i. 1)

Что я не сделал?
Что сделать, чтобы макрос заработал?

@Krasme · 20.03.2018, 11:57

индексы ячеек разделяются запятыми
обратите внимание, внутри цикла в одну и ту же ячейку записываются разные данные

@Konstantin_F · 20.03.2018, 13:45 **[ТС]**

Исправил запятые
Теперь пишет в том же месте: Подпрограмма или функция не определена

@Krasme · 20.03.2018, 14:47

проверяйте
у меня libreoffice, не думаю, что openoffice иначе работает

Visual Basic

EM  *****  BASIC  *****
 
Sub Main
Dim oSheet As Object
oSheet=thisComponent.sheets.getByName("Лист1")
 
rem нумерация идет с 0
s=0
For i=0 To 6
 For j=0 To 24
   rem вариант числа
    oSheet.getCellByPosition(3,s).Value=oSheet.getCellByPosition(0,i).Value
    rem вариант строки
    oSheet.getCellByPosition(4,s).setstring(oSheet.getCellByPosition(0,j).getstring)
  s=s+1 
 Next j
Next i
 
End Sub

@Konstantin_F · 20.03.2018, 16:23 **[ТС]**

Пишет: Пишет синтаксическая ошибка Basic. Ожидается Sub

@Krasme · 20.03.2018, 16:32

вы полностью скопировали код?
тогда в первой строке поправьте "em" на "rem"
когда копировала кода, первую букву не зацепила

@Konstantin_F · 21.03.2018, 11:03 **[ТС]**

Да. Я исправил. Всё работает.
Немного не так как хотелось бы.

Получается столбец нулей и в следующем столбце значения первого столбца с пустыми ячейками.

Нужно брать в первом столбце первое значение и ставить ему в соответствие все значения из второго столбца.
Далее берем второе значение из первого столбца и т.д.

Что надо подправить в формуле?

@Krasme · 21.03.2018, 11:12

будет лучше, если все-таки приложите файл с введенными значениями и образцом того, что вы хотите получить

вышеприведенный код - лишь образец того, как работать с ячейками в libreoffice. исходных данных-то у меня нет.

@Konstantin_F · 21.03.2018, 12:07 **[ТС]**

В файле пример.
В столбцах А и В исходные данные
В столбце D результат

@Krasme · 21.03.2018, 12:17

конкретно под ваше задание

Visual Basic

REM  *****  BASIC  *****
 
Sub Main
Dim oSheet As Object
oSheet=thisComponent.sheets.getByName("Лист1")
 
rem нумерация идет с 0
s=0
For i=0 To 5
 For j=0 To 23
    rem вариант строки
    oSheet.getCellByPosition(3,s).setstring(oSheet.getCellByPosition(0,i).getstring + " " +oSheet.getCellByPosition(1,j).getstring)
  s=s+1 
 Next j
Next i
 
End Sub

@Konstantin_F · 21.03.2018, 12:50 **[ТС]**

Спасибо!

Всё отлично!

Подскажите где или что можно почитать, чтобы лучше разбираться в BASIC ?

@Krasme · 21.03.2018, 13:01

для начала пойдет это, далее гугло- и яндекспоиск
Программирование на языке OpenOffice.org Basic.pdf
MacrosExplained-Master.pdf

@Konstantin_F · 21.03.2018, 17:34 **[ТС]**

Спасибо!

Вы мне помогли!

@Krasme 6953 / 4984 / 2106 Регистрация: 02.02.2014 Сообщений: 13,241
	20.03.2018, 11:57	2
	индексы ячеек разделяются запятыми обратите внимание, внутри цикла в одну и ту же ячейку записываются разные данные 1

@Konstantin_F 0 / 0 / 0 Регистрация: 16.05.2015 Сообщений: 29
	20.03.2018, 13:45 [ТС]	3
	Исправил запятые Теперь пишет в том же месте: Подпрограмма или функция не определена 0

@Konstantin_F 0 / 0 / 0 Регистрация: 16.05.2015 Сообщений: 29
	20.03.2018, 16:23 [ТС]	5
	Пишет: Пишет синтаксическая ошибка Basic. Ожидается Sub 0

@Krasme 6953 / 4984 / 2106 Регистрация: 02.02.2014 Сообщений: 13,241
	20.03.2018, 16:32	6
	вы полностью скопировали код? тогда в первой строке поправьте "em" на "rem" когда копировала кода, первую букву не зацепила 1

@Konstantin_F 0 / 0 / 0 Регистрация: 16.05.2015 Сообщений: 29
	21.03.2018, 11:03 [ТС]	7
	Да. Я исправил. Всё работает. Немного не так как хотелось бы. Получается столбец нулей и в следующем столбце значения первого столбца с пустыми ячейками. Нужно брать в первом столбце первое значение и ставить ему в соответствие все значения из второго столбца. Далее берем второе значение из первого столбца и т.д. Что надо подправить в формуле? 0

@Krasme 6953 / 4984 / 2106 Регистрация: 02.02.2014 Сообщений: 13,241
	21.03.2018, 11:12	8
	будет лучше, если все-таки приложите файл с введенными значениями и образцом того, что вы хотите получить вышеприведенный код - лишь образец того, как работать с ячейками в libreoffice. исходных данных-то у меня нет. 1

@Konstantin_F 0 / 0 / 0 Регистрация: 16.05.2015 Сообщений: 29
	21.03.2018, 12:50 [ТС]	11
	Спасибо! Всё отлично! Подскажите где или что можно почитать, чтобы лучше разбираться в BASIC ? 0

@Krasme 6953 / 4984 / 2106 Регистрация: 02.02.2014 Сообщений: 13,241
	21.03.2018, 13:01	12
	для начала пойдет это, далее гугло- и яндекспоиск Программирование на языке OpenOffice.org Basic.pdf MacrosExplained-Master.pdf 1

@Konstantin_F 0 / 0 / 0 Регистрация: 16.05.2015 Сообщений: 29
	21.03.2018, 17:34 [ТС]	13
	Спасибо! Вы мне помогли! 0

Переменная типа Object не установлена

Решение