Skip i'r prif gynnwys

Sut i gynhyrchu'r holl rifau cysefin rhwng dau rif penodol yn Excel?

Yn Excel, a ydych erioed wedi ceisio rhestru'r holl rifau cysefin rhwng dau rif penodol? Yr erthygl hon, byddaf yn siarad am rai dulliau diddorol i ddelio â'r dasg hon.

Cynhyrchu pob rhif cysefin rhwng dau rif penodol gyda fformwlâu

Cynhyrchu pob rhif cysefin rhwng dau rif penodol gyda Swyddogaeth Diffiniedig Defnyddiwr

swigen dde glas saeth Cynhyrchu pob rhif cysefin rhwng dau rif penodol gyda fformwlâu

Cyfuno'r Diffinio Enw swyddogaeth a fformwlâu, gallwch restru neu gynhyrchu'r holl rifau cysefin rhwng y ddau rif penodol. Gwnewch fel a ganlyn:

1. Crëwch enw'r amrediad cyntaf trwy glicio Fformiwlâu > Rheolwr Enw, ac yn y Rheolwr Enw blwch deialog, cliciwch Nghastell Newydd Emlyn botwm, gweler y screenshot:

rhestr doc rhifau cysefin 1

2. Yn y Enw Newydd blwch deialog, yn y Enw blwch testun, nodwch rng fel enw'r amrediad, ac yna nodwch y fformiwla hon: = ROW (INDIRECT (Sheet1! $ B $ 1 & ":" & Sheet1! $ B $ 2)) (Sheet1 yw'r daflen waith gyfredol a ddefnyddiwyd gennych, B1 ac B2 yw'r rhifau cychwyn a gorffen a nodwyd gennych) i mewn i'r Yn cyfeirio at blwch testun, yna cliciwch OK botwm i ddychwelyd i'r hen ymgom. Gweler y screenshot:

rhestr doc rhifau cysefin 2

3. Ewch ymlaen i glicio Nghastell Newydd Emlyn botwm i greu enw amrediad arall, yn y Enw Newydd blwch deialog, nodwch enw prif i mewn i'r Enw blwch testun, ac yna nodwch y fformiwla hon: =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 yw'r enw amrediad cyntaf i chi ei greu yng ngham 2) i mewn i'r Yn cyfeirio at blwch testun, gweler y screenshot:

rhestr doc rhifau cysefin 3

4. Yna cliciwch OK a chau'r dialogau, a dewis un golofn rydych chi am restru'r holl rifau cysefin, a nodi'r fformiwla hon: = IFERROR (cysefin, "")(prif yw'r enw amrediad a grëwyd gennych yng ngham 3) i'r bar fformiwla, ac yna pwyswch CTRL+SHIFT+ENTER allweddi gyda'i gilydd, rhestrir yr holl rifau cysefin rhwng y ddau rif a roddir fel y llun a ddangosir isod:

rhestr doc rhifau cysefin 4

swigen dde glas saeth Cynhyrchu pob rhif cysefin rhwng dau rif penodol gyda Swyddogaeth Diffiniedig Defnyddiwr

Os yw'r dull cyntaf ychydig yn anodd, yma, gallwch gymhwyso a Swyddogaeth Diffiniedig Defnyddiwr i'w ddatrys.

1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.

Cod VBA: Cynhyrchwch yr holl rifau cysefin rhwng dau rif penodol:

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. Yna arbedwch a chau'r cod hwn, ewch yn ôl i'r daflen waith, nodwch y fformiwla hon: = cysefin (10,100) (10 yw'r rhif cychwyn, a 100 yw'r rhif diwedd yr ydych am gael y rhifau cysefin rhyngddo, gallwch eu newid i'ch angen), ac yna pwyso Rhowch allwedd, ac mae'r holl rifau cysefin yn cael eu harddangos i mewn i un gell, gweler y screenshot:

rhestr doc rhifau cysefin 5

Offer Cynhyrchiant Swyddfa Gorau

Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog  |   VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr   |  Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd   |  Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau:  12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for Excel Yn cynnig dros 300 o nodweddion uwch i hybu cynhyrchiant ac arbed amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

tab kte 201905

Office Tab Yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
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