PulldownList PulldownList1 {
  X = 41;
  Y = 249;
  Width = 106;
  Height = 128;
  PulldownItem PulldownItem1[7]{
    PulldownItem1[0].Title = "09:00";
    PulldownItem1[1].Title = "10:00";
    PulldownItem1[2].Title = "11:00";
    PulldownItem1[3].Title = "17:00";
    PulldownItem1[4].Title = "18:00";
    PulldownItem1[5].Title = "19:00";
    PulldownItem1[6].Title = "20:00";
  }
}

SSpread SSpread1 {
  X = 41;
  Y = 274;
  Width = 247;
  Height = 165;
  /* 最大列数 */
  MaxCols = 3;
  /* 最大行数 */
  MaxRows = 7;
・・・（略）
}

Button Button1 {
  X = 171;
  Y = 225;
  Width = 116;
  Height = 44;
  Title = "選択範囲に時刻を\nセットする";
  
  Function OnTouch( e ) {
    ^.SSpread1.BlockMode = $TRUE;
    /* 範囲選択されているかの判定 */
    if(^.SSpread1.IsBlockSelected){
      /* 範囲選択されている場合 */
      ^.SSpread1.Row= ^.SSpread1.SelBlockRow;
      ^.SSpread1.Col = ^.SSpread1.SelBlockCol;
      ^.SSpread1.Row2 = ^.SSpread1.SelBlockRow2;
      ^.SSpread1.Col2 = ^.SSpread1.SelBlockCol2;
    }else{
      /* 範囲選択されていない場合 */
      ^.SSpread1.Row = ^.SSpread1.ActiveRow;
      ^.SSpread1.Col  = ^.SSpread1.ActiveCol;
      ^.SSpread1.Row2 = ^.SSpread1.ActiveRow;
      ^.SSpread1.Col2 = ^.SSpread1.ActiveCol;
    }
    /* 時間の選択をせずに入力しようとした場合、メッセージを表示する */
    if(^.PulldownList1.value == -1){
      //.MessageBox("時間を選択してください");
      return;
    }
    /* 選択範囲に勤務時間のセルが含まれている場合、メッセージ表示する */
    if(^.SSpread1.Col > 2 || ^.SSpread1.Col2 > 2){
      //.MessageBox("勤務時間へは、値をセット出来ません");
      return;
    }
    /* プルダウンリストより選択された時間を、選択されたセルに入力する */
    ^.SSpread1.Text = ^.PulldownList1.
                           PulldownItem1[^.PulldownList1.Value].Title;
    ^.SSpread1.BlockMode = $FALSE;
  }
}