[엑셀(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은 소수도 합성수도 아닙니다."
      최근 구매한 회원 학교정보 보기
      1. 최근 2주간 다운받은 회원수와 학교정보이며
         구매한 본인의 구매정보도 함께 표시됩니다.
      2. 매시 정각마다 업데이트 됩니다. (02:00 ~ 21:00)
      3. 구매자의 학교정보가 없는 경우 기타로 표시됩니다.
      최근 본 자료더보기
      추천도서