메인 컨텐츠로 가기

Excel에서 주어진 두 숫자 사이의 모든 소수를 생성하는 방법은 무엇입니까?

Excel에서 주어진 두 숫자 사이의 모든 소수를 나열하려고 시도한 적이 있습니까? 이 기사에서는이 작업을 처리하는 몇 가지 흥미로운 방법에 대해 설명합니다.

수식을 사용하여 주어진 두 숫자 사이의 모든 소수 생성

사용자 정의 함수를 사용하여 주어진 두 숫자 사이의 모든 소수 생성


화살표 블루 오른쪽 거품 수식을 사용하여 주어진 두 숫자 사이의 모든 소수 생성

결합 이름 정의 함수 및 공식을 사용하면 두 특정 숫자 사이의 모든 소수를 나열하거나 생성 할 수 있습니다. 다음과 같이하십시오 :

1. 클릭하여 첫 번째 범위 이름을 만드십시오. 방식 > 이름 관리자, 그리고 이름 관리자 대화 상자에서 신제품 버튼, 스크린 샷 참조 :

문서 목록 소수 1

2. 에서 새 이름 대화 상자에서 성함 텍스트 상자에 입력하십시오 RNG 범위 이름으로 입력하고 다음 수식을 입력합니다. = ROW (INDIRECT (시트 1! $ B $ 1 & ":"시트 1! $ B $ 2)) (Sheet1 현재 사용한 워크 시트입니다. B1B2 지정한 시작 및 끝 번호) 을 참고하여 텍스트 상자를 클릭 한 다음 OK 버튼을 눌러 이전 대화 상자로 돌아갑니다. 스크린 샷보기 :

문서 목록 소수 2

3. 클릭으로 이동 신제품 버튼을 눌러 다른 범위 이름을 만듭니다. 새 이름 대화 상자에 이름을 입력하십시오. 프라임성함 텍스트 상자를 클릭하고 다음 수식을 입력합니다. =SMALL(IF(MMULT(--(IF(rng>TRANSPOSE(rng-Sheet1!$B$1+2),MOD(rng,(rng>TRANSPOSE(rng-Sheet1!$B$1+2))*TRANSPOSE(rng-Sheet1!$B$1+2)))=0),rng-Sheet1!$B$1+2)=0,rng),ROW(INDIRECT("1:"&Sheet1!$B$2))) (RNG 2) 단계에서 만든 첫 번째 범위 이름입니다. 을 참고하여 텍스트 상자, 스크린 샷 참조 :

문서 목록 소수 3

4. 그런 다음 OK 대화 상자를 닫고 모든 소수를 나열 할 하나의 열을 선택하고 다음 공식을 입력하십시오. = IFERROR (프라임, "")(프라임 3) 단계에서 만든 범위 이름을 수식 입력 줄에 입력 한 다음 Ctrl + Shift + Enter 키를 함께 사용하면 주어진 두 숫자 사이의 모든 소수가 다음 스크린 샷과 같이 나열됩니다.

문서 목록 소수 4


화살표 블루 오른쪽 거품 사용자 정의 함수를 사용하여 주어진 두 숫자 사이의 모든 소수 생성

첫 번째 방법이 다소 어려울 경우 여기에서 사용자 정의 기능 그것을 해결하기 위해.

1. 누르고 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 딸깍 하는 소리 끼워 넣다 > 모듈을 클릭하고 다음 코드를 모듈 창문.

VBA 코드 : 두 개의 특정 숫자 사이에 모든 소수를 생성합니다.

Function PRIME(St, En As Long)
'Updateby Extendoffice 20160613
Dim num As String
For n = St To En
    For m = 2 To n - 1
        If n Mod m = 0 Then GoTo 20:
    Next m
    num = num & n & ","
20:
Next n
PRIME = num
End Function

3. 그런 다음이 코드를 저장하고 닫고 워크 시트로 돌아가서 다음 공식을 입력하십시오. = prime (10,100) (10 시작 번호이고 100 사이에 소수를 가져올 끝 번호입니다. 필요에 따라 변경할 수 있습니다.) 엔터 버튼 키, 모든 소수가 하나의 셀에 표시됩니다. 스크린 샷 참조 :

문서 목록 소수 5

최고의 사무 생산성 도구

