Apps :: spreadsheet subtotals

I modified it to add the values in a second column passed as an argument

Code Sample

(define (ttt mytotalcolumn)
(set! myrow R) ;; set our counter to the current row
(while (not (null? (@ myrow C))) ;; check that the value exists
(next-line) ;; move to the next line
(if (not (= (@ myrow C) (@ (+ myrow 1) C)));; are the 2 cells =
(prog1
(set! groupsum (sub-total mytotalcolumn))
(insert-line) ;; add extra counting and summing here
(next-line) ;; go to the next line
(set-data nil (number->string groupsum) 0 LABEL (make-position (+ R myrow) mytotalcolumn ))
(set! myrow (+ myrow 1));; increase the row counter
)
)
(set! myrow (+ myrow 1)) ;; increase the row counter
)
)

(define (sub-total mytotalcolumn)
(set! mytotal 0)
(set! mycount 0)
(set! mytarget (@ myrow C))
(while (and (> (- myrow mycount) 0) (= mytarget (@ (- myrow mycount) C)))
(set! mytotal (+ mytotal ( @ (- myrow mycount) mytotalcolumn) ) )
(set! mycount (+ mycount 1))
)
mytotal
)

(Hopefully I transcribed the changes correctly. my DSL laptop is not networked!)

I'm going to have to see if I can figure out how to get it to work when the key column has text instead of numbers in it. And see if I can figure out how to make the totals show in bold. (I hate that Excel doesn't do that! OpenOffice got it right.)

Clacker, in your searches through the files, have to run into anything like an Outline in OpenOffice Calc. That is... [+] or [-] button to the left of the spreadsheet tht either shows or hides the detail of each subtotal function?

H'm, I suppose I should look to see if siag CAN hide or show rows before I ask a question like that..... Oh well. Much to learn.

Thanks for all your help.

David

Showing things in bold using the scheme interface is accomplished with a (toggle-format "bold") command. I searched the /KNOPPIX/usr/local/share/siag/siag/siag.scm file for that.

No clue how to hide rows like excel can. I tried setting the row height to 1 pixel, but that didn't work.

original here.