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

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


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Office / Excel 2007-2021 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (3)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Is-generynprimenumbersbetween() starting_number = 1 'gwerth mewnbwn yma last_number = 2000 'gwerth mewnbwn yma rhifau cysefin =" Am a = starting_number I last_number Ar gyfer b = 2 I a Os a - b * Int(a / b) = 0 Ac ab Yna Gadael Ar Gyfer Arall Os a = b Yna rhifau cysefin = rhifau cysefin & " "& Diwedd Os Diwedd Os Nesaf b Nesaf a MsgBox rhifau cysefin Is-swyddogaeth Diwedd rhifau cysefin rhwng(starting_number, last_number) primenumbers="" Ar gyfer a = start_number I last_number Ar gyfer b = 2 I a Os a - b * Int(a / b) = 0 Ac ab Yna Gadael Am Arall Os a = b Yna rhifau cysefin = rhifau cysefin & " " & Diwedd Os Diwedd Os Nesaf b Nesaf a primenumbersbetween = rhifau cysefin Swyddogaeth Diwedd ' i wirio os mae rhif yn gysefin Is ISPRIME() number_to_be_checked = 102 'gwerth mewnbwn yma Ar gyfer b = 2 I number_to_be_checked Os number_to_be_checked - b * Int(number_to_be_checked / b) = 0 A _ number_to_be_checked b Yna MsgBox "Ddim yn Rhannadwy gan " & b Arall. Is Arall Os Nifer_to_be_checked = b Yna MsgBox "Prime" Diwedd Os Diwedd Os Nesaf b Diwedd Is 'i wirio a yw rhif yn gysefin Swyddogaeth ISPRIME2(number_to_be_checked) Ar gyfer b = 2 I number_to_be_checked Os number_to_be_checked - b * Int(number_to_be_checked / b) = 0 A _ number_to_be_checked b Yna ISPRIME2 = " Ddim yn Brif. Rhanadwy gan " & b Gadael Swyddogaeth Arall Os number_to_be_checked = b Yna ISPRIME2 = "Prime" Diwedd Os Diwedd Os Nesaf b Diwedd Swyddogaeth
Lleihawyd y sylw hwn gan y safonwr ar y wefan




Is-End

Lleihawyd y sylw hwn gan y safonwr ar y wefan
Is-genhedlaethprimenumbersbetween3() starting_number = 1 'gwerth mewnbwn yma last_number = 10000 'gwerth mewnbwn yma rhifau cysefin =" Am a = rhif cychwyn I last_number c = a Ar gyfer b = 2 To c Os Mod b = 0 A cb Yna Gadael Am Arall Os b = c Yna rhifau cysefin = rhifau cysefin & " " & Gadael Ar Gyfer Arall Os Rownd(a / (b + 1)) + 1 > b Yna c = Rownd(a / (b + 1))) + 1 Diwedd Os Diwedd Os Diwedd Os Nesaf b Nesaf a MsgBox rhifau cysefin Is-swyddogaeth Diwedd PRIMENUMBERSBETWEEN3(starting_number, last_number) primenumbers = " Am a = rhif cychwyn I last_number c = a Ar gyfer b = 2 I c Os Mod b = 0 A cb Yna Gadael Am Arall Os b = c Yna rhifau cysefin = rhifau cysefin & " " & Gadael Ar Gyfer Arall Os Rownd(a / (b + 1)) + 1 > b Yna c = Rownd(a / (b + 1))) + 1 Diwedd Os Diwedd Os Diwedd Os Nesaf) b Nesaf a PRIMENUMBERSBETWEEN3 = rhifau cysefin Swyddogaeth Gorffen Is ISPRIME3() number_to_be_checked = 15485863 'gwerth mewnbwn yma c = number_to_be_checked Ar gyfer b = 2 I c Os number_to_be_checked Mod b = 0 A cb Yna MsgBox "Ddim yn Rhannadwy gan" & b.Gadael Is Arall Os b = c Yna MsgBox "Prime" Gadael Is Arall Os Rownd(number_to_be_checked / (b + 1)) + 1 > b Yna c = Rownd(number_to_be_checked / (b + 1))) + 1 Diwedd Os Diwedd Os Diwedd Os Nesaf b Diwedd Is
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL