SoftMaker.de

' Planmaker-Makro für summieren von Werte in einer Tabelle
' mit Zwischensummen z.B. eine Umsatzstatistik
' Stand: 22.08.2008
'
' Makro addiert die Werte z.B.  in einer Umsatztabelle
' bei jedem Wechsel der Artikelgruppe wird eine neue Zelle eingefügt
' in die der aufsummierte Umsatz geschrieben wird
' am Ende der Tabelle wird der Gesamtumsatz ausgewiesen

' Cursor ist in die erste Zelle der erste Zeile zu stellen
' die addiert werden soll


Dim pm as Object
dim  i, agr, agrz,x  as integer
dim su as integer            ' Summe pro Gruppe
dim sut as integer           ' Summe Total

Set pm = CreateObject("PlanMaker.Application")  ' Verbindung aufbauen
pm.Application.Visible = True

i = 2

agrz = pm.ActiveSheet.Selection(i, 1).Value   ' Artikelgruppe zwischenspeichern zum Vergleichen
agr = pm.ActiveSheet.Selection(i, 1).Value     ' Artikelgruppe


DO while agr > 0

agr = pm.ActiveSheet.Selection(i, 1).Value     ' Artikelgruppe


If agr <> agrz Then

pm.ActiveSheet.Selection(i, 1).insert
pm.ActiveSheet.Selection(i, 2).insert
pm.ActiveSheet.Selection(i, 3).insert
pm.ActiveSheet.Selection(i, 3).Value=su
pm.ActiveSheet.Selection(i, 3).Font.Bold=True
pm.ActiveSheet.Selection(i, 3).Borders(pmBorderTop).Type = pmLineStyleSingle
pm.ActiveSheet.Selection(i, 3).Borders(pmBorderBottom).Type = pmLineStyleDouble
i = i + 1
pm.ActiveSheet.Selection(i, 1).insert
pm.ActiveSheet.Selection(i, 2).insert
pm.ActiveSheet.Selection(i, 3).insert

sut = sut + su
su = 0

agrz = agr
End If

su  = su + pm.ActiveSheet.Selection(i, 3).Value  ' Artikelumsätze addieren
i = i + 1

loop


pm.ActiveSheet.Selection(i, 1).Value="TOTAL"
pm.ActiveSheet.Selection(i, 1).Font.Bold=True

pm.ActiveSheet.Selection(i, 3).Value=sut
pm.ActiveSheet.Selection(i, 3).Font.Bold=True
pm.ActiveSheet.Selection(i, 3).Borders(pmBorderBottom).Type = pmLineStyleDouble


Set pm = Nothing ' Verbindung aufheben

#!/usr/local/ruby
require 'logger'
require 'win32ole'

$LOG = Logger.new(STDOUT)
$LOG.level = Logger::DEBUG

=begin
' Planmaker-Makro für summieren von Werte in einer Tabelle
' mit Zwischensummen z.B. eine Umsatzstatistik
'
' Makro addiert die Werte z.B.  in einer Umsatztabelle
' bei jedem Wechsel der Artikelgruppe wird eine neue Zelle eingefügt
' in die der aufsummierte Umsatz geschrieben wird
' am Ende der Tabelle wird der Gesamtumsatz ausgewiesen

' Cursor ist in die erste Zelle der erste Zeile zu stellen
' die addiert werden soll
' c 2008/Dewes
' Ruby-Version: 2008, Monsterslayer
' In dieser Version kann der Cursor initial stehen, wo er will.
' Die relevanten Zeilen ergeben sich aus der Voreinstellung im
' Skript.
=end

# TODO: Modul erzeugen, und PM-spezifische Methoden,
# Eigenschaften und Konstanten mappen
pm = WIN32OLE.new("PlanMaker.Application")
pm.Application.Visible = true
Sheet = pm.ActiveSheet
BorderTop = -1
BorderBottom = -3
LineStyleSingle = 1
LineStyleDouble = 2


# ==   Veränderbare Werte   ==
First_Row = 2
Group_Col = 'A'
Last_Col = 'C'
Sum_Col = 'C'
# ==  ENDE Veränderbare Werte ==


# Zeile einfügen unter Zeile #r_index
def insert_row(r_index)
   lc = col_index(Last_Col)
   until lc == 0
      Sheet.Selection(r_index, lc).insert   
      lc -= 1
   end
end

# Index einer Spalte zwischen 'A' und 'ZZ' ermitteln
def col_index(col)
   ('A'..'ZZ').to_a.each_with_index {|c, i| return (i + 1) if col == c}
end

# Summen-Stil auf Zelle (oder Range) 'cell' anwenden
def style_as_sum(cell)
   cell.Font.Bold = true
   cell.Borders(BorderTop).Type = LineStyleSingle
   cell.Borders(BorderBottom).Type = LineStyleDouble

end

First_Group = "#{Group_Col}#{First_Row}" # erste Gruppen-Zelle
GC_Index = col_index(Group_Col) # index der Gruppen-Spalte
S_Index = col_index(Sum_Col) # index der Summen-Spalte

Sheet.Range(First_Group).Select # selektiere gleich die erste Gruppen-Zelle

$LOG.debug("First Group in #{First_Group}")

compare_grp = nil
grp_sum = 0
total_sum = 0
row_count = Sheet.Rows.Count

# dieses Array wird die Zeilennummern der Summenzeilen
# enthalten, damit eingefügte Leerzeilen nicht den
# vorzeitigen Abbruch des Skriptes bewirken.
# Leerzeilen werden damit erst am Ende eingefügt.
s_rows = Array.new

# Diese Zählschleife nicht zu leicht nehmen!
# row_count ist eine Referenz und ändert ihren Wert!
row_count.times do |i|
   # Beginne die Arbeit erst in Zeile "First_row"
   if(i >= (First_Row - 1) ) # Array startet mit 0
      art_grp = Sheet.Selection(i, GC_Index).Value

      compare_grp = art_grp if compare_grp == nil

      # 1. Fall: innerhalb der Vergleichsgruppe
      if(art_grp && (art_grp == compare_grp) )
         grp_sum += Sheet.Selection(i, S_Index).Value.to_i

      # 2. Fall: Wechsel der Gruppe
      elsif(compare_grp != art_grp )
         compare_grp = art_grp
         insert_row(i)      
         sum_cell = Sheet.Selection(i, S_Index)
         sum_cell.Value = grp_sum
         style_as_sum(sum_cell)
         total_sum += grp_sum
         s_rows << i
         grp_sum = 0
      end
      # 3. Fall: Keine Gruppe mehr gelesen
      if(art_grp == nil || art_grp.to_s.length == 0)
         t_row = i + 1
         t_cell = Sheet.Selection(t_row, 1)
         t_cell.Value = "TOTAL"
         t_cell.Font.Bold = true
         t_cell = Sheet.Selection(t_row, S_Index)
         t_cell.Value = total_sum
         t_cell.Font.Bold = true
         t_cell.Borders(BorderBottom).Type = LineStyleDouble
         
         # Hübsch machen: Leerzeilen einfügen.
         # Damit ist das Skript ohnehin am Ende und die
         # Indizes sind verbrannt.
         if(!s_rows.empty?)
            incr = 1
            s_rows.each do |i|
               insert_row(i + incr)
               incr += 1
            end
         end
         # und tschüss...
         exit 0
      end
   end
end