喫茶XRAYトップページ

[スレッド全体
]

[11204] エクセルのセルのコメント返信 削除
2017/6/5 (月) 20:39:16 Mr.XRAY
http://madia.world.coocan.jp/cgi-bin/DelphiBBS/wwwlng.cgi?print+201706/17060002.txt

そう言えばそんなのがありましたね.
個人的にはウザイですけど.

// TExcelApplication

procedure TplExcelFormEx1.Button7Click(Sender: TObject);
var
  ARange   : ExcelRange;
  LComment : Comment;
begin
  ARange := xlfExcelSheet.Range['B2', 'B2'];

  LComment := ARange.AddComment('これはコメントです');
  LComment.Shape.AutoShapeType := msoShape8pointStar;
end;

// CreateOleVariantで生成したエクセル

procedure TForm1.Button1Click(Sender: TObject);
var
  LComment : OleVariant;
begin
  LComment := WorkSheet.Cells[4,2].AddComment('これはコメントです');
  LComment.Shape.AutoShapeType := msoShape8pointStar;  // =$50
end;

動作確認は Windows 7 U64(SP1) + Delphi XE(UP1) + Excel 2010
           Excel2000.pas と Office2000.pasを使用

参考にした記事は以下,
"エクセル VBA コメント" で検索.VBA の方がコード例が多いので.

https://www.moug.net/tech/exvba/0050120.html



[11205] Re:エクセルのセルのコメント返信 削除
2017/6/6 (火) 09:16:12 Mr.XRAY
>   LComment := WorkSheet.Cells[4,2].AddComment('これはコメントです');

A1 形式で指定する時は,Range を使用して

  LComment := WorkSheet.Range['B4:B4'].AddComment('これはコメントです');

ですね.VBA だと Range("B4:B4") です. [] ではなく () です.
Delphi では引数付きのプロパティの引数の指定は [] です.
() は関数,メソッド等のプロシージャの時は () です.


[▼次のスレッド]
INCM/CMT
Cyclamen v3.82