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

Sut i gynhyrchu rhifau loteri yn rhagori?

Ydych chi erioed wedi meddwl cynhyrchu rhifau loteri yn Excel, neu wneud generadur rhif loteri yn Excel gennych chi'ch hun? Yn yr erthygl hon, rwy'n darparu tri dull i chi ei wneud yn hawdd.


Cynhyrchu rhifau loteri gyda Swyddogaethau Excel

Bydd y dull hwn yn eich arwain trwy gymhwyso sawl swyddogaeth Excel i gynhyrchu rhifau loteri. A gallwch chi wneud fel a ganlyn:

1. Mewn taflen waith wag, teipiwch benawdau colofnau yn Ystod A1: C1 fel y dangosir isod y sgrinlun:

2. Rhowch fformwlâu yng Ngholofn A, Colofn B, a Cholofn C:

(1) Yng Nghell A2, nodwch y fformiwla = RAND (), ac yna llusgwch y ddolen Llenwi i'r ystod A2: A50.
(2) Yng Nghell B2, nodwch y fformiwla =RANK($A2,$A$2:$A$50)+COUNTIF(B$1:B1,B1)-1, ac yna llusgwch y Llenwi Trin i'r Ystod B2: B50. (Yn y fformiwla, A2 yw'r rhif ar hap sydd ar ôl i'r gell gyfredol, $ A $ 2: $ A $ 50 yw pob rhif ar hap a gawsom gyda'r fformiwla gyntaf, B $ 1 yw'r gell gyntaf yng Ngholofn B, a B1 yw'r gell uwchlaw'r cerrynt. cell).
(3) Yn Ystod C2: C50, nodwch rifau dilyniant o 1 i 49.

Yna fe gewch fwrdd fel y dangosir ar y sgrin chwith:

 

rhuban nodyn Mae fformiwla yn rhy gymhleth i'w gofio? Cadwch y fformiwla fel cofnod Testun Auto i'w ailddefnyddio gyda dim ond un clic yn y dyfodol!
Darllen mwy…     Cyfnod treialu am ddim

3. Dewch o hyd i ystod wag, teipiwch rifau dilyniant yn llorweddol yn olynol fel y dangosir isod y sgrinlun:

4. O dan y rhif dilyniant cyntaf o 1, nodwch y fformiwla = VLOOKUP (G1, $ B $ 1: $ C $ 50,2, ANWIR) i mewn iddo, a llusgwch y Llenwi Trin i'r Ystod sydd ei angen arnoch chi.

Nodyn: Yn y fformiwla hon, G1 yw'r gell gyda'r rhif dilyniant cyntaf o 1, $ B $ 1: $ C $ 50 yw colofn Safle Unigryw a cholofn Rhif Pêl, mae 2 yn golygu dod o hyd i werthoedd yn ail golofn Ystod $ B $ 1: $ C $ 50 .

Yna fe welwch rifau'r loteri fel y dangosir isod y sgrinlun:

5. Mae'n ddewisol. Er mwyn atal rhifau'r loteri rhag newid yn awtomatig pan fydd y daflen waith gyfredol yn adnewyddu, gallwch glicio ar y Fformiwla > Opsiynau Cyfrifo > Â Llaw.

Rhestrwch yn hawdd yr holl gyfuniad o sawl cyfres o ddata yn Excel

Kutools ar gyfer Excel's Rhestrwch Pob Cyfuniad mae cyfleustodau wedi'i gynllunio i gyffredinolu'r holl gyfuniadau posibl o sawl cyfres benodol o ddata, a rhestru'r cyfuniadau hyn mewn colofn fel y dangosir isod y llun. Nodwedd Llawn Am Ddim Treial 30-diwrnod!
fel rhestrwch yr holl gyfuniadau 1

Kutools ar gyfer Excel - Yn cynnwys mwy na 300 o offer defnyddiol ar gyfer Excel. Treial nodwedd lawn am ddim 30 diwrnod, nid oes angen cerdyn credyd! Get It Now

Cynhyrchu rhifau loteri gyda VBA Macro

Bydd y dull hwn yn eich tywys i gymhwyso macro VBA i gynhyrchu rhifau loteri yn Excel. Gwnewch fel a ganlyn:

1. Gwasgwch Alt + F11 allweddi i agor ffenestr Microsoft Visual Basic for Applications.

2. Cliciwch Mewnosod > Modiwlau i agor ffenestr modiwl newydd, a'i gludo gan ddilyn y cod VBA ynddo:

VBA: Generadur Rhif y Loteri yn Excel

Sub LotteyCode()
Dim Rng As Range
Dim WorkRng As Range
Dim xNumbers(49) As Integer
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Out put to (single cell):", xTitleId, WorkRng.Address, Type:=8)
Set WorkRng = WorkRng.Range("A1")
For xIndex = 1 To 49
xNumbers(xIndex) = xIndex
Next
For xIndex = 1 To 6
xNum = 1 + Application.Round(Rnd * (49 - xIndex), 0)
WorkRng.Offset(0, xIndex - 1).Value = xNumbers(xNum)
xNumbers(xNum) = xNumbers(50 - xIndex)
Next
End Sub

