1. FAQ
  2. 엑셀(Excel)
  3. AfterEffects
  4. Premiere
  5. Photoshop
  6. ETC

엑셀에 대해서 궁금한 것이 있으시면 마음껏 질문해주세요.

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

[레벨:30]아별

2013.03.12 10:17

신강현님..


일단 코딩이 간결하지 못하고 불필요한 코딩이 많네요..

아래처럼 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



문서 첨부 제한 : 0Byte/ 2.00MB
파일 제한 크기 : 2.00MB (허용 확장자 : *.*)