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

Previous  Top  Next

    
 

 

 

Code:

{ ... }

var

Rnge: OleVariant;

{ ... }

 

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;

 

©Drkb::04390

Взято с Delphi Knowledge Base: http://www.baltsoft.com/