나눔터  
  HOME > 나눔터 > 묻고답하기 > 엑셀
엑셀
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 전형승 (neverj74)

추천:  2
파일:     조회:  1208
제목:   작업속도 센드키
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

 - 엑셀 버전(95,97,2000,xp,2003,2007):2010

* 아래줄에 질문을 작성하세요 >> 

For i = 1 To 400 Step 1    '1부터 1칸씩 400까지
     
    ActiveCell.Cells(i, "A").Application.SendKeys ("{F2}{Enter}")
    
 Next
 
   Range("A1").Select

수식을 이렇게 했더니 작업하는데 시간이 너무오래걸리네요
처리속도를 빠르게 할수 없을까요?
 
[불량 게시물 신고]  
dewSendKeys 메소드를 사용하시는 특별한 이유가 있나요?
셀를 직접선택해서 키값을 넣어야 하는 경우는 시간이 많이소요되고, 시트에 수식이 많이 있으면 처리하는데 지연시간이 많이 걸립니다.
09-10 (12:51)
삭제 ■신고
전형승특별한 이유는 없지만 저렇게 하는방법밖에 몰라서요...09-10 (13:13)
삭제 ■신고
dew단순히 값을 넣고자 할 경우
For i = 1 To 400 Step 1
    ActiveCell.Cells(i, 1) = i
Next

VBA에서 작업속도를 빠르게 아래 설정을 먼저하신후, 작업이 끝나면 원상복귀하시면 됩니다.

'작업시작전
With Application
     .ScreenUpdating = False
     .Calculation = xlCalculationManual
     .EnableEvents = False
End With

'작업종료후
With Application
    .ScreenUpdating = True
    .Calculation = xlCalculationAutomatic
    .EnableEvents = True
End With
09-10 (13:29)
삭제 ■신고
전형승답변 감사합니다 그런데 이렇게 하면 1부터 400까지 숫자가 들어가지네요 ㅜㅜ 제가 원하는건 그셀의 값이 그대로 적용되는건데 제가 잘못적용해서 그런지 잘모르겠어요ㅜㅜ09-10 (15:31)
삭제 ■신고
전형승이걸 이렇게 하는이유가 인덱스 함수로 값을 불러오게해놨거든요 근데 07로 시작하는 애들은 불러와지는데 17로 시작하는애들이 불러와지지가 않고 f2누르고 엔터눌러야 불러와지더라고요 참고로 자동계산 설정 되어있는상태입니다.09-10 (15:37)
삭제 ■신고
dew셀의 값이 그대로 적용된다는 것을 어떻의미 인지???
예제화일을 같이 첨부하시면 ..... 확인해보겠습니다.


09-10 (15:46)
삭제 ■신고
dew숫자와 문자가 혼용이 되어 있으면 찾지 못하는 경우가 있습니다.
09-11 (13:32)
삭제 ■신고
        
  

작성일 : 2018-09-10(11:49)
최종수정일 : 2018-09-10(11:49)