OpenOffice.info

Code: Alles auswählen

Sheet = ThisComponent.Sheets.getByName(blattname)

Code: Alles auswählen

Sheet = StarDesktop.CurrentComponent.Sheets.getByName(blattname)

Code: Alles auswählen

Function GRUTEI (dummy , zellen as string, blattname as String)
'==================================
'Funktion GRUppieren-TEIlen
'"V 3.1"    Datum: 04.08.2004
'==================================
Dim W(1, 0) as Single , b '(!)
Dim Sheet As Object ,  CellRange As Object
Sheet = ThisComponent.Sheets.getByName(blattname)
b = zellen : b = Split(b, ";") : d = 0
for i = LBound(b) to UBound(b)
	CellRange = Sheet.getCellRangeByName(b(i))
	For nc = 0 To CellRange.Columns.getCount - 1
		For nr = 0 To CellRange.Rows.getCount - 1
			If CellRange.getCellByPosition (nc, nr).Value <> 0 Then
				x = CellRange.getCellByPosition (nc, nr) : x1 = x.GetCellAddress()
				W(0, d) = x.Value : w1y = x1.row : w1x = x1.column
				W(1, d) = Sheet.getCellByPosition(w1x + 1, w1y).value 
				d = d + 1
				ReDim Preserve W(1, d) As Single
			End If
		Next nr
	Next nc
Next i
For i = 0 to d - 2
	For j = i to d - 1
		If W(0, i) > W(0, j) Then
			tmp = W(0, i) : tmp2 = W(1, i)
			W(0, i) = W(0, j) : W(1, i) = W(1, j)
			W(0, j) = tmp : W(1, j) = tmp2
		end if
	Next j
Next i
For i = INT((d / 2) + 0.5) to (d - 1)
	prosum = prosum + W(0, i) * W(1, i)
	anzsum = anzsum + W(1, i)
Next
GRUTEI = prosum / anzsum
end function

Code: Alles auswählen

Spalte1    Menge
   2         5
   4         6
   5         4
   6         3

   9         2
   4         3

Code: Alles auswählen

Spalte1    Menge
   2         5   10
   4         6   24
   5         4   20
   6         3   18

   9         2   18
   4         3   12

Code: Alles auswählen

Function GRUTEI (dummy, zellen as string, blattname as String)

'==================================
'Funktion GRUppieren-TEIlen
'"V2"    Datum: 02.08.2004
'==================================
Dim W(0) as Single '(!)
Dim b '(!)
Dim Doc As Object
Dim Sheet As Object
Dim CellRange As Object
Dim X(0) As Single
'StarDesktop.CurrentComponent (?)
Doc = ThisComponent 
'Tabellenblatt festlegen:
'entweder so:
Sheet = Doc.Sheets.getByName(blattname)
'
'oder so:
'Sheet = Doc.Sheets.getByIndex(0)
b = zellen
b = Split(b, ";")
d = 0
for i = LBound(b) to UBound(b)
	CellRange = Sheet.getCellRangeByName(b(i))
	Row = CellRange.Rows
	Column = CellRange.Columns
	For nc= 0 To Column.getCount-1
		For nr = 0 To Row.getCount-1
			W(d) = CellRange.getCellByPosition (nc,nr).Value
			d = d + 1
			ReDim Preserve W(d) As Single
		Next nr
	Next nc
Next i

For i = 0 to d-2
	For j = i to d-1
	If W(i) > W(j) Then
		tmp = W(i)
		W(i) = W(j)
		W(j) = tmp
	end if
	Next j
Next i

n = 0
For i = 0 to d-1
	if W(i)<>0 Then
		X(n) = W(i)
		n = n + 1
		ReDim Preserve X(n) As Single
	End If
Next i
If INT((n - 1) / 2) = (n - 1) / 2 Then
		gesamt = (n - 1) / 2
	Else
		gesamt = n / 2
End If
wert = 0
For i = gesamt to (n - 1)
	wert = wert + X(i) 
next
   
GRUTEI = wert/(n - gesamt)
end function

Code: Alles auswählen

Function GRUTEI (W0,W1,W2,W3,W4,W5,W6,W7,W8,W9,W10,W11,W12,W13,W14, _
					W15,W16,W17,W18,W19,W20,W21,W22,W23,W24,W25,W26,W27, _
					W28,W29,W30,W31,W32,W33,W34,W35)

'==================================
'Funktion GRUppieren-TEIlen
'"V1"    Datum: 01.08.2004
'==================================
Dim W(35)
'Umwandeln 
'(Warum kann ich kein Variablenfeld
'als Parameter verwenden?)
W(0) = W0
W(1) = W1
W(2) = W2
W(3) = W3
W(4) = W4
W(5) = W5
W(6) = W6
W(7) = W7
W(8) = W8
W(9) = W9
W(10) = W10
W(11) = W11
W(12) = W12
W(13) = W13
W(14) = W14
W(15) = W15
W(16) = W16
W(17) = W17
W(18) = W18
W(19) = W19
W(20) = W20
W(21) = W21
W(22) = W22
W(23) = W23
W(24) = W24
W(25) = W25
W(26) = W26
W(27) = W27
W(28) = W28
W(29) = W29
W(30) = W30
W(31) = W31
W(32) = W32
W(33) = W33
W(34) = W34
W(35) = W35

For i = 0 to 34
	For j = i to 35
	If W(i) > W(j) Then
		tmp = W(i)
		W(i) = W(j)
		W(j) = tmp
	end if
	Next j
Next i
Dim X(0) As Single
n = 0
For i = 0 to 35
	if W(i)<>0 Then
		X(n) = W(i)
		n = n + 1
		ReDim Preserve X(n) As Single
	End If
Next i
If INT((n - 1) / 2) = (n - 1) / 2 Then
		gesamt = (n - 1) / 2
	Else
		gesamt = n / 2
End If
wert = 0
For i = gesamt to (n - 1)
	wert = wert + X(i) 
next   
GRUTEI = wert/(n - gesamt)
end function