꿀돌대디

안녕하세요.



엑셀을 이용해서 뭔가를 만들고 있습니다.

아, VBA를 이용해서네요.



VBA를 통해 몇개의 시트를 생성합니다.

그리고 시트에는 많은 셀에 값을 넣을겁니다.



이 값들 일부에는 서식도 포함되어 있습니다.

(이 서식은 어찌할 수 없을것 같습니다.)



제가 조언을 구하고자 하는것은

시간을 단축시키고자 하는 것입니다.



현재는 두가지 방법을 통해 시도해 봤으며, 두번째를 이용하고 있습니다.

하나는

    Cell(1,1) = "값1"

    Cell(2,1) = "값2"

    ....

    이런 식으로 일일이 값을 뿌려줍니다.



두번째는

    Text = "값2" & vbcr & "값2" & ...

    이렇게 변수에 값을 넣고 이것을 클립보드에 복사합니다.

    그리고

    cell(1,1).select

    ActiveSheet.Paste

    대략 이런 식으로 이용합니다.



지금까지 결과를 보면 각각의 장단점은

    첫째는 오류는 없으나, 시간이 상당히 늦습니다.

    두번째는 실행시간은 상당히 빠르나, 불특정 오류가 발생합니다.





그래서 이보다 좀더 나은 방법이 있는지 조언은 구합니다.

또는 두번째 클립보드 이용하는 경우에 대해 해결방법이 있는지도 알고 싶습니다.





두번째에서의 문제는 아마도 클립보드의 데이터를 붙여넣거나 복사하는 과정에서 문제가 있는듯 싶습니다.

오류가 발생했을때 다음의 메세지가 뜹니다.

    1004 런타임 오류

    Worksheet 클래스중 Paste 메서드에 오류가 있습니다.

보통 2~3번 실행하다보면 성공하기도 합니다.



 

추천

신고

구글링 하니...
https://stackoverflow.com/questions/25128737/what-is-the-most-efficient-way-to-append-several-lines-to-excel-table-using-vba

이런 방법도 있네요.

고맙습니다.

분석중인데, 오류가 발생해서 아직 결과를 알 수가 없네요.

스크린 업데이트 off 하고 하시나요? 혹시 안하고 하신다면...

Application.ScreenUpdating = False
Application.ScreenUpdating = True 를 적절히...
추천:고치장

이것은 당연히 이용하죠.

cell().select 하지 마시고 그냥 바로 쓰시면 됩니다.
굳이 복사해서 붙여넣기 하지 마시고 그냥 바로 쓰면 됩니다.
아주 빨라요~
text 변수를 굳이 클립보드로 가지 말고 바로 원하는 셀에 바로 쓰세요~

cell().value = text

sheet1.celles(x,y).value = text
이런식으로 하면 어느 시트에서든 sheet1의 x,y 좌표에 원하는 값을 넣을 수 있습니다.

이렇게 말입니다.



위 예시는 일지 입력 다이얼로그 창에서 입력 버튼을 누르면 실행되는 함수 입니다.
마지막줄(마지막 레코드)에서 +1 자리에 원하는 값을 한줄 넣는거죠....
제가 일하는게 화물운송업이다 보니 상 하차지 정보와 금액이 들어 가는거죠 ^^;

데이터양이 얼마나 되시는지 모르겠습니다만 셀별로 만단위 데이터를 넣어도 그렇게까지 느리진 않았는데요.
수식이 많으시면 calcuate를 on/off하시거나 수식을 넣고 autofill로 채우시는 것도 방법이 됩니다.

패턴이 없는 데이터라서 autofill은 어렵구요.

Calcuate 사용해 봐야 겠네요.