3. Gwasgwch y F5 allwedd neu cliciwch y Run botwm i redeg y macro VBA hwn.

4. Nawr yn y blwch deialog popio i fyny, nodwch gell i allbwn rhifau'r loteri, a chliciwch ar y OK botwm.

Yna fe welwch 6 rhif loteri unigryw yn cael eu cynhyrchu a'u harddangos yn y celloedd penodedig.


Cynhyrchu rhifau loteri gyda Kutools ar gyfer Excel

Os oes gennych Kutools for Excel wedi'i osod, mae ei Mewnosod Data ar Hap gall cyfleustodau eich helpu i gynhyrchu rhifau loteri yn Excel ar unwaith.

Kutools ar gyfer Excel - Yn cynnwys mwy na 300 o offer defnyddiol ar gyfer Excel. Treial nodwedd lawn am ddim 30 diwrnod, nid oes angen cerdyn credyd! Treial Am Ddim Nawr!

1. Dewiswch 6 cell gyfagos, fel A1: F1, ac yna cliciwch ar y Kutools > Mewnosod > Mewnosod Data ar Hap.

2. Nawr mae'r blwch deialog Mewnosod Data ar Hap yn dod allan. Ewch i'r Cyfanrif tab, math 1 in O blwch, math 49 in I blwch, gwiriwch y Gwerthoedd unigryw opsiwn, a chliciwch ar y OK botwm. Nawr fe welwch 6 rhif loteri unigryw yn cael eu cynhyrchu a'u harddangos yn y celloedd a ddewiswyd ar unwaith.

Kutools ar gyfer Excel - Yn cynnwys mwy na 300 o offer defnyddiol ar gyfer Excel. Treial nodwedd lawn am ddim 30 diwrnod, nid oes angen cerdyn credyd! Get It Now


Demo: cynhyrchu rhifau loteri gyda Kutools ar gyfer Excel


Kutools ar gyfer Excel yn cynnwys mwy na 300 o offer defnyddiol ar gyfer Excel, am ddim i roi cynnig arnynt heb gyfyngiad mewn 30 diwrnod. Dadlwythwch a Threial Am Ddim Nawr!

Erthyglau cysylltiedig:


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 Swyddfa / Excel 2007-2019 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 (12)
Wedi graddio 5 allan o 5 · Graddfeydd 1
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwnewch yn hawdd dod o hyd i ssoftware
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Byddaf yn hoffi ennill rhywfaint o rif lwc
Lleihawyd y sylw hwn gan y safonwr ar y wefan
: Hoffwn roi cynnig ar eich rhaglenni newydd weld sut mae'r niferoedd yn rhagweld
Lleihawyd y sylw hwn gan y safonwr ar y wefan
cyfrifo y diwrnod nesaf dyfalu ar gyfer kerala loteri
Lleihawyd y sylw hwn gan y safonwr ar y wefan
hay, Santanam wnaethoch chi bob ennill gyda'r rhaglen hon?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
cyfrifwch rif y loteri diwrnod nesaf ar gyfer loteri kerala - india
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Beth yw pwrpas COUNTIF(B$1:B1,B1)-1 yn y fformiwla yng ngham B?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Kim hyungsup,
Bydd COUNTIF(B$1:B1,B1)-1 yn atal dyblygiadau yng Ngholofn B. Er enghraifft, os yw'r B1 yn werth unigryw, bydd y rhan hon yn dychwelyd 0 na fydd yn effeithio ar ganlyniad y safle; os yw'r B1 yn ddyblyg, bydd y rhan hon yn addasu'r canlyniad graddio ychydig.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Rwyf wedi rhoi cynnig ar y ffordd Vlookup a ddangoswyd gennych yma mae'n gweithio'n wych ac mae'n hawdd cynhyrchu'r niferoedd ar gyfer yr ystod 1 i 49.

Ond roeddwn i'n meddwl dileu rhai rhifau mewn chwarae fel er enghraifft yn lle rhedeg rhifau bydd gen i 25 o rifau o 1 i 49. Sut bydd angen i mi addasu fformiwla Vlookup i wneud iddo weithio?
Wedi graddio 5 allan o 5
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Yogi, mae'n ddrwg gennyf nad wyf yn deall eich cais yn iawn. Beth ydych chi'n ei olygu wrth gael 25 rhif o 1 i 49?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Oes 25 rhif o 1 i 49.
Rwyf wedi ceisio defnyddio'r un fformiwla ond unwaith y bydd rhif sy'n fwy na 25 wedi'i ddewis ni ellir dangos y rhif nesaf yn y dilyniant ac mae gwall yn digwydd.
Wedi graddio 5 allan o 5
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch Amanda am eich cymorth.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir