Q&A

  • 엑셀 시트의 이동
헥헥.,. 찾다 찾다 못 찾아서 질문 올립니다..ㅠ.ㅠ

음..엑셀 시트 12개를 순서대로 정렬하려고 하는데요..

엑셀의 매크로 도구를 이용하여 시트 생성하고 이름 짓고는 했습니다만..

딱 여기서 걸립니다..ㅠ.ㅠ

Sheets(I).Move before:=Sheets(J)

이 넘을 델파이로 어떻게 변환해야 하는지요..

다시 말씀드려서 매크로 기록 해 보면 한 시트를 이동하면

다음과 같은데요..

    Sheets("5").Select
    Sheets("5").Move Before:=Sheets(13)

를 델파이로

    Sheets['5'].Select ;
까진 알겠는데

  다음 문장의 Before를 어케 처리해야는 지 잘 모르겠습니다..

아시는 분 계시면 답변 꼭 부탁드립니다..




1  COMMENTS
  • Profile
    끈기아빠 2002.09.26 01:37

    답변 올라 오는 동안 이리 저리 해 봤더니..되더군요..

    별 것 아닌 허접한 것이지만..혹 필요한 분이 있으실까봐

    소스 남깁니다..

    시트의 제목순서대로 정렬하는 것입니다..

         For j := 1 To XL.Sheets.Count DO BEGIN
          For k := 1 To (j - 1) DO BEGIN
          
            IF (UpperCase(XL.Sheets[j].Name) < UpperCase(XL.Sheets  [k].Name)) THEN    
            XL.Sheets[J].Move(XL.Sheets[K])  ;    

          END;//For k
        END;//for j

    P.S 별 것 아니지만 4시간동안 끙 대다가 해결되니 기분 괜찮군요..^^;;

    모두 즐거운 시간들 되시길..^^