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

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

Hiç Excel'de piyango numaraları oluşturmayı veya Excel'de kendi başınıza bir piyango numarası üreteci yapmayı düşündünüz mü? Bu yazıda, bunu kolayca yapabilmeniz için üç yöntem sunuyoruz.


Excel İşlevleri ile piyango numaraları oluşturun

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:

 

not şeridi 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.


tüm kombinasyonları listeleyin 1

Kutools for Excel - Excel için 300'den fazla kullanışlı araç içerir. Tam özellikli ücretsiz deneme 30-gün, kredi kartı gerekmez! Şimdi alın

VBA Makro ile piyango numaraları oluşturun

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 ile piyango numaraları oluşturun

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

Kutools for Excel - Excel için 300'den fazla kullanışlı araç içerir. Tam özellikli ücretsiz deneme 30-gün, kredi kartı gerekmez! Şimdi Ücretsiz Deneme!

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

Kutools for Excel - Excel için 300'den fazla kullanışlı araç içerir. Tam özellikli ücretsiz deneme 30-gün, kredi kartı gerekmez! Şimdi alın


Demo: Kutools for Excel ile piyango numaraları oluşturun


Kutools for Excel Excel için 300'den fazla kullanışlı araç içerir ve sınırlama olmaksızın 30 gün içinde ücretsiz olarak deneyebilirsiniz. Hemen İndirin ve Ücretsiz Deneyin!

İlgili yazılar:


En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (15)
5 üzerinden 5 olarak derecelendirildi · 1 derecelendirme
Bu yorum sitedeki moderatör tarafından en aza indirildi
Lütfen ssoftware bulmayı kolaylaştırın
Bu yorum sitedeki moderatör tarafından en aza indirildi
biraz şans numarası kazanmak isterim
Bu yorum sitedeki moderatör tarafından en aza indirildi
: Yeni programlarınızı denemek istiyorum, sayıların nasıl tahmin ettiğini görün
Bu yorum sitedeki moderatör tarafından en aza indirildi
kerala piyango için ertesi gün tahminini hesaplayın
Bu yorum sitedeki moderatör tarafından en aza indirildi
hay, Santhanam bu programla her şeyi kazandın mı?
Bu yorum sitedeki moderatör tarafından en aza indirildi
kerala piyango için ertesi gün piyango numarasını hesaplayın - hindistan
Bu yorum sitedeki moderatör tarafından en aza indirildi
B adımındaki formülde EĞERSAY(B$1:B1,B1)-1'in amacı nedir?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba hyungup kim,
EĞERSAY(B$1:B1,B1)-1, Sütun B'deki yinelemeleri önleyecektir. Örneğin, B1 benzersiz bir değerse, bu kısım sıralama sonucunu etkilemeyecek şekilde 0 döndürür; B1 kopya ise, bu kısım sıralama sonucunu biraz ayarlayacaktır.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, burada gösterdiğiniz Vlookup yöntemini denedim, harika çalışıyor ve 1 ila 49 aralığı için sayıları oluşturmak kolay.

Ama oyundaki bazı sayıları ortadan kaldırmayı düşünüyordum, örneğin sayıları çalıştırmak yerine 25'den 1'a kadar 49 sayı olacak. Vlookup formülünü çalışması için nasıl ayarlamam gerekecek?
5 üzerinden 5 olarak derecelendirildi
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Yogi, üzgünüm isteğinizi tam olarak anlayamadım. 25'den 1'a kadar 49 sayı olması ne anlama geliyor?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Evet 25'den 1'a kadar 49 sayı.
Aynı formülü kullanmayı denedim ama 25'ten büyük bir sayı seçildiğinde sıradaki bir sonraki sayı gösterilmiyor ve hata oluşuyor.
5 üzerinden 5 olarak derecelendirildi
Bu yorum sitedeki moderatör tarafından en aza indirildi
Amanda'ya yardımın için teşekkür ederim.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Dosya fromula ile çalışmıyor, sorun ne?

lütfen bana bildirin

Formülü kopyalıyorum hepsi doğru.
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,

Çalıştığınız dosyayı ekler misiniz?

Amanda
Bu yorum sitedeki moderatör tarafından en aza indirildi
sistem çalışmıyor ne oldu tüm formülleri ekledim
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır