有关f1book中sheet 间的引用?(100分)

W

weiyan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-05

• #1

近来用f1book做一个填表程序,遇到一个问题,如何在同一个f1book中
的多个sheet间写引用关系,我知道在公式中可以写:sheet1!A1=sheet2!A3,可是在delphi程序中如何判断sheet1中的一个cell和sheet2中的一个cell作比较
我想应该有sheet.textRC[] 之类的写法.可是没有!
我现在是将用到的sheet(f1book1.sheet:=i),读数/判断.似乎苯了些. 而且窗口会闪动!

我说清楚了吗?

weiyan

 

W

w5w

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-08

• #2

设一个变量进行比较

 

老

老屯

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-08

• #3

可以用Sheet属性设置当前的Sheet,用EntryRC[Row,Col]为单元格赋值/取值. 假设
有三个Sheet,下例子给出Sheet1和Sheet3的[1,1]单元赋值,然后再把他们合成一个
字符串:

procedure TForm1.Button1Click(Sender: TObject);
var msg: string;
begin
f1book1.sheet:=3;
f1book1.EntryRC[1,1] := 'a';
f1book1.sheet:=1;
f1book1.EntryRC[1,1] := 'b';
msg:='';
f1book1.sheet:=3;
msg:=f1book1.EntryRC[1,1];
f1book1.sheet:=1;
msg:=msg+f1book1.EntryRC[1,1];
showmessage(msg);
end;

 

W

weiyan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-08

• #4

老屯老兄：我就是不想这样才提出的问题！

 

老

老屯

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-08

• #5

这还不好办么,给你的Form定义一个数组属性,每个元素都是一个f1Book, 然后就能使
用 F1Sheets[1].entryRC[1,1]:='abc'; 的方法了.

<font size=5 color=red>Is this great? 哈哈哈!</font>

TForm1 = class(TForm)
F1Book1: TF1Book;
...
private
function GetSheets(index: integer): TF1Book1;
public
property F1Sheets[index: integer]: TF1Book1 read GetSheets;
end;

function TForm1.GetSheets(index: integer): TF1Book;
begin
F1Book1.Sheet := index; //if you want to use 1 based array
//F1Book1.Sheet := index-1; //if you want to use 0 based array
result := F1Book1;
end;

 

W

weiyan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-17

• #6

其实还是没有解决问题！或者说绕了个圈，解决了问题的一半

 

老

老屯

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-17

• #7

你小子真顽固!
你还想如何解决呀,自己写一个SpreadSheet程序吧,哈哈!

 

L

liuchuanbo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-07-11

• #8

formulasrc[,,]你看取出来的串能否比较
或者依你的意思直接用。

 

W

weiyan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-09-15

• #9

结束吧，谢谢各位；