검색어 입력폼

[엑셀(VBA)] 소수구하기

등록일 2003.07.28 한글파일한글 (hwp) | 2페이지 | 가격 500원

목차

없음

본문내용

먼저 Label과 텍스트상자 명령단추를 이용해 유저폼을 만들어서 다음의 코드를 입력한다

Option Explicit

Private Sub cb2_Click() '창닫기 버튼
Unload uf1
End Sub
Private Sub cb1_Click() '입력버튼
If Not IsNumeric(tb1.Value) Then
MsgBox "숫자를 입력하시오"
Exit Sub
ElseIf tb1.Value <= 0 Then
MsgBox "음수는 계산할 수 없습니다"
Exit Sub
ElseIf tb1.Value <> CInt(tb1.Value) Then
MsgBox "실수는 계산할 수 없습니다"
Exit Sub
ElseIf tb1.Value = 1 Then
MsgBox "1은 소수도 합성수도 아닙니다."
다운로드 맨위로