콘텐츠

• 지침
• 어떻게
• 필요한 것

소수는 제수로 숫자 1과 숫자 자체 만 갖습니다. 예를 들어 13은 제수 1과 13 만 있기 때문에 소수입니다. 모든 숫자는 소수의 곱으로 쓸 수 있습니다. 의사 결정 체계를 포함하여 소수를 찾는 데 필요한 많은 도구가 있습니다. Excel 2007에서 매크로를 쉽게 추가하여 의사 결정 프로세스의 일부를 대체 할 수 있습니다. 매크로는 자신 만의 버튼으로 Excel을 사용자 정의 할 수있는 도구입니다. 여기서는 요인을 계산하는 버튼입니다. 매크로를 추가하고 나면 숫자를 입력하기 만하면 Excel에서 요인을 계산합니다.

지침

Excel을 사용하여 소수 요소와 수식 찾기 (Fotolia.com에서 폴 햄튼에 의해 번호 이미지)

1. 모든 통합 문서를 닫고 새 Excel 워크 시트를 시작하십시오. "Alt + F11"키를 눌러 기본 비주얼 편집기를 시작하십시오.

2. 워크 시트를 열려면 화면 왼쪽 상단의 VBAProject 메뉴에서 통합 문서를 두 번 클릭하십시오.

3. 잘라 내기 및 빈 통합 문서에 다음 코드를 붙여 넣습니다.

   Sub GetFactors () 정수로 희석 Dim NumToFactor 단일 정수로 <32768로 제한 희미한 인자로 단일 Dim 및 단일 Dim IntCheck As Single

   개수 = 0 NumToFactor = _ Application.InputBox (프롬프트 : = "유형 정수", 유형 : = 1) '0보다 큰 정수를 강제로 입력하십시오.' 0 - 취소를 허용합니다. ElseIf NumToFactor <1 Then MsgBox "0보다 큰 정수를 입력하십시오." ElseIf IntCheck> 0 Then MsgBox "정수를 입력하십시오 - 십진수는 없습니다." End If 'Loop While NumToFactor <= 0 또는 IntCheck> 0 For To = NumToFactor'검사중인 정수를 나타내는 상태 표시 줄에 메시지를 입력하십시오. Application.StatusBar = "Checking"& y Factor = NumToFactor Mod and 'Mod로 나눈 결과가 나머지 요소가 없기 때문에 결과를 결정합니다. If Factor = 0 Then '활성 셀로 시작하는 열에 인수를 입력하십시오. ActiveCell.Offset (Count, 0) .Value = y '다음 값에 대해 상쇄 할 양을 늘립니다. Count = Count + 1 End if Next '상태 표시 줄 복원 Application.StatusBar = "Ready"End Sub

   
   

   Sub GetPrime () Dim Count As Integer Dim BegNum As Single '정수는 <32768로 제한됩니다. Dim EndNum Single Dim Prime As Single Dim 플래그 Integer Dim IntCheck As Single Count = 0

   입력 BegNum = _ Application.InputBox (프롬프트 : = "유형 시작 번호.", 유형 : = 1) '0보다 큰 정수의 항목을 강제. IntCheck = BegNum - Int (BegNum) BegNum = 0 인 경우 Exit Sub'Cancel 0 - 취소를 허용합니다. ElseIf BegNum <1 Then MsgBox "0보다 큰 정수를 입력하십시오." ElseIf IntCheck> 0 Then MsgBox "정수를 입력하십시오 - 십진수는 없습니다." End If '0보다 큰 정수가 입력 될 때까지 반복 루프 BegNum <= 0 또는 IntCheck> 0

   EndNum = _ Application.InputBox (프롬프트 : = "끝나는 숫자 입력", 유형 : = 1) '0보다 큰 정수 입력 강제 IntCheck = EndNum - Int (EndNum) EndNum = 0 인 경우 Exit Sub'Cancel 0 - 취소를 허용합니다. ElseIf EndNum <BegNum Then MsgBox ""& BegNum ElseIf EndNum <1 Then MsgBox "보다 큰 정수를 입력하십시오."0보다 큰 정수를 입력하십시오. " ElseIf IntCheck> 0 Then MsgBox "정수를 입력하십시오 - 십진수는 없습니다." End If '0보다 큰 정수가 입력 될 때까지 반복합니다. EndNum 동안 반복 <BegNum 또는 EndNum <= 0 또는 IntCheck> 0

   
   

   y = BegNum To EndNum 플래그 = 0 z = 1 Do not until flag = 1 또는 z = y + 1 '각 루프의 정수와 제수를 나타내는 상태 표시 줄에 메시지를 입력하십시오. Application.StatusBar = y & "/"& z 프라임 = y Mod z 프라임 = 0 그리고 z <> y 그리고 z <> 1 그런 다음 플래그 = 1 끝 z = z + 1 루프

   If flag = 0 Then '활성 셀로 시작하는 열에 인수를 입력하십시오. ActiveCell.Offset (Count, 0) .Value = y '다음 값에 대해 상쇄 할 양을 늘립니다. Count = Count + 1 End If 다음 및 '상태 표시 줄 복원. Application.StatusBar = "준비"End Sub

4. "파일"을 클릭 한 다음 "닫기 및 Microsoft Excel 돌아 가기"를 선택하십시오.

5. Excel에서 Microsoft Office 단추를 클릭하십시오. "Excel 옵션", "사용자 정의"를 클릭 한 다음 "선택"명령에서 "매크로"를 선택하십시오.

6. 목록에서 "ThisWorkbook.GetFactors"매크로를 클릭 한 다음 "추가"를 클릭하십시오. "확인"을 클릭하십시오. 이 작업을 수행하면 Excel의 왼쪽 위에있는 빠른 액세스 도구 모음에 매크로가 추가됩니다.

7. 데이터를 표시 할 셀을 선택하십시오.

8. 신속 접근 도구 막대에서 매크로 버튼을 클릭하십시오. 프라임 인수를 찾으려는 번호를 입력하십시오. Excel은 선택한 열의 모든 요소 (소수 및 종족 포함) 목록을 반환합니다. 예를 들어, 30의 요인은 1,2,3,5,6,10,15 및 30입니다.

9. 제공된 목록에서 소수를 선택하십시오. 목록에있는 소수는 2,3입니다. 이것은 주어진 숫자의 주요 요인입니다.

어떻게

• 엑셀이 당신을위한 부서를 계산하게하십시오. 직접 계산하는 것이 아니라 요인을 반환하는 셀에 관련 방정식을 추가합니다.

필요한 것

• Excel 2007