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 | Ìàãàçèí çà åëåêòðîííè öèãàðè