4D Doc Center : PV SET CELL FORMULA

4D View v13

PV SET CELL FORMULA


PV SET CELL FORMULA ( Bereich ; Spalte ; Zeile ; Formel )

Parameter	Typ	Beschreibung
Bereich	Lange Ganzzahl	4D View Bereich
Spalte	Lange Ganzzahl	Spaltennummer Zelle
Zeile	Lange Ganzzahl	Zeilennummer Zelle
Formel	String	Formel

Beschreibung

Der Befehl PV SET CELL FORMULA setzt Formel in der Zelle definiert durch Spalte und Zeile.

Der Inhalt einer numerischen Zelle wird 5 mal kopiert (Vorgabewert). In den Folgezellen ist der Wert jeweils um 1 erhöht. In jeder der folgenden Zellen wird dazu eine Formel zur Berechnung eingetragen. Ändern Sie den Wert in der Ursprungszelle, werden die Formeln automatisch ausgeführt.

 C_INTEGER($CopyNumber) `Anzahl der auszuführenden Kopien

 C_LONGINT($Column;$Row) `Koordinaten der zu kopierenden Zelle

 C_INTEGER($Index) `Laufindex

 C_TEXT($Name) `Name der Startzelle

 

 PV GET CURRENT CELL(Bereich;$Column;$Row)

 If(PV Get cell value type(Bereich;$Column;$Row)=pv value type numeric) `Typüberprüfung

    $CopyNumber:=Num(Request("Wie viele Zellen am Ende wollen Sie erhöhen?";"5"))

  `Standardwert 5

    If($CopyNumber>0)

       $Name:=PV Get cell name(Bereich;$Column;$Row) `Erhalte Name

       If($Name="") `Kein Name?

          $Name:="COL"+String($Column)+"RW"+String($Row)

          PV SET CELL NAME(Bereich;$Column;$Row;$Name) `Name zuweisen

       End if

       For($Index;$Row+1;$Row+$CopyNumber) `Anzahl Kopien

          PV SET CELL FORMULA(Bereich;$Column;$Index;

          "="+$Name+"+"+String($Index-$Row)) `Formeln eintragen

       End for

    End if

 Else `Falscher Typ

    ALERT("Die Startzelle muss numerisch sein")

 End if

4D v13

PV SET CELL FORMULA

PV SET CELL FORMULA

Beschreibung

Beispiel