Excel-Export, RefToCell, Spalten>26

[himitsu]

Schon ganz schön alt der Thread?
Aber die Antwort aus Post #2 hast'e gut aufgezeigt.
Wäre nur praktisch, wenn deine Umsetzung korrekt wäre.

Zitat:

A1
B1
...
X1
Y1
AA1
AB1
...

Oder sieht diese Folge richtig aus?
Tipp: 27 oder <=




Ein Einzeiler:
Result := IfThen(Col > 26, Chr(Ord('A') + (Col - 27) div 26), '') + Chr(Ord('A') + (Col - 1) mod 26) + IntToStr(Row);
Oder etwas übersichtlicher:

Delphi-Quellcode:

function RefToCell(Row, Col: Integer; WithRow: Boolean = False): string;
begin
  Dec(Col, 1);
  Result := Chr(Ord('A') + Col mod 26);
  if Col >= 26 then
    Result := Chr(Ord('A') + Col div 26 - 1) + Result;
  if WithRow then
    Result := Result + IntToStr(Row);
end;

[Blup]

Oder getrennt:

Delphi-Quellcode:

function RefToColumn(ACol: Integer): string;
const
  Basis = Ord('A');
  Range = Ord('Z') - Basis + 1;
begin
  Result := '';
  repeat
    Dec(ACol, 1);
    Result := Char(Basis + ACol mod Range) + Result;
    ACol := ACol div Range;
  until (ACol = 0);
end;

function RefToCell(ACol, ARow: Integer): string;
begin
  Result := RefToColumn(ACol) + IntToStr(ARow);
end;