4D Doc Center : PV SET CELL FORMULA

4D View v14

PV SET CELL FORMULA


PV SET CELL FORMULA ( area ; column ; row ; formula )

引数	型	説明
area	倍長整数	4D View エリア
column	倍長整数	セルの列番号
row	倍長整数	セルの行番号
formula	文字	フォーミュラ

説明

PV SET CELL FORMULAコマンドは、columnとrowで指定されたセルにformulaを設定します。

例題

次の例題は、ある数値タイプのセルから開始して、下方向への増分を行います。開始セルの値が後で変更されても、PV SET CELL FORMULAを使用してそのセルに設定したフォーミュラによって、この増分値は自動的に更新されます。

 C_INTEGER($CopyNumber) `コピーする回数

 C_LONGINT($Column;$Row) `コピーするセルの座標

 C_INTEGER($Index) `ループインデックス

 C_TEXT($Name) `開始セル名

 

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

 If(PV Get cell value type(Area;$Column;$Row)=pv number type value) `タイプの確認

  `デフォルトで5

    $CopyNumber:=Num(Request("How many cells to the bottom do you want to increment?";"5"))

    If($CopyNumber>0) `確定

       $Name:=PV Get cell name(Area;$Column;$Row) `セル名の取得

       If($Name="")&NBSP;&NBSP; `名前が付けられていない?

          $Name:="COL"+String($Column)+"RW"+String($Row) `名前を付ける

          PV SET CELL NAME(Area;$Column;$Row;$Name) `"COL2RW3" タイプの名前

       End if

       For($Index;$Row+1;$Row+$CopyNumber) `$CopyNumber ループ

  `増分

          PV SET CELL FORMULA(Area;$Column;$Index;"="+$Name+"+"+String($Index-$Row))

       End for

    End if

 Else `正しくないタイプ

    ALERT("The start cell must be a numeric type")

 End if