Excel-Export, RefToCell, Spalten>26

[hoika]

Hallo #,

die folgende Funktion liefert das benötigte A1
für die Zellen beim Excel-Export zurück.
(bZeroRow ist für Columns-Methoden)

Delphi-Quellcode:

function RefToCell(ARow, ACol: Integer;
  const bZeroRow: Boolean = False): string;
var
  sCol: String;
  sRow: String;
begin
  sCol:= Chr(Ord('A') + ACol - 1);
  if bZeroRow then
  begin
    sRow:= '';
  end
  else
  begin
    sRow:= IntToStr(ARow);
  end;
  
  Result := sCol + sRow;
end;

Die Spalte 27 ist ja AA.
Das kann die Funktion aber nicht.

Hat die jemand schon mal implementiert ?


Heiko

[HiWieGehts]

Hallo,
Excel-Zellen können nicht nur über a1 usw. angesprochen werden. Es gibt auch die Möglichkeit, die Zellen über C1, R1 usw zu adressieren.
zu deiner Frage: probier ACol DIV 26 für das 1. Zeichen und ACol MOD 26 für das 2. Zeichen

[hoika]

Hallo,

auf dem Weg zum Döner habe ich mir das mit dem mod und div auch überlegt

Danke


Heiko

[Chemiker]

Hallo hoika,

dieser Link könnte Dir weiter helfen:

Excel-Export

Bis bald Chemiker

[hoika]

Hallo,

der Link war goldrichtig !
Die neue Ref-Methode funktioniert perfekt (sagen meine Unit-Tests).

Danke


Heiko

[tekkyeah]

Delphi-Quellcode:

  if col < 26 then
  begin
    Result := Chr(Ord('A') + Col - 1) + IntToStr(Row);
  end else
  begin
    Result := Chr((Col DIV 26) - 1 + Ord('A')) +
              Chr((Col MOD 26) + Ord('A')) + IntToStr(Row);
  end;

[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;