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:

 

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 for 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.

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.

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

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.

Dewiswch gelloedd ar hap yn seiliedig ar feini prawf yn Excel

Ychwanegwch liw cefndir / llenwi ar hap ar gyfer celloedd yn Excel