Results 1 to 3 of 3

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    Registered User genn's Avatar
    Join Date: Feb:2003
    Location:
    Posts: 1,215

    OpenOffice Spreadsheet Visual Basic

    ... , VB . - , , .
    , , , .
    OpenOffice - .
    , .


    :

    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
    , H6 H7 .
    ?

    , @

    , VB?

  2. #2
    a.k.a. Bibi Flower's Avatar
    Join Date: Aug:2006
    Location: Sofia, Bulgaria
    Posts: 562
    , , :
    Code:
    Sheet.getCellRangeByName("H5:H7").String = oSelection.String
    , getCurrentSelection(), getActiveCell().
    myActCell.CellAddress.Row, .

  3. #3
    Registered User genn's Avatar
    Join Date: Feb:2003
    Location:
    Posts: 1,215
    .
    , .
    , :
    oSelection getRangeAddress, .
    - getByAddress, , , , .
    , , getRangeAddress

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 . .
iskamPC.com | mobility.BG | Bloody's Techblog | | 3D Vision Blog |