Excel 求助！(100分)

B

bocai80

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-09

• #1

我想要得到Excel中一个定义好的Range的开始和结束位置的横纵坐标，请哪位大侠拔刀相助！
菜鸟不胜感激！

 

L

lodgue

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-09

• #2

var
Excel:variant
Column,Row:integer;
begin
...
Column:=Excel.ActiveRange.Cells.Column;
Row:=Excel.ActiveRange.Cells.Row;
...
end;

 

E

etack

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-30

• #3

要达到什么样的效果？

 

B

bocai80

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-31

• #4

[][][?][^][!][]
lodgue :
我知道这个方法
但是我想要的不是这样
这个RANGE的范围不是不变的
它是由程序来决定的

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-31

• #5

右上单元行列，行数列数。===》右下单元行列

 

L

lodgue

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-31

• #6

如果您知道这个范围如（A2:B4）那么您可以：
开始纵坐标：2
开始横坐标：利用Col2Num(A)来获取（1）
结尾纵坐标:4
结尾横坐标：利用Col2Num(B)来获取（2）
function Col2Num(ColName:string):integer;
var
Len,i:Integer;
BaseData:integer;
begin
Result:=0;
BaseData:=Ord('A')-1;
ColName:=UpperCase(ColName);
Len:=Length(ColName);
for i:=1 to Lendo
begin
Result:=Result+(Ord(ColName)-BaseData)*Trunc(Power(26,(Len-i)));
end;
end;

 

B

bocai80

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-01

• #7

分分咯！
多谢大家捧场！虽然不是人只有3个，分只有一百
问题也已经被我解决，但也谢谢三位赏脸来了这里，
尤其是etack兄弟在电话里给我的帮助
再次谢谢大家
分没分好的话，请大家不要见怪，希望以后更加的多多支持兄弟我！谢谢！