function LowerColToIndex(value: string): Integer;
var
I:Integer;
c:Char;
begin
if value='' then
begin
Result:=0;
Exit;
end;
if Length(value)<>1 then
begin
Result:=0;
Exit;
end;
c:=value[1];
I:=Ord(c);
Result:=I-97+1;
end;
function UppColToIndex(value: string): Integer;
var
I:Integer;
c:Char;
begin
if value='' then
begin
Result:=0;
Exit;
end;
if Length(value)<>1 then
begin
Result:=0;
Exit;
end;
c:=value[1];
I:=Ord(c);
Result:=I-65+1;
end;
//表格单元格名称转为行列
function GetCellRefNameColRow(sRefName: string; var nCol, nRow:
Integer): Boolean;
var
I,ilen:integer;
iicol,iiRow:Integer;
sC:string;
begin
nCol:=0;
nRow:=0;
ilen:=Length(sRefName);
for I := 1 to ilen do
begin
sC:=sRefName[I];
if sC='' then
continue
else if ((sC>='A') and (sC<='Z')) then
begin
iicol:=UppColToIndex(sC);
nCol:=nCol*26+iicol;
end
else if ((sC>='a') and (sC<='z')) then
begin
iicol:=LowerColToIndex(sC);
nCol:=nCol*26+iicol;
end
else if ((sC>='0') and (sC<='9')) then
begin
iiRow:=StrToInt(sC);
nRow:=nRow *10+ iiRow;
end;
end;
Result:=true;
end;