Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս առաջացնել բոլոր պարզ թվերը Excel- ում տրված երկու թվերի միջև:

Excel- ում երբևէ փորձե՞լ եք բոլոր տրված թվերը թվարկել երկու տրված թվերի միջև: Այս հոդվածում ես կխոսեմ այս խնդրի լուծման մի քանի հետաքրքիր մեթոդների մասին:

Տրված բանաձևերով երկու տրված թվերի միջև առաջացրու բոլոր պարզ թվերը

Օգտատիրոջ կողմից սահմանված գործառույթով առաջացրեք բոլոր պարզ թվերը երկու տրված թվերի միջև

նետ կապույտ աջ պղպջակ Տրված բանաձևերով երկու տրված թվերի միջև առաջացրու բոլոր պարզ թվերը

Համատեղելով Սահմանեք անունը գործառույթը և բանաձևերը, դուք կարող եք թվարկել կամ առաջացնել բոլոր պարզ թվերը երկու հատուկ թվերի միջև: Խնդրում ենք անել հետևյալը.

1, Խնդրում ենք ստեղծել առաջին տիրույթի անունը ՝ կտտացնելով Բանաձեւեր > Անունը կառավարիչ, եւ Անունը կառավարիչ երկխոսության վանդակում, սեղմեք նոր կոճակը, տես նկարի նկարը.

doc ցուցակի պարզ համարներ 1

2, Մեջ Նոր անուն երկխոսության վանդակում, Անուն տեքստային տուփ, խնդրում ենք մուտքագրել rng որպես միջակայքի անուն, ապա մուտքագրեք այս բանաձևը. = ROW (INDIRECT (Sheet1! $ B $ 1 & ":" & Sheet1! $ B $ 2)) (Sheet1 ձեր ընթացիկ աշխատանքային թերթն է, որը դուք օգտագործել եք, B1 և B2 ձեր նշած սկզբի և վերջի համարներն են Վերաբերում է տեքստային տուփ, ապա կտտացրեք OK նախկին երկխոսությանը վերադառնալու կոճակը: Տեսեք,

doc ցուցակի պարզ համարներ 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-ում) մեջ Վերաբերում է տեքստային տուփ, տես նկարի նկարը.

doc ցուցակի պարզ համարներ 3

4. Այնուհետեւ կտտացրեք OK փակեք երկխոսությունները և ընտրեք մեկ սյունակ, որը ցանկանում եք թվարկել բոլոր հիմնական համարները և մուտքագրել այս բանաձևը. = IFERROR (պարզ, "")(վարչապետ միջակայքի անունն է, որը դուք ստեղծել եք 3-րդ քայլում) բանաձևի շարքում և սեղմել CTRL+SHIFT+ENTER ստեղները միասին, տրված երկու թվերի միջև բոլոր պարզ թվերը թվարկված են որպես ցույց տրված հետևյալ նկարը.

doc ցուցակի պարզ համարներ 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, Ապա պահեք և փակեք այս կոդը, վերադառնաք աշխատանքային թերթ, խնդրում ենք մուտքագրել այս բանաձևը. = պարզ (10,100) (10 մեկնարկային համարն է, և 100 վերջն թիվն է, որի միջև ուզում եք պարզ թվեր ստանալ, կարող եք դրանք փոխել ըստ ձեր կարիքի), ապա սեղմել Մտնել ստեղնը, և բոլոր պարզ համարները ցուցադրվում են մեկ բջիջում, տես նկարի նկարը.

doc ցուցակի պարզ համարներ 5

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup  |   Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar   |  Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները   |  Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու:  12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (3)
No ratings yet. Be the first to rate!
John Kennedy Aquino
John Kennedy Aquino
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
Reply
0
0
John Kennedy Aquino
John Kennedy Aquino
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
Reply
0
0
Lakshmi
Lakshmi     John Kennedy Aquino
This comment was minimized by the moderator on the site
<p>



End Sub

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