Çok eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Hocam ilgi ve alakanız için çok teşekkür ederim.
Şu an ufak bir sıkıntı var, A sütunu 2. satırdan başlıyor, yalnız B sütununa yazarken 1. satırdan başlıyor.
ws.Range("B2").Resize(sonSatir, 1).Value = degerler
şeklinde düzenledim, bu seferde en altta bir satır fazla yazıyor.
Çok önemli değil...
istediğini kodlar.
Sub RastgeleSirala()
Dim ws As Worksheet
Dim sonSatir As Long
Dim degerler As Variant
Dim i As Long, j As Long, temp As Variant
' Çalışma sayfasını belirt (Sayfa1 yerine gerçek sayfa adınızı kullanın)
Set ws = ThisWorkbook.Worksheets("Sayfa1")
'...
...Sayfada A sütununda yer alan yaklaşık 1000 satırda birbirinden farklı değerler yazılı;
yapmak istediğim "A" sütununda yazan bu değerleri rastgele(karışık) olarak B sütunundaki satırlara dağıtması,
Özetle A sütununda sıralı bir şekilde yazan değerleri B sütuna karışık olarak yazılması ...
...' Tek seferde yazılacak dizi için boyut belirleme
ReDim dataArray(1 To numCount, 1 To 1)
' Rastgele benzersiz sayıları üret
Randomize
i = 1
Do While i <= numCount
Dim randNum As Long
randNum = Int((999999) * Rnd + 1)
' Eğer sayı daha...
...Next i
' Sayıları karıştırmak (Fisher-Yates algoritması)
For i = n To 2 Step -1
randIndex = Int((i - 1 + 1) * Rnd + 1) ' Rastgele indeks
temp = numList(i)
numList(i) = numList(randIndex)
numList(randIndex) = temp
Next i
' İlk 8000 sayıyı...
...Next i
' Sayıları karıştırmak (Fisher-Yates algoritması)
For i = n To 2 Step -1
randIndex = Int((i - 1 + 1) * Rnd + 1) ' Rastgele indeks
temp = numList(i)
numList(i) = numList(randIndex)
numList(randIndex) = temp
Next i
' İlk 8000 sayıyı aktif...
100 ile 300 arasinda 30 tane sayi oluştur. Sonra bu sayilarin normal dagilim olup olmadığına bak. Eger normal dağılım ise diger islemlere gec. Normal dagilim degil ise rakamlari degistir. Normal dagilim yapmaya calis. Normal dagilim olduktan sonra diger islemleri yap
...oluşturduğunuz veriler için histogram grafiğini çiziniz.
gibi şeyler isteniyor. Bu ne anlama geliyor acaba? Soldan sağa ve üstten aşağı 30 adet Gözlem1 anlamına gelen G1 yazdım. Öyle mi olacak yoksa sadece yukarıdan aşağıya G1den G30a kadar yazıp yanlarına rastgele sayılar yazmak yeterli mi?
...olarak aşağıdaki çözümü inceleyiniz. # ve $ karakterleri için yazılı. Açıklamaları okuyup, seçtiğiniz karakterlere göre düzenleyiniz.
Sub RastgeleKarakterBirleştir()
Randomize Timer
Dim ifade1 As String
Dim ifade2 As String
Dim birlesim As String
Dim sonuc As String...
Rastgele arada ile sayı oluşturup oluşan sayı kadar otomatik imgeleri çoğaltabilir miyim?Örnek ektedir.
https://docs.google.com/spreadsheets/d/1IH1mMrJiwN30LYd2LYoeDRnWj3E5uN8K/edit?usp=sharing&ouid=111067043006256854833&rtpof=true&sd=true
=SIRALAÖLÇÜT(SIRALI(10;;1;1);RASGDİZİ(10))
rastgele benzersiz sayı oluşturmak için şu kodu intermette buldum ama çalışmıyor.Nerede hata yapıyorum acaba?Yardımcı olursanız sevinirim..
Evet dizi formülü olduğunu gördüm ctrl+shift+enter ile kapattım. veriyi çektiğim tablonun içindeki veriler de formül ile geliyor ora boş olsa bile formülü görüyor sanırım. Dosya güvenlik riski taşıyor paylaşamıyorum. bide sizin gibi rastgele deneyeceğim.
Bende Ofis 365 sürümü var. Her iki formülde rastgele oluşturduğum verilerde denediğimde doğru sonucu veriyor.
Örnek dosyanızı paylaşırsanız durumu daha net anlayabiliriz.
Not : Önerdiğim 2. formül DİZİ formüldür. Belki gözünüzden kaçmıştır diye hatırlatmak istedim.
Evet Haklısınız o şekilde düşünmemiştim sadece örnek olsun maksadı ile renklendirdim ve günlere rastgele dağıttım,
burdaki amacım bir tarih aralığı verip örneğin: 22/11/2024 - 30/11/2024 o tezgah yoğunlunu görüp gerekirse fazla mesai parogramı yapmak yada siparişlerde öteleme yapmak bunu...
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.