4D View proでExcelシートを作成、罫線

行ごとにセルに罫線をつけたい。今回はセルに一つずつ次のメソッドを実行する。

  //JCL_vp_DrawBorder
  //20220202 ike wat
  //罫線を描く  //4D View Proのラッパー

C_TEXT($1;$vpObjName)
$vpObjName:=$1
C_LONGINT($2;$col)
$col:=$2
C_LONGINT($3;$row)
$row:=$3
C_LONGINT($4;$numCol)
$numCol:=$4
C_LONGINT($5;$numRow)
$numRow:=$5
C_OBJECT($border)
C_OBJECT($option)

If ($vpObjName#"")
	  // VP SET BORDER を使用して境界線を設定
	$border:=New object("color";"black";"style";vk line style thin)
	$option:=New object("outline";True)
	VP SET BORDER (VP Cells ($vpObjName;$col;$row;$numCol;$numRow);$border;$option)
	
End if 

範囲に対して罫線をセットする仕様。指定セルから列数と行数を指定して、全体を罫線で囲う。

次のように使う。

	  //担当者、罫線のみ
	$col:=1
	$row:=$i
	JCL_vp_DrawBorder ($vpObjName;$col;$row;1;1)
%d人のブロガーが「いいね」をつけました。