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 Ìîáèëíè êîìïþòðè