Q&A

  • excel에서 cell에 alignment를 지정하고 싶은데요..
델에서 엑셀을 제어시에

특정 cell에 alginment를 지정하고 싶은데

어떻게 해야하나요?



1  COMMENTS
  • Profile
    한현정 2000.09.28 03:16
    제가 찾았습니다.

    기본적인 몇가지만 올립니다.

    const

    xlLeft = -4131;

    xlRight = -4152;

    xlTop = -4160;

    xlBottom = -4107;

    xlThin = 2;

    xlNone = 0;

    xlCenter= -4108;





    //font

    ExcelIns.WorkSheets[SheetIdx].Range['A1:F30'].Font.Size := 11;

    ExcelIns.WorkSheets[SheetIdx].Range['A1:F30'].Font.Name := '굴림체';

    ExcelIns.WorkSheets[SheetIdx].Range['A1:F30'].NumberFormat := '#,##0';



    // Column Width 지정

    ExcelIns.WorkSheets[SheetIdx].Columns['A'].Columnwidth := 12;

    ExcelIns.WorkSheets[SheetIdx].Columns['B'].Columnwidth := 11;



    // 자동

    ExcelIns.WorkSheets[SheetIdx].Columns['A:F'].AutoFit;





    // 값 넣기

    ExcelIns.WorkSheets[SheetIdx].cells[1,1] := '체결보고서';

    ExcelIns.WorkSheets[SheetIdx].Cells[9,3] := '=신탁매수!D1';





    // 선 그리기

    ExcelIns.WorkSheets[SheetIdx].Range['A8:F16'].Borders[xlLeft].Weight := xlThin;

    ExcelIns.WorkSheets[SheetIdx].Range['A8:F16'].Borders[xlRight].Weight := xlThin;

    ExcelIns.WorkSheets[SheetIdx].Range['A8:F16'].Borders[xlTop].Weight := xlThin;

    ExcelIns.WorkSheets[SheetIdx].Range['A8:F16'].Borders[xlBottom].Weight := xlThin;



    // 셀 병합

    ExcelIns.WorkSheets[SheetIdx].Range['A9:A10'].Merge;



    // 셀 칼라지정

    ExcelIns.WorkSheets[SheetIdx].Range['A8:F8'].Interior.Color

    := RGB(192, 192, 192);//회색





    // alignment 지정

    ExcelIns.WorkSheets[SheetIdx].Range['A4:A5'].HorizontalAlignment := xlLeft;

    ExcelIns.WorkSheets[SheetIdx].Range['F7:F7'].HorizontalAlignment := xlRight;

    ExcelIns.WorkSheets[SheetIdx].Range['A8:F8'].HorizontalAlignment := xlCenter;