Q&A

  • 엑셀 셀형식중 균등분할로 지정하려면?
셀병합후 긴 문자열이 들어가면 병합된 셀에 2칸이든 3칸이든
줄이 바뀌어서 들어가야 되는데 아무리 찾아봐도
왼쪽, 오른쪽, 가운데 맞춤만 있네요..
지정하는 방법이 있나요?
부탁합니다......
2  COMMENTS
  • Profile
    이희진 2007.01.24 23:07
    균등분할은 xlDistributed 로 지정하면 됩니다만, 말씀하신 내용은 이해가 잘 안되는군요. ^^;
  • Profile
    박성준 2007.01.25 04:34
    아마
    2칸3칸은
    <!--CodeS-->
       A  B  C D  E
    1 |                |
    2 |    이곳      |
    3 |________|
    4
    5
    <!--CodeE-->

    셀을 병합하면 가로, 세로 가운데 맞춤이 되므로
    그렇게 말한 것 같네요. ^^

    희진님께서 답변 잘 해주셨지만, 조금 덧 붙입니다.

    <!--CodeS-->
    procedure TForm1.FormActivate(Sender: TObject);
    const
       xlHAlignCenter = $FFFFEFF4;
       xlHAlignCenterAcrossSelection = $00000007;
       xlHAlignDistributed = $FFFFEFEB;//균등분할
       xlHAlignFill = $00000005;
       xlHAlignGeneral = $00000001;
       xlHAlignJustify = $FFFFEFDE;
       xlHAlignLeft = $FFFFEFDD;
       xlHAlignRight = $FFFFEFC8;

    begin
    //엑셀선언
    MyExcel := CreateOleObject('Excel.Application');
    MyExcel.WorkBooks.add;

    //화면에 보이기
    MyExcel.Visible := true;

    //셀병합 및 글자크기 조정
    MyExcel.Workbooks[1].WorkSheets[1].Range['a1:o1'].mergecells := true;

    MyExcel.Workbooks[1].WorkSheets[1].Cells.Item[1,1] := '/한/델/만/세/';
    MyExcel.Workbooks[1].WorkSheets[1].Range['a1:a1'].font.bold := true;
    MyExcel.Workbooks[1].WorkSheets[1].Range['a1:a1'].font.size := 22;
    MyExcel.Workbooks[1].WorkSheets[1].Range['a1:a1'].HorizontalAlignment := xlHAlignDistributed;

    end;
    <!--CodeE-->

    에구...
    이제 조금있으면, M-TV 「나쁜여자 착한여자」, 「거침없이 하이킥」이 하는군요.
    플밍게을리 함 안되는데...

    /사/천/팔/백/만/모/두/가/성/공/하/는/그/날/까/지