Fórum pro uživatele kancelářského balíku OpenOffice | LibreOffice
 

Stránky 1

#1 Re: Calc » Makra z Excelu do Calcu - přičítání - VYŘEŠENO » 3. 8. 2012 11:42:26

elmo

Již jsem, ač třeba trochu primitivně, kód napsal:

Sub Main
Dim i as integer
oSheet = ThisComponent.sheets(0)
For i=1 To 600
A = oSheet.getCellbyPosition(0,i)
D = oSheet.getCellbyPosition(3,i)
if D.value<>0 then
A.value= A.value + D.value
D.value=0
end if
Next i
End Sub

Nebo soubor: pkr.ods
Teď bych jen potřeboval toto makro spustit vždy po zadání hodnoty do sloupce "nové body" a stisknutí entru. Pokaždé klikat na spuštění makra je trochu otravné a zapomenout kliknout na něj může přinést dost velké potíže.
Je to možné automaticky spustit? Děkuji

#2 Calc » Makra z Excelu do Calcu - přičítání - VYŘEŠENO » 2. 8. 2012 09:48:47

elmo
Odpovědí: 7

Zdravím prosím Vás jak přepsat tento VBA kód z MS Excelu do Basicu OO Calcu?

VBA kód z excelu:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 4 And IsNumeric(Target.Value) = True Then
Cells(Target.Row, 1) = Cells(Target.Row, 1) + Target.Value
Target.Value = 0
End If
End Sub

Jde o přičítání hodnoty ze 4.buňky každého řádku do 1.buňky daného řádku.
Procházím fórům a snažím se přijít na příkazy a funkce, ale bohužel nedaří se mi to.

Předem děkuji.

________________________________________________
Značím jako vyřešené

;o)

Stránky 1

Zápatí

Používáme FluxBB