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

Bu yöntem, piyango numaralarını oluşturmak için birkaç Excel işlevini kullanmanızı sağlar. Aşağıdaki adımları izleyebilirsiniz:

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

2. A, B ve C sütunlarına formülleri girin:

(1) A2 hücresine şu formülü girin: =RAND(), ardından doldurma kulpuyla A2:A50 aralığına kadar sürükleyin.
(2) B2 hücresine şu formülü girin: =RANK($A2,$A$2:$A$50)+COUNTIF(B$1:B1,B1)-1, ardından doldurma kulpuyla B2:B50 aralığına kadar sürükleyin. (Formülde; A2, geçerli hücrenin solundaki rastgele sayıdır. $A$2:$A$50, ilk formülle oluşturulan tüm rastgele sayılardır. B$1, B sütununun ilk hücresidir ve B1, geçerli hücrenin hemen üstündeki hücredir.)
(3) C2:C50 aralığına 1’den 49’a kadar ardışık numaraları girin.

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

 

Formül hatırlaması için çok mu karmaşık? Formülü bir Otomatik Metin girdisi olarak kaydedin ve ileride sadece bir tıkla yeniden kullanın! Daha fazla okuyun…     Ücretsiz deneme

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

4. 1 öğesinin ilk Dizi Numarası’nın altına şu formülü girin: =VLOOKUP(G1,$B$1:$C$50,2,FALSE), ardından ihtiyacınız olan aralığa kadar Doldurma Kulpu’nu aşağı sürükleyin.

Not: Bu formülde G1; 1 öğesinin ilk Dizi Numarası’nı içeren hücredir, $B$1:$C$50; Benzersiz Sıra ve Top Numarası sütunlarını kapsayan aralıktır, 2; $B$1:$C$50 aralığının ikinci sütunundan değer alınacağını belirtir.

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

5. İsteğe bağlıdır. Geçerli çalışma sayfası yenilendiğinde piyango numaralarının otomatik olarak değişmesini önlemek için Formül > Hesaplama Seçenekleri > Manuel seçeneğine tıklayabilirsiniz.

Eğer Kutools for Excel yüklüyse, Rastgele veri ekle aracı, Excel'de tek seferde piyango numaraları oluşturmanıza yardımcı olabilir.

1. Yan yana 6 hücreyi seçin (örneğin A1:F1) ve ardından Kutools > Ekle > Rastgele veri ekle seçeneğine tıklayın.

2. Şimdi Rastgele Veri Ekle iletişim kutusu açılır. Tamsayı sekmesine gidin, 1 değerini İtibaren kutusuna yazın, 49 değerini Kadar kutusuna yazın, Benzersiz değerler seçeneğini işaretleyin ve Tamam düğmesine tıklayın. Artık seçili hücrelerde anında 6 adet benzersiz piyango numarası oluşturulmuş ve görüntüleniyor olacak!

Bu yöntem, Excel'de piyango numaraları oluşturmak için bir VBA makrosu uygulamanızı sağlar. 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 seçeneğine 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 iletişim kutusunda piyango numaralarının çıktısının alınacağı hücreyi belirtin ve Tamam düğmesine tıklayın.

Daha sonra belirtilen hücrelerde 6 adet benzersiz piyango numarası oluşturulup görüntülenecektir.

Excel'de kriterlere göre rastgele hücre seçimi yapma

Excel'de hücrelere rastgele arka plan/Doldurma Rengi ekleme