Einzelnen Beitrag anzeigen

hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.276 Beiträge
 
Delphi 10.4 Sydney
 
#1

Excel-Export, RefToCell, Spalten>26

  Alt 22. Jul 2009, 19:30
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
Heiko
  Mit Zitat antworten Zitat