Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.01.2012, 16:26   #1
Pochepa
Новичок
Джуниор
 
Регистрация: 11.01.2012
Сообщений: 1
По умолчанию Макрос в OpenOffice, написать условие

Добрый вечер, друзья!

Начала писать макрос, но делаю это в первый раз в жизни. Условие такое: на Листе1 имеется прайс. Необходимо на новом листе 'Price' создать колонки п/п, код 1С, Фото товара, наименование товара, Цена, руб. Все это я смогла сделать. Но осталось самое интересное:
1). Реализовать условие: если в ячейке I2 Лист1 (Цена, руб.) стоит значение 450, то в ячейку F1 'Price' необходимо записать значение 'Цена Розница', иначе вывести сообщение "Введите наименование прайса" и то, что будет введено должно занестить в ячейку F1 Price.
2). В столбце Е Лист1 занесены наименования файлов *.jpg, эти файлы лежат на сервере. Необходимо, чтобы в столбец D Price вставлялись картинки из этих файлов, которые лежат на серваке.

Помогите, пожалуйста, кто чем может.

Sub MyProc

Dim oSheet as Object
oDoc = ThisComponent
oSheets = oDoc.Sheets 'Объект Sheets, который содержит все листы

REM Создадим новый лист по имени "Price" в начале
oSheets.insertNewByName("Price", 0)

REM Лист "Price" делаем активным
oSheet = oSheets.getByName("Price")
oDoc.CurrentController.setActiveShe et(oSheet)

Dim oCell as Object

oCell = oSheets(0).getCellByPosition(0, 0) 'Ячейка А1
oCell.setString("п/п")

oCell = ThisComponent.Sheets(0).getCellByPo sition(1, 0) 'Ячейка C1
oCell.setString("Код 1С")

oCell = ThisComponent.Sheets(0).getCellByPo sition(3, 0) 'Ячейка F1
oCell.setString("Фото товара")

oCell = ThisComponent.Sheets(0).getCellByPo sition(4, 0) 'Ячейка G1
oCell.setString("Наименование товара")

oCell = ThisComponent.Sheets(0).getCellByPo sition(5, 0) 'Ячейка J1
oCell.setString("Цена, руб.")
oCell.HoriJustify = com.sun.star.table.CellHoriJustify. CENTER

end sub
Вложения
Тип файла: zip Макрос_начало.zip (15.1 Кб, 5 просмотров)
Pochepa вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как написать макрос на определение категории имея условие Hoochara Microsoft Office Excel 2 05.08.2011 10:21
Не могу написать условие в php vinok82 PHP 2 28.05.2010 12:24
Добавить условие в макрос Pilot Microsoft Office Excel 8 20.02.2010 17:35
Макрос в OpenOffice Шурлык Помощь студентам 1 08.12.2009 18:33
Не работает макрос под OpenOffice Sanek_81 Microsoft Office Excel 1 06.08.2009 14:12