Bu yöntem, piyango numaraları oluşturmak için çeşitli Excel işlevlerinin uygulanmasında size yol gösterecektir. Ve aşağıdaki gibi yapabilirsiniz:

1. Boş bir çalışma sayfasında, aşağıda gösterilen ekran görüntüsü gibi Aralık A1: C1'deki sütun başlıklarını yazın:

2. Sütun A, Sütun B ve Sütun C'deki formülleri girin:

(1) Hücre A2'de formülü girin = RAND ()ve sonra Dolgu tutamacını A2: A50 aralığına sürükleyin.
(2) Cell B2'de formülü girin =RANK($A2,$A$2:$A$50)+COUNTIF(B$1:B1,B1)-1ve ardından Dolgu Tutamaçını Aralık B2: B50'ye sürükleyin. (Formülde, A2, geçerli hücreye bırakılan rastgele sayıdır, $ A $ 2: $ A $ 50, ilk formülle aldığımız tüm rastgele sayılardır, B $ 1, Sütun B'deki ilk hücredir ve B1, geçerli hücrenin üzerindeki hücredir hücre).
(3) C2: C50 aralığında, 1'den 49'a kadar sıra numaraları girin.

Ardından, sol ekran görüntüsünde gösterildiği gibi bir masa alacaksınız:

 

Formül hatırlamak için çok mu karmaşık? Formülü gelecekte tek bir tıklama ile tekrar kullanmak üzere Otomatik Metin girişi olarak kaydedin! Daha fazla oku…     Ücretsiz deneme

3. Boş bir aralık bulun, aşağıda gösterilen ekran görüntüsü gibi sıra numaralarını yatay olarak bir satıra yazın:

4. İlk sıra numarası olan 1'in altına, formülü girin = DÜŞEYARA (G1, $ B $ 1: $ C $ 50,2, YANLIŞ) içine yerleştirin ve Dolgu Tutamacını ihtiyacınız olan Aralığa sürükleyin.

not: Bu formülde, G1 ilk sıra numarası 1 olan hücredir, $ B $ 1: $ C $ 50 Benzersiz Sıra sütunu ve Top Numarası sütunu, 2, Aralık $ B $ 1'in ikinci sütunundaki değerleri bul anlamına gelir: $ C $ 50 .

Ardından, aşağıda gösterilen ekran görüntüsü gibi piyango numaralarını alacaksınız:

5. Opsiyoneldir. Mevcut çalışma sayfası yenilendiğinde piyango numaralarının otomatik olarak değişmesini önlemek için, formül > Hesaplama Seçenekleri > Manuel.

Excel'de birkaç veri dizisinin tüm kombinasyonlarını kolayca listeleyin

Kutools for Excel's Tüm Kombinasyonları Listele yardımcı program, çeşitli veri dizilerindeki olası tüm kombinasyonları genellemek ve bu kombinasyonları aşağıda gösterilen ekran görüntüsü gibi bir sütunda listelemek için tasarlanmıştır.

Bu yöntem, Excel'de piyango numaraları oluşturmak için bir VBA makrosu uygulamanıza rehberlik edecektir. Lütfen aşağıdaki işlemleri yapın:

1. Basın Ara Toplam + F11 Microsoft Visual Basic for Applications penceresini açmak için tuşlar.

2. tıklayın Ekle > modül yeni bir modül penceresi açmak ve aşağıdaki VBA kodunu içine yapıştırmak için:

VBA: Excel'de Piyango Numarası Oluşturucu

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. basın F5 anahtarı veya tıklayın koşmak Bu VBA makrosunu çalıştırmak için düğmesine basın.

4. Şimdi açılır iletişim kutusunda, piyango numaralarının çıktısı için bir hücre belirtin ve OK düğmesine basın.

Ardından, 6 benzersiz piyango numarasının oluşturulduğunu ve belirtilen hücrelerde görüntülendiğini göreceksiniz.

Kutools for Excel yüklüyse, Rastgele Veri Ekle yardımcı programı, Excel'de aynı anda piyango numaraları oluşturmanıza yardımcı olabilir.

1. A6: F1 gibi 1 bitişik hücre seçin ve ardından Kutools > Ekle > Rastgele Veri Ekle.

2. Şimdi Rastgele Veri Ekle iletişim kutusu çıkıyor. Şuraya git Tamsayı sekme, yazın 1 in Konum kutu, tür 49 in için kutusu, kontrol edin Benzersiz değerler seçeneğini tıklayın ve OK buton. Şimdi 6 benzersiz piyango numarasının oluşturulduğunu ve seçilen hücrelerde hemen görüntülendiğini göreceksiniz.

Excel'deki ölçütlere göre hücreleri rastgele seçin

Excel'deki hücreler için rastgele arka plan / dolgu rengi ekleyin