Difference between revisions of "RU/kb/00000212"

From Wiki
Jump to navigationJump to search
(Основной текст)
 
 
(4 intermediate revisions by 2 users not shown)
Line 1: Line 1:
<section begin=title /><noinclude>{{DISPLAYTITLE:База Знаний: </noinclude>Программирование. StarBASIC. Calc. Вычисление индекса ячейки по её имени<noinclude>}}</noinclude><section end=title />
+
<section begin=title /><noinclude>{{DISPLAYTITLE:База Знаний: Программирование. StarBASIC. </noinclude>Calc. Вычисление индекса ячейки по её имени<noinclude>}}</noinclude><section end=title />
 
{{BreadCrumbL10n|RU/kb/common/programming/macros}}
 
{{BreadCrumbL10n|RU/kb/common/programming/macros}}
 
__NOTOC__
 
__NOTOC__
  
  
 +
{{RUfromforum|19908}}
 
<section begin=toc />
 
<section begin=toc />
 
Бывают ситуации, кода в макрос передаётся в качестве параметра «имя» ячейки для дальнейшей обработки. Например «A17». Для того, чтобы можно было производить манипуляции с адресом ячейки, например с помощью функции
 
Бывают ситуации, кода в макрос передаётся в качестве параметра «имя» ячейки для дальнейшей обработки. Например «A17». Для того, чтобы можно было производить манипуляции с адресом ячейки, например с помощью функции
Line 31: Line 32:
  
 
<section begin=signature/>
 
<section begin=signature/>
{{RUsignyear|Sancho|А. Е. Харламенков|2010}}
+
{{SignYear|Sancho|А. Е. Харламенков|2010}}
 
<section end=signature/>
 
<section end=signature/>
  
 
{{RUkbMacrosBottom}}
 
{{RUkbMacrosBottom}}

Latest revision as of 18:21, 24 March 2012



Материал для этой статьи сформулирован на основе обсуждения
в community.i-rs.ru.

Бывают ситуации, кода в макрос передаётся в качестве параметра «имя» ячейки для дальнейшей обработки. Например «A17». Для того, чтобы можно было производить манипуляции с адресом ячейки, например с помощью функции

Sheet.GetCellByPosition( 0, 16).SetString( sText)

можно воспользоваться следующим кодом:

oDoc=ThisComponent
oSheet=oDoc.Sheets.getByName("Лист1")

sName="A17"   ' а если нужно, можно и так:  sName="$A$17"
oCell=oSheet.getCellRangeByName(sName)

nRow = oCell.CellAddress.Row
nColumn = oCell.CellAddress.Column

oCell=oSheet.getCellByposition(nColumn,nRow)   

sText="qwerty"
oCell.setString(sText)












К началу страницы