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

Ինչպե՞ս առաջացնել բոլոր պարզ թվերը 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


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

Excel-ի համար Kutools-ը լուծում է ձեր խնդիրների մեծ մասը և բարձրացնում ձեր արտադրողականությունը 80%-ով

  • Վերաօգտագործել: Արագ տեղադրեք բարդ բանաձևեր, գծապատկերներ և այն ամենը, ինչ դուք նախկինում օգտագործել եք. Ryածկագրել բջիջները գաղտնաբառով; Ստեղծեք փոստային ցուցակ և նամակներ ուղարկել ...
  • Super Formula Bar (հեշտությամբ խմբագրեք տեքստի և բանաձևի բազմաթիվ տողեր); Ընթերցանության դասավորությունը (հեշտությամբ կարդալ և խմբագրել մեծ թվով բջիջներ); Տեղադրել ֆիլտրացված տիրույթում...
  • Միաձուլել բջիջները / տողերը / սյունակները առանց տվյալների կորստի. Պառակտված բջիջների պարունակությունը; Միավորել կրկնօրինակ տողերը / սյունակները... Կանխել կրկնօրինակ բջիջները; Համեմատեք միջակայքերը...
  • Ընտրեք Կրկնօրինակ կամ Եզակի Շարքեր; Ընտրեք դատարկ շարքեր (բոլոր բջիջները դատարկ են); Super Find և Fuzzy Find շատ աշխատանքային գրքույկներում; Պատահական ընտրություն ...
  • Actշգրիտ պատճեն Բազմաթիվ բջիջներ ՝ առանց բանաձևի հղումը փոխելու; Ավտոմատ ստեղծեք հղումներ դեպի մի քանի թերթեր; Տեղադրեք փամփուշտներ, Տուփեր և ավելին ...
  • Քաղվածք տեքստ, Տեքստ ավելացնել, հեռացնել ըստ դիրքի, Հեռացնել տարածությունը; Ստեղծել և տպել էջային ենթագոտիներ; Փոխարկել բջիջների բովանդակության և մեկնաբանությունների միջև...
  • Սուպեր զտիչ (պահպանել և կիրառել ֆիլտրի սխեմաները այլ թերթերի վրա); Ընդլայնված տեսակավորում ըստ ամիս / շաբաթ / օր, հաճախականություն և ավելին; Հատուկ զտիչ համարձակ, շեղատառով ...
  • Միավորել աշխատանքային տետրերը և աշխատանքային թերթերը; Միավորել աղյուսակները ՝ հիմնված հիմնական սյունակների վրա; Տվյալները բաժանեք մի քանի թերթերի; Խմբաքանակի փոխակերպում xls, xlsx և PDF...
  • Ավելի քան 300 հզոր հատկություններ. Աջակցում է Office / Excel 2007-2021 և 365: Աջակցում է բոլոր լեզուներին: Հեշտ տեղակայում ձեր ձեռնարկությունում կամ կազմակերպությունում: Ամբողջական հնարավորություններ 30-օրյա անվճար փորձարկում: 60-օրյա գումարի վերադարձի երաշխիք:
kte էջանիշը 201905

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

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
officetab ներքևում
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (3)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
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 ab Այնուհետեւ Ելք այլ կերպ, եթե a = b Այնուհետեւ primenumbers = հիմնական թվեր & " " & a End If End If Next b Հաջորդը a MsgBox primenumbers End Subfunction primenumbersbetween(starting_number, last_number) primenumbers = "" For a = starting_number To last_number For b = 2 a Եթե a - b * Int(a / b) = 0 Եվ ab, ապա Ելք այլ կերպ, եթե a = b Այնուհետև primenumbers = հիմնական թվեր & " " & a End If End If Next b Հաջորդը a primenumbersbetween = սկզբնական թվերի Վերջ Գործառույթը ստուգելու համար, թե արդյոք թիվն պարզ է Sub ISPRIME() number_to_be_checked = 102 'մուտքագրել արժեք այստեղ For b = 2 To number_to_be_checked Եթե համարը_to_be_checked - b * Int(number_to_be_checked / b) = 0 Եվ _ number_to_be_checked b Այնուհետեւ «No Prime» «ExBoxit "No Prime ". Sub Else If number_to_be_checked = b Այնուհետեւ MsgBox «Prime» End If End If Next b End S ub 'ստուգելու համար, թե արդյոք թիվը պարզ է Ֆունկցիան 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 Այնուհետեւ «Not ISPRIME2. Բաժանվում է « & b-ի «Ելք» ֆունկցիան Else If number_to_be_checked = b Այնուհետեւ ISPRIME2 = «Prime» Վերջ, եթե Վերջ Եթե Հաջորդը b End ֆունկցիա
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել




Վերջ Sub

Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
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 cb Ապա Դուրս եկեք այլ կերպ, եթե b = c Այնուհետև հիմնական թվեր = հիմնական թվեր & " " & a Exit For Else If Round(a / (b + 1)) + 1 > b Այնուհետեւ c = Round(a / (b + 1)) + 1 End If End If End Եթե ​​հաջորդը b Հաջորդը a MsgBox հիմնական թվերը Վերջ ենթաֆունկցիան PRIMENUMBERSBETWEEN3(սկզբնական_համար, վերջին_համար) primenumbers = "" For a = starting_number To last_number c = a For b = 2 To c Եթե a Mod b = 0 Եվ cb Ապա Դուրս եկեք այլ կերպ, եթե b = c Այնուհետեւ հիմնական թվեր = հիմնական թվեր & " " & a Exit For Else If Round(a / (b + 1)) + 1 > b Այնուհետեւ c = Round(a / (b + 1)) + 1 End If End If End If Next b Հաջորդը a PRIMENUMBERSBETWEEN3 = սկզբնական թվեր Վերջ ֆունկցիա Ենթա ISPRIME3() number_to_be_checked = 15485863 'մուտքագրել արժեքն այստեղ c = number_to_be_checked For b = 2 To c Եթե number_to_be_checked Mod b = 0 And cb "Not Disgible by &Box.Ելք Sub Else If b = c Ապա MsgBox «Prime» Exit Sub Else If Round(number_to_be_checked / (b + 1)) + 1 > b Այնուհետեւ c = Round(number_to_be_checked / (b + 1)) + 1 End If End If End Եթե ​​Հաջորդը b Վերջ Ենթ
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր

Հետեւեք մեզ

Հեղինակային իրավունքի © 2009 - www.extendoffice.com. | Բոլոր իրավունքները պաշտպանված են. Powered by ExtendOffice. | | Կայքի քարտեզ
Microsoft- ը և Office- ի պատկերանշանը հանդիսանում են Microsoft Corporation- ի ապրանքային նշաններ կամ գրանցված ապրանքային նշաններ ԱՄՆ-ում և (կամ) այլ երկրներում:
Պաշտպանված է Sectigo SSL- ի կողմից