이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
![[레벨:4]](http://www.abyul.com/zbxe/modules/point/icons/default/4.gif "포인트:1851point (50%), 레벨:4/30"){kind=icon}
신강현b1:g1 에 제목이뜹니다
그리고 그 아래 학생 테이블에 잇는 데이터를 가져오는 코딩을 햇는데요
이게 코딩이 뭐가 잘못되엇는지 모르겟습니다
음.. 다시말하자면
랜덤으로 코딩이 재대로 실행이될때가잇구
계속하다보면 코드 실행이 중단되엇다면서 디버깅이뜹니다.ㅠㅠ
이게 무슨 오류인가요?
댓글 '3'
![[레벨:30]](http://www.abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:141971point, 레벨:30/30"){kind=icon}
아별신강현님..
일단 코딩이 간결하지 못하고 불필요한 코딩이 많네요..
아래처럼 For문은 1번만 돌리셔도 충분합니다.
마음 같아서는.. 학생 데이터를 복사해서 붙여넣고 나머지는 수식을 한번에 채우는 코딩을 해드리고 싶지만..
일단 이정도를 습득하시고 다음 단계를 생각해보지요..
다운받기 : Book1.xlsm
Private Sub Worksheet_Activate()
Dim i As Long
Sheet5.Range("b1:g300").Clear
Sheet5.Range("b1:g1") = Array("이름", "신청학점", "전학기신청학점", "차트1", "max", "min")
For i = 2 To Sheet2.Range("b1048576").End(xlUp).Row
Sheet5.Cells(i, 2) = Sheet2.Cells(i, 2)
Sheet5.Cells(i, 3) = Sheet2.Cells(i, 10)
Sheet5.Cells(i, 4) = Sheet2.Cells(i, 12)
Sheet5.Cells(i, 5) = Sheet5.Cells(i, 4) - Sheet5.Cells(i, 3)
Sheet5.Cells(i, 6) = "=if(c" & i & "=$i$1" & ",c" & i & ",#N/A)"
Sheet5.Cells(i, 7) = "=if(c" & i & "=$j$1" & ",c" & i & ",#N/A)"
Next
End Sub
오피스 문제엿네요 .ㅠㅠ
오피스를 다시까니 되엇네요.ㅠㅠ