・・・(略)・・・
SSpread SSpread1 {
        ・・・(略)・・・
        /* SSpreadのデザインを設定 */
        AppearanceStyle = $AppearanceStyleVisualStyles;
        /* 背景色のスタイルを設定 */
        BackColorStyle = $BackColorStyleUnderGrid;
        
        Function OnAfterLeaveCell( e ) {
                
                /* 移動元セルの背景色を設定 */
                col = e.Col;
                row = -1;
                BgColor = $STD;
                
                col = -1;
                row = e.Row;
                BgColor = $STD;
                
                col = e.Col;
                row = e.Row;
                BgColor = $STD;
                
                /* 移動後セルの背景色を設定 */
                if(e.NewCol ==  -1 || e.NewRow ==  -1){
                        col = -1;
                        row = -1;
                }else{
                        col = e.NewCol;
                        row = -1;
                        BgColor = $CCFFFF;
                        
                        col = -1;
                        row = e.NewRow;
                        BgColor = $CCFFFF;
                        
                        /* 行と列の交差点は別色に設定 */
                        col = e.NewCol;
                        row = e.NewRow;
                        BgColor = $CCCCFF;
                }
        }
        
        Function OnGetFocus( e ) {
                
                /* セルの背景色を設定 */
                col = ActiveCol;
                row = -1;
                BgColor = $CCFFFF;
                
                col = -1;
                row = ActiveRow;
                BgColor = $CCFFFF;
                
                /* 行と列の交差点は別色に設定 */
                col = ActiveCol;
                row = ActiveRow;
                BgColor = $CCCCFF;
        }
 }
・・・(略)・・・