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
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:
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:
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:
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:
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:
Offer Cynhyrchiant Swyddfa Gorau
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...
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!
