Delphi Programming / Object Pascal
サイトのトップページへ リンクのページへ ロゴマーク
[掲載 2009年05月24日] [更新 2020年10月19日]　エクセル操作フォームEx
エクセル操作フォームEx
プロパティ
動作確認等 -




凡例 ■ published
□ public
▲ ReadOnly


全てのプロパティの先頭にxlfが付いています．



プロパティ一般


以下のプロパティがあります．
全てのプロパティ，メソッド類には，xlf というプリフィックスが付いています．

シートとセルをアクティブにしても，フォーカスは移動(キー入力が可能な状態に)しません．フォーカスを移動するには，マウスでクリックするか，xlfSetFocusExcel メソッドを実行します．

▲ xlfExcelApp - TExcelApplication オブジェクト
▲ xlfExcelBook - TExcelWorkBook オブジェクト
▲ xlfExcelSheet - TExcelWorkSheet オブジェクト
□ xlfExcelVersion String エクセルのバージョン文字列
□ xlfExcelVersionNo Integer エクセルのバージョンの整数値
□ xlfActiveSheetName String アクティブなシート名の設定と取得
ブック表示前に設定しておくと，表示後にこのシートを表示する
□ xlfActiveCell String アクティブなセルの設定と取得
ブック表示前に設定しておくと，表示後にこのセルが選択状態となる
A1 形式の文字列で指定する
□ xlfBookFullPath String ブックのフルパス名
フォーム表示前に設定しておくと，このブックを表示する
□ xlfScrollArea String スクロール範囲の設定と取得
ブック表示前の設定も有効
設定値は全シートに対して有効となる
解除するには空文字を指定する
□ xlfBookSaved Boolean 保存の状態の設定と取得
True にすると強制的にブック変更なしとなる
□ xlfCellValue[A1] OleVariant アクティブシートのセル値の設定と取得
引数付きプロパティ
引数 A1 は A1 形式の文字列で指定する
取得に失敗すると Unassigned 値を返す
□ xlfCellValueOnSheet
[A1, SheetName] 		OleValiant 指定シートのセル値の設定と取得
引数付きプロパティ
引数 A1 のセルと Sheet のシート名は文字列
□ xlfPosValue[ARow, ACol] OleVariant アクティブシートのセル値の設定と取得
引数付きプロパティ
引数 ARow は行，ACol は列の番号で Integer 型
取得に失敗すると Unassigned 値を返す
□ xlfPosValueOnSheet
[ARow, ACol, SheetName] 		OleValiant 指定シートのセル値の設定と取得
引数付きプロパティ
引数 ARow, ACol は行と列番号で Integer 型
Sheet は対象シート名で String 型




Cells プロパティを使用して行番号と列番号でセルを指定


セル値の設定と取得を，行と列番号 (R1C1 形式) で指定するには，以下のコードでも可能です．エクセル操作フォームEx の内部ではこの処理を実行しています．
Cells.Item の最初の引数が行番号で，2 番目が列番号です．この値が共に 1 の時はシートの左上のセルを意味します．Cells.Item の Item は省略できません．		 


procedure TplExcelFormEx2.Button1Click(Sender: TObject);
var
  LValue : OleVariant;
begin
  //指定セルへ値を設定
  xlfExcelSheet.Cells.Item[5, 3].Value := 'Delphi';

  //指定セルの値を取得
  LValue := xlfExcelSheet.Cells.Item[5,3].Value;
  ShowMessage(LValue);
end;


例えば，セル B2 から行方向 (下の行の方) のセルに値を代入したい場合には，エクセル操作フォームEx で実装しているメソッド xlfToR1C1 を使用して，以下のようなコードを使用することもできます． 


procedure TplExcelFormEx2.Button14Click(Sender: TObject);
var
  LPos : TPoint;
  i    : Integer;
begin
  LPos := xlfToR1C1('B2');
  for i := LPos.Y to 50 do begin
    xlfPosValue[i, 2] := i;
  end;
end;



枠線や行列番号やシートタブ等の表示


以下の設定と取得用のプロパティです．ブック表示前に設定しておくと，xlfActiveSheetNameプロパティで選択シートを変更しても適用されます．
元のエクセルとブックの表示状態は，サイズ，位置とともに，ここで設定した内容に影響しません．これらの設定は，このエクセル操作フォームで表示している時だけ有効です．
ただし，シートの表示切換をシートのタブをクリックして行った場合の結果は保証できません．

エクセルには，シートを追加した時のイベントはありますが，シート削除のイベントはありません．シートを削除すると，そのシートのオブジェクトにアクセスできなくなり，例外が発生します．この例外は捕捉できません．
コードでシートを削除する時は，削除に対する操作に対応できますが，シートのタブのメニューからシートを削除した場合は対応できません．そのため，エクセル操作フォームEx では，エンドユーザによるシートの削除を回避するために，デフォルトではシートのタブを非表示にしています．

□ xlfDisplayFormulabar Boolean 数式バーの表示．デフォルトは False
□ xlfDisplayWorkBookTabs Boolean シートのタブの表示．デフォルトは False
□ xlfDisplayGridLine Boolean セルの枠線 (罫線) の表示．デフォルトは False
□ xlfDisplayHeadings Boolean 行と列の番号の表示．デフォルトは False
エクセルの用語では [見出し行]
□ xlfDisplayPageBreadks Boolean ページ区切りの点線表示，デフォルトは True


[備考]
Excel 2013 には，シート削除時のイベント Beforedelete が追加されています．




スクロールエリアの設定


プロパティ xlfScrollArea は，シートのスクロール範囲を制限することができます．エクセルを操作中に，下の方 (行番号の大きい行) を表示しようとすると，スクロールが速くて，目的の行位置で制止することが困難な場合があります．このような場合にスクロール範囲を制限すると便利です．ただし，横方向 (列方向) の制限も同時に指定する必要があります．また，xlfScrollArea で指定した範囲外のセルには移動できなくなります．




Txlf2000Shape オブジェクト


図形やテキストボックスを表すオブジェクトは Shape です．これは Office2000.pas にも定義されていますが，互換性はありません．
Office2000.pas には，エクセルやワードで使用する各種の定数が定義してありますので，これでは不便です．そこで，Txlf2000Shape というオブジェクトを定義しています．




Txlf2000Range オブジェクト


セルなどのオブジェクトは Range ですが，ワード操作フォームEx の Twdf2000Shape と名前を合わせるために， Txlf2000Range というオブジェクトを定義しています．




Excel 2007 のブック


Excel 2007 標準のブック形式と，それまでのエクセルのブックの相互変換機能はありません．
Excel 2007 よりも前のブックは，Excel 2007 がインストールしてある環境では互換モードで開くことになります．互換モードというのは，Excel 2007 以降で，Excel 2007 より前の形式のブックを表示して操作することです．
エクセルの保存ダイアログを使用すると，Excel 2007 のブック形式で保存できます．