Копирование

Автор katena88, 27 июня 2011, 10:13

0 Пользователи и 1 гость просматривают эту тему.

katena88

как сделать так, чтобы при копировании копировалась не формула в ячейке, а значение? (я сделала макрос путем записи и хотела переправить код, но не получилось)
и еще: как при повторном нажатии кнопки делать так, чтобы копировалось в ячейку ниже

RFJ

Покажите ваши попытки.

katena88

Как то так

[вложение удалено Администратором]

RFJ

#3
Замените ваш макрос opy на такой:

REM  *****  BASIC  *****

Global mr As Integer     ' - Важно!!!


Sub opy

 oDoc=ThisComponent

sheet_name="покупка"

 oSheet=oDoc.Sheets.getByName(sheet_name)

 oCell=oSheet.getCellByposition(3,2)
 mrr=oCell.getString()

If Trim(mrr)="" Then mr=0

 oCell_1=oSheet.getCellByposition(1,3)
 ns = oCell_1.getString()
 oCell_2=oSheet.getCellByposition(3,mr+2)
 oCell_2.setString(ns)

 oCell_1=oSheet.getCellByposition(1,6)
 ns = oCell_1.getValue()
 oCell_2=oSheet.getCellByposition(4,mr+2)
 oCell_2.setValue(ns)
 
    mr=mr+1

End Sub


PS. Global mr As Integer     ' - Важно!!! - Запоминает число заполненных строк в Корзине.