format celule în Excel
Cum se formează programele în celule în Excel (de exemplu, pentru a face o celulă în format text, a schimba lățimea unei coloane etc.)
Odată ce ați abordat această problemă, iată o bucată de cod,
probabil este posibil să faceți și într-un fel într-un alt mod, este ca o opțiune
răspunsul la întrebarea dvs.
procedura TFMenu21.RadioButton5Click (expeditor: TObject);
const
xlCenter = -4108;
XLWBatWorksheet = -4167; // pentru a crea o carte de o singură pagină
var
xl. OleVariant;
x, i, în primul rând. întreg; // mai întâi să redenumiți pagina numită "Sheet1"
x1, y1. întreg; // pentru a selecta un interval în Excel
începe
încerca
// Excel deja rulează?
xl: = GetActiveOleObject ("Excel.Application");
ShowMessage ("Aveți deja încărcat Excel, terminați-l și apoi repetați ieșirea");
xl.Application.WindowState: = - 4137;
//xl.Visible:=True;
xl.Quit;
xl: = Neasignat;
Exit;
cu excepția
Nu, încă.
xl: = CreateOleObject ("Excel.Application");
se încheie;
xl.Workbooks.Add [XLWBatWorksheet];
// xl.Visible: = Adevărat;
mai întâi: = 1;
x1: = 0;
Y1: = 0;
Pentru i: = 3 downto 1 începe
x: = 2;
dacă prima = 0 atunci xl.Workbooks [1]. Worksheets.Add else first: = 0;
Dacă i = 1 atunci
începe
xl.Range [xl.Cells [x, 2], xl.Cells [x + 1.14]] MergeCells: = Adevărat; // îmbină celulele
xl.Range [xl.Cells [x, 2], xl.Cells [x + 1.14]] WrapText: = Adevărat; // wrap text
xl.Workbooks [1] .File de lucru [1] .Name: = "nume pagină";
// Efectuați un anumit antet al tabelului
x: = x + 1;
xl.Range [xl.Cells [x, 2], xl.Cells [x + 2,2]] MergeCells: = Adevărat; // îmbină celulele
xl.Cells [x, 2]: = "coloana 1";
xl.Range [xl.Cells [x, 3], xl.Cells [x + 1,4]] MergeCells: = Adevărat; // îmbină celulele
xl.Cells [x, 3]: = "coloana 2";
// Emiteți datele de la Ttable (DM.TsvodD1) în Excel
DM.TSvodD1.Open;
DM.TSvodD1.First;
x1: = x; // Stocați linia de start
În timp ce nu DM.TSvodD1.Eof face
începe
xl.Workbooks [1] .File de lucru [1] .Activate;
xl.ActiveWindow.DisplayZeros: = False; // nu afișați zerouri
xl.ActiveWindow.DisplayGridlines: = False; // nu afișați grila
/ / bold xl.Range [xl.Cells [x, 2], xl.Cells [x, 2]]. Font.Bold: = Adevărat;
xl.Cells [x, 2]: = DM.TSvodD1F.Value;
dacă DM.TSvodD1T.Value = 1 atunci xl.Cells [x, 3]: = "<0.2";
dacă DM.TSvodD1T.Value = 2 atunci xl.Cells [x, 3]: = "0.2-0.3";
// dacă DM.TSvodD1T.Value = 3 apoi xl.Cells [x, 3]: = "> 0.3";
dacă DM.TSvodD1T.Value = 3 atunci xl.Cells [x, 3]: = "0.5";
xl.Range [xl.Cells [x, 7], xl.Cells [x, 7]] NumărFormat: = "@"; // setați formatul textului pentru celulă
xl.Cells [x, 14]: = valoarea DM.TSvodD1Proc.Value;
x: = x + 1;
DM.TSvodD1.Next;
se încheie; // în timp ce nu este TSvodD1.Eof
y1: = x-1; // depozitați linia finală
// totalul de ieșire
xl.Workbooks [1] .File de lucru [1]. Rânduri [x] .RoHeight: = 44.25; // înălțimea liniei
xl.Range [xl.Cells [x, 2], xl.Cells [x, 14]] WrapText: = Adevărat;
// Format
xl.Workbooks [1] .pentru foi de lucru [1] .Range [xl.Cells [1,2], xl.Cells [x, 14]]. VerticalAlignment: = 2;
xl.Workbooks [1] .cărțile de lucru [1] .Range [xl.Cells [x-3,2], xl.Cells [x, 14]] OrientalAlignment: = xlCenter; // ieșire în centrul celulei
xl.Workbooks [1] .worksheets [1]. Rangul [xl.Cells [x-3.2], xl.Cells [x, 14]].
xl.Workbooks [1] .worksheets [1]. Rangul [xl.Cells [x-3,3], xl.Cells [x-3,14]] Border.Weight: = 2;
// setați lățimea coloanelor
xl.Workbooks [1] .cărțile de lucru [1]. Columns.Columns [1] .ColumnWidth: = 2.43;
// limitele celulare
xl.Workbooks [1] .worksheets [1]. Rangul [xl.Cells [x1,2], xl.Cells [y1,2]] NumarFormat: = "0,0";
xl.Range [xl.Cells [x1,4], xl.Cells [y1,4]] NumărFormat: = "0,0";
Puteți face mai ușor, să executați Excel, să rulați o înregistrare macro și să faceți ceea ce aveți nevoie, apoi cum să text text, setați lățimea celulei, orice, și apoi să vedeți ce este generat în Visual Basic.
> Valera (13.05.03 09:14
de asemenea, acest lucru, dar trebuie să țineți cont că codul de pe VB va fi diferit: o listă de variabile, obiecte și proprietăți disponibile în Delphi. Dar nu mai trebuie să-ți dai seama ce e.
Mulțumesc Tatianei, o să încerc.
Articole similare
Trimiteți-le prietenilor: