Excel'de piyango numaraları nasıl oluşturulur?

Bu yöntem, size birkaç Excel fonksiyonunu uygulayarak piyango numaraları oluşturmanıza rehberlik edecektir. Aşağıdaki adımları izleyebilirsiniz:

1Boş bir çalışma sayfasında, aşağıdaki ekran görüntüsünde gösterildiği gibi Aralık A1:C1'e sütun başlıklarını girin:

2. Sütun A, Sütun B ve Sütun C'ye formüller girin:

(1) Hücre A2'ye formülü girin =RAND(), ve ardından Doldurma tutamacını A2:A50 aralığına sürükleyin.
(2) Hücre B2'ye formülü girin =RANK($A2,$A$2:$A$50)+COUNTIF(B$1:B1,B1)-1, ve ardından Doldurma Tutamacını B2:B50 Aralığına sürükleyin. (Formülde, A2 geçerli hücrenin solundaki rastgele sayıdır, $A$2:$A$50 ilk formülle elde ettiğimiz tüm rastgele sayılardır, B$1 Sütun B'deki ilk hücredir ve B1 geçerli hücrenin üstündeki hücredir).
(3) C2:C50 Aralığında, 1'den 49'a kadar sıra numaraları girin.

Sonra aşağıdaki ekran görüntüsünde gösterildiği gibi bir tablo elde edersiniz:

 

Formülü hatırlamak çok mu karmaşık? Formülü, gelecekte tek tıklamayla yeniden kullanmak üzere Bir Auto Text girdisi olarak kaydedin! Daha fazla oku…     Ücretsiz deneme

3Boş bir aralık bulun, aşağıdaki ekran görüntüsünde gösterildiği gibi bir satırda yatay olarak sıra numaraları yazın:

4İlk sıra numarası olan 1'in altına, formülü girin =VLOOKUP(G1,$B$1:$C$50,2,FALSE) içine, ve ardından Doldurma Tutamacını ihtiyacınız olan Aralığa sürükleyin.

Not: Bu formülde, G1 ilk sıra numarası olan 1 içeren hücredir, $B$1:$C$50 Benzersiz Sıralama sütunu ve Top Numarası sütunudur, 2, $B$1:$C$50 Aralığının ikinci sütununda değerleri bulmak anlamına gelir.

Sonra aşağıdaki ekran görüntüsünde gösterildiği gibi piyango numaralarını elde edersiniz:

5Seçimlidir. Piyango numaralarının geçerli çalışma sayfası yenilendiğinde otomatik olarak değişmesini önlemek için Formül > Hesaplama Seçenekleri > Manuel.

Eğer Kutools for Excel yüklüyse, Rastgele Veri Ekle yardımcı programı size Excel'de piyango numaraları oluşturmada yardımcı olabilir.

16 bitişik hücre seçin, örneğin A1:F1, ve ardından Kutools > Ekle > Rastgele Veri Ekle.

2Şimdi Rastgele Veri Ekle iletişim kutusu açılır. Şuraya gidin: Tamsayı sekmesine tıklayın, yazın 1 içinde Başlangıç kutusuna yazın 49 içinde Bitiş kutusuna yazın, işaretleyin Benzersiz değerler seçeneğini işaretleyin ve Tamam düğmesine tıklayın. Şimdi 6 benzersiz piyango numarasının seçilen hücrelerde hemen oluşturulduğunu ve görüntülendiğini göreceksiniz.

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

1. Microsoft Visual Basic for Applications penceresini açmak için Alt + F11 tuşlarına basın.

2. Yeni bir modül penceresi açmak için Ekle > Modül'e tıklayın ve aşağıdaki VBA kodunu içine yapıştırın:

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

4Şimdi açılan diyalog kutusunda, piyango numaralarını çıktı almak için bir hücre belirtin ve Tamam düğmesine tıklayın.

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

Excel'de kriterlere göre rastgele hücreler seçin

Excel'de hücrelere rastgele arka plan/dolgu rengi ekleyin