EXCEL

[Ernst August Decknatel]

Hallo,

ich überstelle Daten aus einem Grid <BR>
in ein EXCEL-Sheet.

Ich möchte jetzt Minusbeträge farbig<BR>
darstellen oder bestimmte Felder<BR>
fett darstellen. Wie geht solches ? <BR>

Wer hat evtl. Beispiele ?

Gruss<BR>
Ernst

[Andreas Kosch]

Hallo,

das folgende Beispiel demonstriert dies:
<pre>
<b>procedure</b> TForm1.Button_4Click(Sender: TObject);
<b>var</b>
vArray : OleVariant;
aRange : Range;
<b>begin</b>
ExcelWorksheet1.ConnectTo(
ExcelWorkbook1.Sheets.Item[3] <b>as</b> _Worksheet);
<font color="#003399"><i>// Benutzer soll das Sheet auch sehen</i></font>
ExcelWorksheet1.Activate;
<font color="#003399"><i>// Überschrift eintragen</i></font>
vArray := VarArrayOf([<font color="#9933CC">'Datum'</font>, <font color="#9933CC">'Auftragsnummer'</font>, <font color="#9933CC">'Betrag'</font>, <font color="#9933CC">'Info'</font>]);
aRange := ExcelWorksheet1.Range[<font color="#9933CC">'A1'</font>,<font color="#9933CC">'D1'</font>];
aRange.Value := vArray;
aRange.Font.Bold := True;
aRange.EntireColumn.AutoFit;
<font color="#003399"><i>// Werte eintragen</i></font>
vArray := VarArrayCreate([0, 2], varVariant);
vArray[0] := 12;
vArray[1] := 20;
vArray[2] := 30;
ExcelWorksheet1.Range[<font color="#9933CC">'A2'</font>,<font color="#9933CC">'C2'</font>].Value := vArray;
<font color="#003399"><i>// Formel eintragen und Ergebnis in Fettschrift formatieren</i></font>
ExcelWorksheet1.Range[<font color="#9933CC">'D2'</font>,<font color="#9933CC">'D2'</font>].Formula := <font color="#9933CC">'=A2+B2+C2'</font>;
ExcelWorksheet1.Range[<font color="#9933CC">'D2'</font>,<font color="#9933CC">'D2'</font>].Font.Bold := True;
<b>end</b>;
</pre&gt

[Hermann Kofler]

Was muss eingebunden werden, dass dies funktioniert