Note: The other languages of the website are Google-translated. Back to English

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


최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.
kte 탭 201905

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

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
코멘트 (3)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Sub generateprimenumbersbetween() starting_number = 1 '여기에 값을 입력하십시오. last_number = 2000 '여기에 값을 입력하십시오. primenumbers = "" For a = starting_number로 last_number에 대해 b = 2에 대해 a If a - b * Int(a / b) = 0 And ab then Exit For Else If a = b then primenumbers = primenumbers & " " & a End If End If Next b Next a MsgBox primenumbers End 하위 기능 primenumbers between(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 ab then Exit For Else If a = b then primenumbers = 소수 & " " & a End If End If Next b Next a 소수 사이 = 소수 End Function a 숫자는 소수입니다. Sub ISPRIME() number_to_be_checked = 102 '여기에 값을 입력하십시오. 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 " Sub Else If number_to_be_checked = b then MsgBox "Prime" End If End If Next b End Sub '숫자가 소수인지 확인하기 위해 함수 ISPRIME2(number_to_be_checked) For b = 2 to number_to_be_checked인 경우 number_to_be_checked - b * Int(number_to_be_checked / b) = 0 And _ number_to_be_checked b then ISPRIME2 = "소수가 아님. " & b로 나눌 수 있는 종료 기능 Else If number_to_be_checked = b Then ISPRIME2 = "프라임" End If End If End If Next b End 함수
이 댓글은 사이트의 중재자에 의해 최소화되었습니다




최종 하위

이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Sub generateprimenumbers between3() starting_number = 1 '여기에 값을 입력하십시오. last_number = 10000 '여기에 값을 입력하십시오. primenumbers = "" a = starting_number to last_number c = a For b = 2 To c If a Mod b = 0 And cb then Exit For Else If b = c then 소수 = 소수 & " " & a Exit For Else If Round(a / (b + 1)) + 1 > b Then c = Round(a / (b + 1)) + 1 End If End If End If 다음 b 다음 a MsgBox 소수 끝 하위 기능 PRIMENUMBERSBETWEEN3(starting_number, last_number) 소수 = "" For a = starting_number to last_number c = a For b = 2 To c If a Mod b = 0 And cb then Exit For Else If b = c then 소수 = 소수 & " " & a Exit For Else If Round(a / (b + 1)) + 1 > b Then c = Round(a / (b + 1)) + 1 End If End If End If End If Next b 다음 a PRIMENUMBERSBETWEEN3 = 소수 End Function Sub ISPRIME3() number_to_be_checked = 15485863 '여기에 입력 값 c = number_to_be_checked For b = 2 To c If number_to_be_checked Mod b = 0 And cb then MsgBox "" & 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 다음 b End Sub
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호