Skip to main content

Conas na príomhuimhreacha go léir a ghiniúint idir dhá uimhir ar leith in Excel?

In Excel, an ndearna tú iarracht riamh na príomhuimhreacha go léir a liostáil idir dhá uimhir ar leith? An t-alt seo, labhróidh mé faoi roinnt modhanna suimiúla chun déileáil leis an tasc seo.

Cruthaigh na príomhuimhreacha go léir idir dhá uimhir ar leith le foirmlí

Cruthaigh na príomhuimhreacha go léir idir dhá uimhir ar leith le Feidhm Shainithe ag Úsáideoir

mboilgeog cheart gorm saighead Cruthaigh na príomhuimhreacha go léir idir dhá uimhir ar leith le foirmlí

Comhcheangail an Sainmhínigh Ainm feidhm agus foirmlí, is féidir leat gach ceann de na huimhreacha príomha a liostáil nó a ghiniúint idir an dá uimhir shonracha. Déan mar a leanas le do thoil:

1. Cruthaigh ainm an chéad raoin le do thoil trí chliceáil Foirmlí > Bainisteoir Ainm, agus sa Bainisteoir Ainm dialóg, cliceáil Nua cnaipe, féach ar an scáileán:

liosta doc uimhreacha príomha 1

2. Sa an Ainm Nua bosca dialóige, sa Ainm bosca téacs, iontráil le do thoil rng mar ainm an raoin, agus ansin cuir isteach an fhoirmle seo: = ROW (INDIRECT (Bileog1! $ B $ 1 & ":" & Bileog1! $ B $ 2)) (Sheet1 an bhfuil do bhileog oibre reatha a d'úsáid tú, B1 agus B2 is iad na huimhreacha tosaigh agus deiridh a shonraigh tú) isteach sa Tagraíonn bosca téacs, ansin cliceáil OK cnaipe chun filleadh ar an iar-dialóg. Féach an pictiúr:

liosta doc uimhreacha príomha 2

3. Téigh ar cliceáil Nua cnaipe chun ainm raon eile a chruthú, sa Ainm Nua bosca dialóige, cuir isteach ainm príomh- isteach sa Ainm bosca téacs, agus ansin cuir isteach an fhoirmle seo: =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 Is é an chéad ainm raon a chruthaigh tú i gcéim 2) isteach sa Tagraíonn bosca téacs, féach an pictiúr:

liosta doc uimhreacha príomha 3

4. Ansin cliceáil OK agus dún na dialóga, agus roghnaigh colún amháin ar mhaith leat na príomhuimhreacha go léir a liostáil, agus cuir isteach an fhoirmle seo: = IFERROR (príomha, "")(príomh- an t-ainm raon a chruthaigh tú i gcéim 3) isteach sa bharra foirmle, agus ansin brúigh CTRL+SHIFT+ENTER eochracha le chéile, liostaítear na príomhuimhreacha go léir idir an dá uimhir a thugtar mar an scáileán a leanas a thaispeántar:

liosta doc uimhreacha príomha 4

mboilgeog cheart gorm saighead Cruthaigh na príomhuimhreacha go léir idir dhá uimhir ar leith le Feidhm Shainithe ag Úsáideoir

Má tá an chéad mhodh deacair go leor, anseo, is féidir leat a Feidhm Sainithe ag an Úsáideoir chun é a réiteach.

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.

Cód VBA: Cruthaigh na príomhuimhreacha go léir idir dhá uimhir shonracha:

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. Ansin sábháil agus dún an cód seo, téigh ar ais chuig an mbileog oibre, iontráil an fhoirmle seo le do thoil: = príomha (10,100) (10 is é an uimhir tosaigh, agus 100 an uimhir dheiridh ar mhaith leat na huimhreacha príomha a fháil eatarthu, is féidir leat iad a athrú de réir do riachtanas), agus ansin brúigh Iontráil eochair, agus taispeántar na huimhreacha príomha go léir i gcill amháin, féach an scáileán:

liosta doc uimhreacha príomha 5

Uirlisí Táirgiúlachta Oifige is Fearr

🤖 Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
Cuardaigh Super: Ilchritéir VLookup  |   VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle   |  Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla   |  Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
Barr 15 Uirlisí:  12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Tuairisc

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
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