|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
매크로기록기로 작성한건데 넘 느린데여...
다른방법이없나요??
Sub 재고집계()
'
' 재고집계 Macro
' sun이(가) 2003-07-11에 기록한 매크로
'
'
Selection.FormulaArray = "=SUM((RC1=재고현황!R8C1:R2999C1)*(재고현황!R8C6:R2999C6))"
Range("C14").Select
Selection.FormulaArray = _
"=SUM((RC1=재고현황!R8C1:R2999C1)*(재고현황!R8C6:R2999C6)*(재고현황!R8C5:R2999C5))"
Range("D14").Select
Selection.FormulaArray = "=SUM((RC1=재고현황!R8C1:R2999C1)*(재고현황!R8C10:R2999C10))"
Range("E14").Select
Selection.FormulaArray = _
"=SUM((RC1=재고현황!R8C1:R2999C1)*(재고현황!R8C10:R2999C10)*(재고현황!R8C5:R2999C5))"
Range("B14").Select
Selection.AutoFill Destination:=Range("B14:B17"), Type:=xlFillDefault
Range("B14:B17").Select
Range("C14").Select
Selection.AutoFill Destination:=Range("C14:C17"), Type:=xlFillDefault
Range("C14:C17").Select
Range("D14").Select
Selection.AutoFill Destination:=Range("D14:D17"), Type:=xlFillDefault
Range("D14:D17").Select
Range("E14").Select
Selection.AutoFill Destination:=Range("E14:E17"), Type:=xlFillDefault
Range("E14:E17").Select
Range("C22").Select
Selection.FormulaArray = _
"=SUM((RC1=재고현황!R8C1:R3000C1)*(RC2=재고현황!R8C2:R3000C2)*(재고현황!R8C10:R3000C10))"
Range("D22").Select
Selection.FormulaArray = _
"=SUM((RC1=재고현황!R8C1:R3000C1)*(RC2=재고현황!R8C2:R3000C2)*(재고현황!R8C10:R3000C10)*(재고현황!R8C5:R3000C5))"
Range("I22").Select
Selection.FormulaArray = _
"=SUM((RC7=재고현황!R8C1:R3000C1)*(RC8=재고현황!R8C2:R3000C2)*(재고현황!R8C10:R3000C10))"
Range("J22").Select
Selection.FormulaArray = _
"=SUM((RC1=재고현황!R8C1:R2999C1)*(재고현황!R8C10:R2999C10)*(재고현황!R8C5:R2999C5))"
Range("C22").Select
Selection.AutoFill Destination:=Range("C22:C26"), Type:=xlFillDefault
Range("C22:C26").Select
Range("D22").Select
Selection.AutoFill Destination:=Range("D22:D26"), Type:=xlFillDefault
Range("D22:D26").Select
Range("I22").Select
Selection.AutoFill Destination:=Range("I22:I26"), Type:=xlFillDefault
Range("I22:I26").Select
Range("J22").Select
Selection.AutoFill Destination:=Range("J22:J26"), Type:=xlFillDefault
Range("J22:J26").Select
Range("A20:L20").Select
End Sub
==============[한울타리님 글에 대한 답변입니다]==============
안녕하세요?
불필요한 코드를 줄이고, 화면표시와 계산의 반복에 필요한 시간을 줄여보았습니다.
Sub 재고집계()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Selection.FormulaArray = "=SUM((RC1=재고현황!R8C1:R2999C1)*(재고현황!R8C6:R2999C6))"
Range("C14").FormulaArray = _
"=SUM((RC1=재고현황!R8C1:R2999C1)*(재고현황!R8C6:R2999C6)*(재고현황!R8C5:R2999C5))"
Range("D14").FormulaArray = "=SUM((RC1=재고현황!R8C1:R2999C1)*(재고현황!R8C10:R2999C10))"
Range("E14").FormulaArray = _
"=SUM((RC1=재고현황!R8C1:R2999C1)*(재고현황!R8C10:R2999C10)*(재고현황!R8C5:R2999C5))"
Range("B14:E14").AutoFill Destination:=Range("B14:E17"), Type:=xlFillDefault
Range("C22").FormulaArray = _
"=SUM((RC1=재고현황!R8C1:R3000C1)*(RC2=재고현황!R8C2:R3000C2)*(재고현황!R8C10:R3000C10))"
Range("D22").FormulaArray = _
"=SUM((RC1=재고현황!R8C1:R3000C1)*(RC2=재고현황!R8C2:R3000C2)*(재고현황!R8C10:R3000C10)*(재고현황!R8C5:R3000C5))"
Range("I22").FormulaArray = _
"=SUM((RC7=재고현황!R8C1:R3000C1)*(RC8=재고현황!R8C2:R3000C2)*(재고현황!R8C10:R3000C10))"
Range("J22").FormulaArray = _
"=SUM((RC1=재고현황!R8C1:R2999C1)*(재고현황!R8C10:R2999C10)*(재고현황!R8C5:R2999C5))"
Range("C22:D22").AutoFill Destination:=Range("C22:D26"), Type:=xlFillDefault
Range("I22:J22").AutoFill Destination:=Range("I22:J26"), Type:=xlFillDefault
Range("A20:L20").Select
Application.Calculation = xlCalculationAutomatic
End Sub
[지역발전!!! 원전수거물관리센터 유치로....] |
|