Как осуществить поиск ячейки по её значению?

Материал из DRKB


var
  Rnge: OleVariant;
begin
  Rnge := WS.Cells;
  Rnge := Rnge.Find('Is this text on the sheet?');
  if Pointer(IDispatch(Rnge)) <> nil then
    { The text was found somewhere, so colour it pink }
    Rnge.Interior.Color := clFuchsia;
end;


Source: Delphi Knowledge Base: http://www.baltsoft.com/
ID: 04390