セル関数を記述する.例として,偶数制約をマクロによって記述する.
REM 偶数制約が満たされているかシート上で評価する関数
Function CEven(arg As Variant)
CEven = 1
If IsNumeric(arg) Then
If arg Mod 2 <> 0 Then: CEven = 0: EndIf
EndIf
End Function
REM 制約条件本体
Sub _CEvenBody(args())
Dim sheet, range As Object
Dim internal, cell, constraint As String
sheet = GetActiveSheet()
range = sheet.getCellRangeByName(args(0))
internal = object_cream.CAddVariable("MIN", "MAX") '制約変数を宣言
cell = Util.CellName(range, 0, 0)
constraint = cell & "=2*" & internal
object_cream.CAddConstraint(constraint) '制約条件の追加
End Sub