Results 1 to 3 of 3
Hybrid View
-
18th December 2009 12:30 #1
OpenOffice Spreadsheet Visual Basic
... , VB
. - , , .
, , , .
OpenOffice - .
, .
:
, H6 H7 .Code:Sub SelectClient_Click() Dim Doc As Object Dim Sheet As Object Doc = ThisComponent Sheet = Doc.Sheets (0) oSelection = Doc.getCurrentSelection Sheet.getCellRangeByName("H5").String = oSelection.String Sheet.getCellRangeByName("H6").String = oSelection.String Sheet.getCellRangeByName("H7").String = oSelection.String MsgBox( oSelection.String ) End Sub
?
, @
, VB?
-
20th December 2009 17:59 #2
, , :
, getCurrentSelection(), getActiveCell().Code:Sheet.getCellRangeByName("H5:H7").String = oSelection.String
myActCell.CellAddress.Row, .
-
21st December 2009 10:29 #3
.
, .
, :
oSelection getRangeAddress, .
- getByAddress, , , , .
, , getRangeAddress




Reply With Quote
Lenovo ThinkPad 15 IdeaPad 15
5th May 2023, 22:16 in