Du skal bare bruge F1Book.Selection. Den indeholder "select"-boksen. F.eks "C4" el. "D5:H8"
Du kan skrive til den sådan her:
procedure TForm1.Button1Click(Sender: TObject);
var
I, J: Integer;
begin
// F1Book1.Selection kan f.eks være "C4" eller "B5:H8"
if Pos(':', F1Book1.Selection) > 0 then
begin
for I := F1Book1.SelStartRow to F1Book1.SelEndRow do
for J := F1Book1.SelStartCol to F1Book1.SelEndCol do
F1Book1.NumberRC[I, J] := I * J;
end else
F1Book1.Text := 'Single';
end;
[Redigeret d. 16/11-04 13:52:39 af HSV]