Форум программистов, компьютерный форум CyberForum.ru

OpenOffice/LibreOffice

Войти
Регистрация
Восстановить пароль
 
Underraiting
0 / 0 / 0
Регистрация: 03.05.2017
Сообщений: 2
#1

Макрос для создания двумерного массива, записи в массив и копирования из массива на лист - OpenOffice/LibreOffice

04.05.2017, 13:32. Просмотров 79. Ответов 0
Метки нет (Все метки)

Добрый день! Помогите написать макрос для записи таблицы умножения, ниже есть пример как записываю в каждую ячейку отдельно. Но работает он слишком долго, поэтому сне надо сначала сохранить все в Базу Data а после из базы вставить на лист.
Работающий код требующий доработки
Кликните здесь для просмотра всего текста

Sub twoset
Dim Doc As Object
Dim Sheet As Object
Doc = ThisComponent
Sheet = Doc.Sheets(13)
for i=14 to 91 step 1
for j=3 to 80 step 1
m=Sheet.getcellbyposition(13,j).value
n=Sheet.getcellbyposition(i,2).value
ThisWorkBook.Sheets(14).Cells(j+1,i+1)=m*n
next
next


End Sub

Изменил код но он не работает
Кликните здесь для просмотра всего текста

Sub twoset
Dim Doc As Object
Dim Sheet As Object
Dim Data as Variant

Doc = ThisComponent
Sheet = Doc.Sheets(13)
Data = Sheet.Range(Sheet.Cells(1, 1), Sheet.Cells(91, 80))
for i=14 to 91 step 1
for j=3 to 80 step 1
m=Sheet.getcellbyposition(13,j).value
n=Sheet.getcellbyposition(i,2).value
Data(j,i)=m*n
next
next
Sheet.Range(Sheet.Cells(1, 1), Sheet.Cells(91, 80))=Data


End Sub
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.05.2017, 13:32     Макрос для создания двумерного массива, записи в массив и копирования из массива на лист
Посмотрите здесь:
Libre Calc, выборочное заполнение ячеек в Лист 2 из Лист 1 по команде
Макрос для OpenOffice Calc
Макрос для Excel в OpenOffice
Как добавить пункт в контекстное меню для создания документов OpenOffice ?
Макрос для копирования данных с листа на лист с сортировкой VBA
VBA Макрос для копирования двух диапазонов с формулами в активный лист любой другой книги
VBA Excel: исправить макрос копирования значения ячейки с листа на лист
VBA Вывести на лист координаты минимального элемента двумерного массива
VBA Вывести на лист координаты минимального элемента двумерного массива
Какой способ создания двумерного массива корректен Python
Преобразование двумерного массива в массив байтов для передачи через сеть C#
C++ Реализовать и протестировать функцию создания двумерного динамического массива

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru