|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
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 왼쪽편숫자를네모로바꾸기()
sub 숫자를 네모로 바꾸기()
Dim rngAll As Range
Dim rngCell As Range
Dim TargetCell As Range
Dim TargetCell2 As Range
Dim rngCell2 As Range
Dim Temp As String
Worksheets("sheet3").Select
Set rngAll = Range(Cells(1, 1), [a65536].End(xlUp)) '전체 작업구간 선정
For ILoop = 1 To rngAll.Rows.Count Step 36 '각각의 셀을 순환하면서 작업한다
Set TargetCell = Range(Cells(ILoop + 4, 1), Cells(ILoop + 17, 1))
For Each rngCell In TargetCell
Temp = rngCell.Value '임시 변수에 넣는다
If IsNumeric(Temp) Then '숫자인가를 확인후 숫자이면
rngCell = "■" '숫자이면 바꾸기
End If
Next rngCell
Next ILoop
End Sub
고수님의 고견을 부탁드립니다. |
|