Добрый день. Я не программист. Есть таблица ЛибреОфиса со встроенным ВБ-макросом.
Макрос берёт с листа 1 значения, комбинирует их и расставляет в ячейки листа 2, образуя текст:
Продукт
КОД
Как переделать так, чтобы КОД был жирным (значение &sCode)? Возможно ли вообще?
Спасибо!
----------------
Файл:
https://dl.dropboxusercontent.com/u/8476699/toster...
Код отдельно:
sub Labeller
Dim oDoc As Object, oSheet As Object, oCell As Object, sCode as String, sProduct as String, i as Integer,
j as Integer, n as Integer, m as Integer
oDoc = ThisComponent
oSheet = oDoc.Sheets.getByName("Source")
oCell = oSheet.getCellByposition(2,0)
sProduct = oCell.getString()
oCell = oSheet.getCellByposition(2,1)
n = (oCell.getValue()-1)
if n<0 then
n=0
endif
m = getLastUsedRow(oSheet)
for i = 0 to (m/3)
for j = 0 to 2
oSheet = oDoc.Sheets.getByName("Source")
oCell = oSheet.getCellByposition(0,n)
sCode = oCell.getString()
oSheet = oDoc.Sheets.getByName("Labels")
oCell = oSheet.getCellByposition(j,i)
oCell.setString(sProduct & CHR$(10) & CHR$(10) & CHR$(10) &sCode)
if n = m then
exit sub
end if
n = n + 1
next j
next i
end sub
Function getLastUsedRow(oSheet as Object) as Integer
Dim oCell As Object, oCursor As Object, aAddress As Variant
oCell = oSheet.GetCellbyPosition(0,0)
oCursor = oSheet.createCursorByRange(oCell)
oCursor.GotoEndOfUsedArea(True)
aAddress = oCursor.RangeAddress
GetLastUsedRow = aAddress.EndRow
End Function
