AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Algorithmen, Datenstrukturen und Klassendesign Delphi Spaltennummer nach Excel-Spaltenstring umwandeln.

Spaltennummer nach Excel-Spaltenstring umwandeln.

Ein Thema von bernau · begonnen am 15. Sep 2014 · letzter Beitrag vom 16. Sep 2014
Antwort Antwort
Seite 3 von 3     123
Dejan Vu
(Gast)

n/a Beiträge
 
#21

AW: Spaltennummer nach Excel-Spaltenstring umwandeln.

  Alt 16. Sep 2014, 13:28
Rekursion?

Geändert von Dejan Vu (16. Sep 2014 um 13:30 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von Chemiker
Chemiker

Registriert seit: 14. Aug 2005
1.858 Beiträge
 
Delphi 11 Alexandria
 
#22

AW: Spaltennummer nach Excel-Spaltenstring umwandeln.

  Alt 16. Sep 2014, 14:13
Hallo bernau,

die Spaltenüberschriften müssen aber nicht zwingend mit Buchstaben angezeigt werden. Wenn man in Excel (z.B.: Excel 2007) unter [Excel-Optionen][ Formeln] „Z1S1 – Bezugsart “ einen Hacken setzt, so werden die Spalten als Zahlen angezeigt.

Bis bald Chemiker
wer gesund ist hat 1000 wünsche wer krank ist nur einen.
  Mit Zitat antworten Zitat
Dejan Vu
(Gast)

n/a Beiträge
 
#23

AW: Spaltennummer nach Excel-Spaltenstring umwandeln.

  Alt 16. Sep 2014, 14:14
Das ist gemein. Die ganze Arbeit umsonst.
  Mit Zitat antworten Zitat
Benutzerbild von bernau
bernau

Registriert seit: 1. Dez 2004
Ort: Köln
1.268 Beiträge
 
Delphi 11 Alexandria
 
#24

AW: Spaltennummer nach Excel-Spaltenstring umwandeln.

  Alt 16. Sep 2014, 14:23
die Spaltenüberschriften müssen aber nicht zwingend mit Buchstaben angezeigt werden. Wenn man in Excel (z.B.: Excel 2007) unter [Excel-Optionen][ Formeln] „Z1S1 – Bezugsart “ einen Hacken setzt, so werden die Spalten als Zahlen angezeigt.
Das ist in meinem Falle Wurscht
Gerd
Kölner Delphi Usergroup: http://wiki.delphitreff.de
  Mit Zitat antworten Zitat
Jumpy

Registriert seit: 9. Dez 2010
Ort: Mönchengladbach
1.733 Beiträge
 
Delphi 6 Enterprise
 
#25

AW: Spaltennummer nach Excel-Spaltenstring umwandeln.

  Alt 16. Sep 2014, 14:37
Das dürfte doch auch bei n=26 (und vielfachen davon) schief gehen.

Schreibtischtest:
für aIndex=26:
Result := chr(65 + aIndex mod 26) => chr(65 + 26 mod 26) => chr(65 + 0) => chr(65) => A
aIndex := aIndex div 26 => 26 div 26 => 1
if aIndex > 0 then => if 1>0 then => Wahr
Result := chr(64 + aIndex) + Result => chr(64+1)+CHR(65) => AA
Wieso schief gehen?

Ich fange mit dem Index = 0 an.

0 = A
1 = B
.
.
.
25 = Z
26 = AA
27 = AB

genau so bauche ich das. Und es funktioniert

Das war aber mal anders, Zitat aus #1:

Zitat:
result:=GetSpreadsheetColname(28); // -> Ergebnis = 'AB'
Ich bin daher davon ausgegangen, dass wie bei Excel üblich die erste Spalte, die Spaltennummer 1 hat und dann würde obiges schief gehen.
Ralph
  Mit Zitat antworten Zitat
Benutzerbild von bernau
bernau

Registriert seit: 1. Dez 2004
Ort: Köln
1.268 Beiträge
 
Delphi 11 Alexandria
 
#26

AW: Spaltennummer nach Excel-Spaltenstring umwandeln.

  Alt 16. Sep 2014, 14:52

Das war aber mal anders, Zitat aus #1:

Zitat:
result:=GetSpreadsheetColname(28); // -> Ergebnis = 'AB'
Ich bin daher davon ausgegangen, dass wie bei Excel üblich die erste Spalte, die Spaltennummer 1 hat und dann würde obiges schief gehen.
Das ist ja jetzt nicht die Welt. Oder? Als erste Anweisung ein index:=index-1; einfügen und schon beginnt die Spalte bei 1;
Gerd
Kölner Delphi Usergroup: http://wiki.delphitreff.de
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 15:42 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz