1.입력 버튼 클릭 프로시저 작성부분요(제일 마지막문제)
아 자꾸 1004 런타임 오류라고 뜨면서 실행이 안되는데 왜그런거죠
파일첨부했습니다. 알려주세요...ㅠㅠ
2. 그리고 val함수로 묶어 줄때와 안 묶어 줄때는 어떤 경우로 나뉘는 거죠?
저는 val 함수로 묶어줬는데 해설지는 그렇게 안되어있네요
1. Public Sub 입력_Click() '(By KCheck) 원래코드: Private Sub 입력_Click()
입력행 = [a3].Row = [a3].CurrentRegion.Rows.Count
Cells(입력행, 1) = 영화명
Cells(입력행, 2) = 단가
Cells(입력행, 3) = 매수
Cells(입력행, 4) = Format(금액, "#,###")
Cells(입력행, 5) = Val(금액) * 0.1
Else
Cells(입력행, 5) = " "
End If
영화명 = ""
단가 = ""
매수 = ""
금액 = ""
End Sub
val은 문자로 받은 데이터을 숫자로 나타낼때 쓰이는 것입니다.
하지만 수량이나 단가는 대부분 숫자로 입력을 받습니다. 문자로 입력이 된다 하더라도 숫자의 형식을 가지고 있기 때문에 계산이 가능 합니다.
만약 val을 쓰지 않고도 계산이 가능 하다면 val을 사용 하지 않으 셔도 됩니다.
물론 사용 하셔도 되구요.
지시사항에 val를 꼭 사용 하라고 되어 있지 않고, val을 사용 하지 않아도 계산이 가능 하다면 val를 사용 하시지 않으셔도 됩니다.
좋은 하루 되세요.
-
*2011-10-10 12:38:12
1. Public Sub 입력_Click() '(By KCheck) 원래코드: Private Sub 입력_Click()
입력행 = [a3].Row = [a3].CurrentRegion.Rows.Count
Cells(입력행, 1) = 영화명
Cells(입력행, 2) = 단가
Cells(입력행, 3) = 매수
Cells(입력행, 4) = Format(금액, "#,###")If Val(금액) >= 40000 Then
Cells(입력행, 5) = Val(금액) * 0.1
Else
Cells(입력행, 5) = " "
End If
영화명 = ""
단가 = ""
매수 = ""
금액 = ""
End Sub입력행에 + 해주셔야 하는데 = 을 하셨네요. =을 + 로 변경하여 사용해 보세요.2."val은 문자로 받은 데이터을 숫자로 나타낼때 쓰이는 것입니다.
하지만 수량이나 단가는 대부분 숫자로 입력을 받습니다. 문자로 입력이 된다 하더라도 숫자의 형식을 가지고 있기 때문에 계산이 가능 합니다.
만약 val을 쓰지 않고도 계산이 가능 하다면 val을 사용 하지 않으 셔도 됩니다.
물론 사용 하셔도 되구요.
지시사항에 val를 꼭 사용 하라고 되어 있지 않고, val을 사용 하지 않아도 계산이 가능 하다면 val를 사용 하시지 않으셔도 됩니다.좋은 하루 되세요.