Private Sub cmd등록_Click()
기준행위치 = [b3].Row
기준범위행수 = [b3].CurrentRegion.Rows.Count
입력행 = 기준행위치 + 기준범위행수
Cells(입력행, 2) = 입력행 - 3 & txt이름
Cells(입력행, 3) = txt국어
Cells(입력행, 4) = txt영어
Cells(입력행, 5) = txt수학
Cells(입력행, 6) = Format((Val(txt국어) + Val(txt영어) + Val(txt수학)) / 3, "0.00")
Select Case Cells(입력행, 6)
Case Is <= 59
Cells(입력행, 7) = "가"
Case Is <= 69
Cells(입력행, 7) = "양"
Case Is <= 79
Cells(입력행, 7) = "미"
Case Is <= 89
Cells(입력행, 7) = "우"
Case Else
Cells(입력행, 7) = "수"
End Select
Cells(입력행, 8) = cmd성별.Caption
txt이름 = ""
txt국어 = ""
txt영어 = ""
txt수학 = ""
End Sub
----------------------------
질문1)
위 코드는 시나공에서 올려준 모범답안입니다.
그러나 실제로 실행을 해보면 아시겠지만 입력행이 12까지는 제대로 작동이 되나 그 후엔 바로 16으로 넘어가버립니다.
이유를 알려주세요~!
질문2)
dim y as string
처럼 변수 선언을 하고 변수를 사용해야 되는 것으로 알 고 있는데
위 예시처럼
기준행위치 = [b3].Row
와 같이 변수 선언을 따로 안하고 바로 변수명을 입력하는데 작동이 되는 이유는 무엇인가요?
12~16 행사이에 스페이스바를 눌렀거나 무엇인가 입력되어 있다면 이부분에 입력되지 않게 됩니다.
이부분 블록 지정한 후 삭제하고 다시 확인 해 보세요.
변수 선언을 하든 하지 않든 정확한 결과가 나오면 변수 선언을 하지 않아도 됩니다.
변수 선언은 변수를 어떤 형식으로 사용할지 정하여야 한다면 변수 선언을 해야 하지만
그렇지 않다면 그냥 사용하셔도 상관 없습니다.
좋은 하루 되세요.
-
*2015-08-01 02:13:03
12~16 행사이에 스페이스바를 눌렀거나 무엇인가 입력되어 있다면 이부분에 입력되지 않게 됩니다.
이부분 블록 지정한 후 삭제하고 다시 확인 해 보세요.
변수 선언을 하든 하지 않든 정확한 결과가 나오면 변수 선언을 하지 않아도 됩니다.
변수 선언은 변수를 어떤 형식으로 사용할지 정하여야 한다면 변수 선언을 해야 하지만
그렇지 않다면 그냥 사용하셔도 상관 없습니다.
좋은 하루 되세요.