SSpread SSpread1 {
  X = 7;
  Y = 97;
  Width = 359;
  Height = 214;
  MaxCols = 5;
  
  Col = 2;
  Row = -1;
  BackColor = $FFCCCC;
  
  Col = 4;
  Row = -1;
  BackColor = $FFCCCC;
  
  Function OnLeaveCell(e) {
   
   /* 不正なセルへ移動した場合 */
   if (e.NewCol < 0 || e.NewRow < 0) {
    return;
   }
   /* カーソルの移動先が2(B)か4(C)列目の場合 */
   if (e.NewCol == 2 ||  e.NewCol == 4) {
    if(e.NewCol < e.Col){
     /* カーソルが左側へ移動している場合 */
     SetActiveCell(e.NewCol - 1, e.NewRow);
    }else{
     /* カーソルが右側へ移動している場合 */
     SetActiveCell(e.NewCol + 1, e.NewRow);
    }
   }
  }
 }