/* 変更前の背景色 */
  Array cell_color;
  
  ・・・・・・(略)
  
  SSpread SSpread2 {
    X = 343;
    Y = 185;
    Width = 318;
    Height = 214;
    
    Function OnLeaveCell(e) {
      /* 移動前セルの位置 */
      var old_col;
      var old_row;
      
      /* 移動後セルの位置 */
      var new_col;
      var new_row;
          
      /* 不正なセルへ移動した場合 */
      if (e.NewCol < 0 || e.NewRow < 0) {
          return;
      }
      /* セル・行・列のカーソルカラー設定 */
      switch(^.set_color){
          case 0:
              old_col = e.Col;
              old_row = e.Row;
              new_col = e.NewCol;
              new_row = e.NewRow;
              break;
          case 1:
              old_col = -1;
              old_row = e.Row;
              new_col = -1;
              new_row = e.NewRow;
              break;
          case 2:
              old_col = e.Col;
              old_row = -1;
              new_col = e.NewCol;
              new_row = -1;
              break;
      }
      /* カーソルが外れたセルの背景色変更 */
      Col = old_col ;
      Row = old_row;
      if(^.cell_color[0] != null || ^.cell_color[0] != ""){
      /* 変更前のカーソルカラーを適用 */
          BackColor = ^.cell_color[0];
      }else{
          BackColor = $STD;
      }
      /* カーソルセルの背景色変更 */
      Col = new_col;
      Row = new_row;
      /* 変更前のカーソルカラーを保持 */
      ^.cell_color[0] = BackColor; 
      BackColor = $BLUE;
    }
  }