인기 기능: 중복 항목 찾기, 강조 표시 또는 식별   |  빈 행 삭제   |  데이터 손실 없이 열이나 셀 결합   |   수식없이 반올림 ...
슈퍼 조회: 다중 기준 VLookup    다중 값 VLookup  |   여러 시트에 걸친 VLookup   |   퍼지 조회 ....
고급 드롭다운 목록: 드롭다운 목록을 빠르게 생성   |  종속 드롭다운 목록   |  다중 선택 드롭 다운 목록 ....
열 관리자: 특정 개수의 열 추가  |  열 이동  |  Toggle 숨겨진 열의 가시성 상태  |  범위 및 열 비교 ...
특색 지어진 특징: 그리드 포커스   |  디자인보기   |   큰 수식 바    통합 문서 및 시트 관리자   |  리소스 라이브러리 (자동 텍스트)   |  날짜 선택기   |  워크 시트 결합   |  셀 암호화/해독    목록으로 이메일 보내기   |  슈퍼 필터   |   특수 필터 (굵게/기울임꼴/취소선 필터링...) ...
상위 15개 도구 세트12 본문 도구 (텍스트 추가, 문자 제거,...)   |   50+ 거래차트 유형 (Gantt 차트,...)   |   40+ 실용 방식 (생일을 기준으로 나이 계산,...)   |   19 삽입 도구 (QR 코드 삽입, 경로에서 그림 삽입,...)   |   12 매출 상승 도구 (숫자를 단어로, 환율,...)   |   7 병합 및 분할 도구 (고급 결합 행, 셀 분할,...)   |   ... 그리고 더

Excel용 Kutools로 Excel 기술을 강화하고 이전과는 전혀 다른 효율성을 경험해 보세요. Excel용 Kutools는 생산성을 높이고 시간을 절약하기 위해 300개 이상의 고급 기능을 제공합니다.  가장 필요한 기능을 얻으려면 여기를 클릭하십시오...

kte 탭 201905


Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Sub generateprimenumbersbetween3() starting_number = 1 'input value here last_number = 10000 'input value here primenumbers = "" For a = starting_number To last_number c = a For b = 2 To c If a Mod b = 0 And c b Then Exit For Else If b = c Then primenumbers = primenumbers & " " & a Exit For Else If Round(a / (b + 1)) + 1 > b Then c = Round(a / (b + 1)) + 1 End If End If End If Next b Next a MsgBox primenumbers End Sub Function PRIMENUMBERSBETWEEN3(starting_number, last_number) primenumbers = "" For a = starting_number To last_number c = a For b = 2 To c If a Mod b = 0 And c b Then Exit For Else If b = c Then primenumbers = primenumbers & " " & a Exit For Else If Round(a / (b + 1)) + 1 > b Then c = Round(a / (b + 1)) + 1 End If End If End If Next b Next a PRIMENUMBERSBETWEEN3 = primenumbers End Function Sub ISPRIME3() number_to_be_checked = 15485863 'input value here c = number_to_be_checked For b = 2 To c If number_to_be_checked Mod b = 0 And c b Then MsgBox "Not Prime. Divisible by " & b Exit Sub Else If b = c Then MsgBox "Prime" Exit Sub Else If Round(number_to_be_checked / (b + 1)) + 1 > b Then c = Round(number_to_be_checked / (b + 1)) + 1 End If End If End If Next b End Sub
This comment was minimized by the moderator on the site
Sub generateprimenumbersbetween() starting_number = 1 'input value here last_number = 2000 'input value here primenumbers = "" For a = starting_number To last_number For b = 2 To a If a - b * Int(a / b) = 0 And a b Then Exit For Else If a = b Then primenumbers = primenumbers & " " & a End If End If Next b Next a MsgBox primenumbers End Sub Function primenumbersbetween(starting_number, last_number) primenumbers = "" For a = starting_number To last_number For b = 2 To a If a - b * Int(a / b) = 0 And a b Then Exit For Else If a = b Then primenumbers = primenumbers & " " & a End If End If Next b Next a primenumbersbetween = primenumbers End Function 'to check if a number is prime Sub ISPRIME() number_to_be_checked = 102 'input value here For b = 2 To number_to_be_checked If number_to_be_checked - b * Int(number_to_be_checked / b) = 0 And _ number_to_be_checked b Then MsgBox "Not Prime. Divisible by " & b Exit Sub Else If number_to_be_checked = b Then MsgBox "Prime" End If End If Next b End Sub 'to check if a number is prime Function ISPRIME2(number_to_be_checked) For b = 2 To number_to_be_checked If number_to_be_checked - b * Int(number_to_be_checked / b) = 0 And _ number_to_be_checked b Then ISPRIME2 = "Not Prime. Divisible by " & b Exit Function Else If number_to_be_checked = b Then ISPRIME2 = "Prime" End If End If Next b End Function
This comment was minimized by the moderator on the site
<p>



End Sub

</p>
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations