TExcelApplicationでコメントの挿入

解決

studio-take 2017-06-04 21:07:15 No: 48649 IP: 192.*.*.*

TExcelApplicationでセルにコメントを挿入したいのですが、
型の入力の仕方が分からず困っています。

宜しくお願いします。

ExcelSheet1.Cells.Item[RowY,ColX].Select;
ExcelSheet1.Cells.AddComment('TEST');

だとパラメータが間違っています。となります。

編集削除

igy 2017-06-04 22:20:55 No: 48650 IP: 192.*.*.*

試していませんが、
以下のコードで、コメントは挿入できますか？

ExcelSheet1.Cells[1, 3].AddComment;
ExcelSheet1.Cells[1, 3].Comment.Text(Text:='テスト');

編集削除

studio-take 2017-06-04 23:04:59 No: 48651 IP: 192.*.*.*

ExcelSheet1.Cells[1, 3]
という記述は認められません。

var
varstr:OLEVariant;
begin
varstr := 'TEST';
ExcelSheet1.Cells.AddComment(varstr);
end;

も無理でした。

編集削除

Harry 2017-06-05 21:51:01 No: 48652 IP: 192.*.*.*

試してみました。
  ただし（１）…使用したのは中国製のExcelもどきです。（MS Officeを買うお金が無いので。）
  ただし（２）…TExcelApplicationのようなタイプライブラリは使ってません。というか用意されてない模様。

なので、動作が異なる可能性が多大にあります。ご参考程度に。

uses
  ComObj;

var
  Excel: OleVariant;

procedure TForm1.Button1Click(Sender: TObject);
var
  ExcelSheet1: OleVariant;
begin
  Excel:=CreateOleObject('ET.Application'); // Kingsoft Spreadsheets
  Excel.Visible:=True;
  Excel.Workbooks.Add;
  ExcelSheet1:=Excel.Workbooks[1].WorkSheets[1];

  ExcelSheet1.Cells.Item[1,1].Select;
  ExcelSheet1.Cells.AddComment('てすと１'); // 無反応

  // 以下は成功

  ExcelSheet1.Cells[1,2].Select;
  Excel.Selection.AddComment('てすと２');

  ExcelSheet1.Cells[1,3].Select;
  Excel.ActiveCell.AddComment('てすと３');

  ExcelSheet1.Cells[1,4].AddComment('てすと４');
  ExcelSheet1.Cells.Item[1,5].AddComment('てすと５');
  ExcelSheet1.Range['F1'].AddComment('てすと６');

  ExcelSheet1.Cells[1,7].AddComment;
  ExcelSheet1.Cells[1,7].Comment.Text:='てすと７';

  ExcelSheet1.Cells[1,8].AddComment.Text:='てすと８';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Excel.Quit;
  Excel:=Unassigned;
end;

編集削除

au 2017-06-06 17:29:10 No: 48653 IP: 192.*.*.*

Sheet.Cells.Item[1,2].AddComment('AAA');
でいけるかと思います

編集削除

studio-take 2017-06-11 13:38:40 No: 48654 IP: 192.*.*.*

ありがとうございます。

auさんの記述でできました。
ありがとうございました。

編集削除