procedure TplExcelFormEx1.Button1Click(Sender: TObject);
var
  ARange : Txlf2000Range;
begin
  xlfActiveSheetName := 'Sheet1';
  ARange := xlfExcelSheet.Range['B2', 'B2'];

  //セルに文字1
  //エクセル操作フォームで用意したプロパティを使用
  xlfCellValue['B4'] := 'Delphi';

  //セルの書式設定
  ARange.Value               := '文字の色等';
  ARange.RowHeight           := 50;                  //行高さ(ポイント)
  ARange.HorizontalAlignment := xlLeft;;             //横方向の配置
  ARange.VerticalAlignment   := xlCenter;            //縦方向の配置
  ARange.Font.Size           := 16.5;                //文字サイズ(ポイント)
  ARange.Font.Color          := clBlue;              //文字の色
  ARange.Font.Name           := 'ＭＳ Ｐゴシック';   //フォント名
  ARange.Interior.Color      := clSilver;            //背景色

  //セルF3の背景をxlGray16の編掛け模様
  xlfExcelSheet.Range['B6', 'C5'].Interior.Pattern := xlGray16;
end;

procedure TplExcelFormEx1.Button2Click(Sender: TObject);
begin
  xlfActiveSheetName := 'Sheet1';
  xlfCellValue['B5'] := '=SUM(B2:B4)';
end;

procedure TplExcelFormEx1.Button3Click(Sender: TObject);
var
  ARange : OleVariant;
begin
  xlfActiveSheetName := 'Sheet1';

  ARange := xlfExcelSheet.Range['D2', 'D2'];
  ARange.Formula := '=AVERAGE(B2:C2)';
  ARange.AutoFill(xlfExcelSheet.Range['D2', 'D7']);
end;

procedure TplExcelFormEx1.Button4Click(Sender: TObject);
var
  AFunction : OleVariant;
  AValue    : OleVariant;
  CellStr   : string;
begin
  xlfActiveSheetName := 'Sheet1';

  AFunction := xlfExcelApp.WorksheetFunction;

  //実際にはMatch関数の引数は3つしかないのでOleVariantにする必要はほとんどない
  //C2と同じ値がA2～A7までにあるかを検索
  try
    AValue := AFunction.Match(xlfExcelSheet.Range['C2', 'C2'],
                              xlfExcelSheet.Range['A2', 'A7'],
                              0);
    xlfExcelSheet.Range['D2', 'D2'].Value := AValue + 1;
    CellStr := 'B' + IntToStr(Round(AValue) + 1);
    xlfExcelSheet.Range['E2', 'E2'].Value :=
                                    xlfExcelSheet.Range[CellStr, CellStr].Value;
  except
    MessageBox(Handle, '検索語句はありません', '結果', MB_ICONINFORMATION);
  end;
end;

procedure TplExcelFormEx1.Button5Click(Sender: TObject);
var
  ARange : Txlf2000Range;
begin
  xlfActiveSheetName := 'Sheet1';

  ARange := xlfExcelSheet.Range['B1','B10'];
  ARange.NumberFormatLocal := '@';
  xlfCellValue['B2']       := '000123';
end;

var
  objExcelApp : OleVariant;
begin
  //Excel 2007以降の[オプション][数式][エラーチェックルール]の
  //[文字列形式の数値,またはアポトロフィで始まる数値]のチェックを外す
  //エクセル操作フォームはExcel2000.pasを使用しているのでErrorCheckingOptionsが
  //ない。そこでOleVariantにして設定
  if xlfExcelVersionNo >= 12 then begin
    objExcelApp := xlfExcelApp.Application;
    objExcelApp.ErrorCheckingOptions.NumberAsText := False;
  end;

  xlfActiveSheetName := 'Sheet1';
  xlfCellValue['B2'] := '''000123';
end;

procedure TplExcelFormEx1.Button7Click(Sender: TObject);
var
  ABookPath : String;
  SrcSheet  : String;
  SrcCells  : String;
  AValue    : OleVariant;
begin
  xlfActiveSheetName := 'Sheet1';

  ABookPath  := ExtractFilePath(ParamStr(0)) + '[シート選択テスト.xlsx]';
  SrcSheet   := QuotedStr(ABookPath + '第１四半期');
  SrcCells   := '!R7C3';

  AValue := xlfExcelApp.ExecuteExcel4Macro(SrcSheet + SrcCells);

  if VarIsError(AValue) then begin
    ShowMessage('失敗しました。');
  end else begin
    xlfCellValue['A2'] := AValue;
  end;
end;

procedure TplExcelFormEx1.Button8Click(Sender: TObject);
var
  ARange : Txlf2000Range;
begin
  xlfActiveSheetName := 'Sheet1';

  ARange := xlfExcelSheet.Range['B2','B10'];
  ARange.NumberFormatLocal := '#,##0.000';
end;

procedure TplExcelFormEx1.Button10Click(Sender: TObject);
var
  ARange  : Txlf2000Range;
  strText : String;
begin
  ARange  := xlfExcelSheet.Range['B12', 'B12'];
  strText := ARange.NumberFormatLocal;
  MessageBox(Handle, PChar(strText), '情報', MB_ICONINFORMATION);
end;

procedure TplExcelFormEx1.Button9Click(Sender: TObject);
var
  ARange : Txlf2000Range;
begin
  ARange := xlfExcelSheet.Range['B1','B10'];
  ARange.Font.Size := 12;

  ARange.NumberFormatLocal := '[>=80][色41]"合格"_#0;[赤]"落第"_#0';
end;