Список форумов BOSSForum.RU - Форум. БОСС-Кадровик
Независимый форум, посвященный системе БОСС-Кадровик
и всему, что с ней связано
 FAQFAQ   ПоискПоиск   ПользователиПользователи   ГруппыГруппы   РегистрацияРегистрация 
 ПрофильПрофиль   Войти и проверить личные сообщенияВойти и проверить личные сообщения   ВходВход 

Формулу в ячейку

 
Начать новую тему   Ответить на тему    Список форумов BOSSForum.RU - Форум. БОСС-Кадровик -> X-язык
Предыдущая тема :: Следующая тема  
Автор Сообщение
rebel25
Большой шоколадный орден
Большой шоколадный орден


Зарегистрирован: 06.10.2008
Сообщения: 523
Откуда: Москва

СообщениеДобавлено: Вт Авг 13, 2019 14:49    Заголовок сообщения: Формулу в ячейку Ответить с цитатой

Скан заполняет вызванный шаблон
....
Excel.ActiveWorkbook.sheets(ppp_).cells(ii_, 5) = @ss:4;
Мне нужно вставить формулу в любом стиле, например

Excel.ActiveWorkbook.sheets(ppp_).cells(ii_, 7).Select;
Excel.ActiveCell.FormulaR1C1 = "=ROUND(RC[-2]*R2C7,0)";

Как ни пробую получаю не понятные ошибки Exception...

Помогите заполнить формулой ячейку листа Excel. Как это делается?
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора
DUCKKK
Большой шоколадный орден
Большой шоколадный орден


Зарегистрирован: 16.09.2009
Сообщения: 1330

СообщениеДобавлено: Вт Авг 13, 2019 17:23    Заголовок сообщения: Ответить с цитатой

execute ad_prc_open_excel();

local
{
nRow;
};

VB
{
Dim nnRow
Dim cData
};


let nRow := 1;
scan @ss select top 10 id_firm from setup _hintbrowser execute
{
LET
{
VB.nnRow := nRow;
VB.cData := @ss:id_firm[""];
};

VB
{
Sh.Cells(nnRow, 1).Value = cData
Sh.Cells(nnRow, 3).FormulaR1C1 = "=RC[-2]*100/56"
};

let nRow := nRow + 1;
};
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail
rebel25
Большой шоколадный орден
Большой шоколадный орден


Зарегистрирован: 06.10.2008
Сообщения: 523
Откуда: Москва

СообщениеДобавлено: Ср Авг 14, 2019 13:40    Заголовок сообщения: Ответить с цитатой

Спасибо, но у меня отчет написан без VB
Единственный выход переписать с VB?
Вернуться к началу
Посмотреть профиль Отправить личное сообщение Отправить e-mail Посетить сайт автора
Вячеслав Ионов



Зарегистрирован: 17.08.2015
Сообщения: 41

СообщениеДобавлено: Ср Авг 14, 2019 17:40    Заголовок сообщения: Ответить с цитатой

Я как-то делал примерно так. Лютая чехарда с кавычками, думаю, можно преобразовать Very Happy Во всяком случае именно такой вариант у меня работал

let _ii_ = _ii - 1;
Let _b = 'E16:E'+_ii_[''];
let ww = char(34)+'=СУММ('+_b['']+')'+char(34);

Excel.ActiveSheet.cells(_ii, 5).Select;
Excel.ActiveCell.FormulaR1C1 = ww;
Excel.ActiveCell.Replace("'","");
Вернуться к началу
Посмотреть профиль Отправить личное сообщение
Показать сообщения:   
Начать новую тему   Ответить на тему    Список форумов BOSSForum.RU - Форум. БОСС-Кадровик -> X-язык Часовой пояс: GMT + 4
Страница 1 из 1

 
Перейти:  
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах


Pоwerеd by рhpВB © 2001, 2005 рhpВB Grouр
Русская поддержка phрВB
Rambler's Top100 Рейтинг@Mail.ru Список форумов BOSSForum.RU