İçindekiler
Hücreleri Rastgele Değerlerle Doldur
Aşağıdaki kod, belirli bir aralığı 0 ile 1000 arasında rastgele bir sayı ile dolduracaktır:
Sub Randomise_Range(Cell_Range As Range) ' Range Dim Cell'deki her hücreyi randomize eder Application.ScreenUpdating = Cell_Range Cell'deki Her Hücre İçin False.Value = Rnd * 1000 Next Cell Application.ScreenUpdating = True End Sub
“Application.ScreenUpdating =FALSE” ve “Application.ScreenUpdating = TRUE” kodu, ekran uyarılarını kapatmaya ve açmaya yarar ve kodun çok daha hızlı çalışmasını sağlar.
Aralığı belirleyen ana rutin ile bir tıklama olayı aracılığıyla kurulabilir:
Private Sub CommandButton1_Click() Randomise_Range (Sayfalar("Sayfa3").Range("A1:T8000")) End Sub
Bu durumda, sayfa 3'teki A1:T8000 hücreleri rasgele sayılarla doldurulur - komut düğmesi 1 tıklandığında.
.XLSM dosyasını buradan indirin
