Yazeka
Arama sonuçlarına göre oluşturuldu
Rastgele sayı üreten makro oluşturmak için aşağıdaki yöntemler kullanılabilir:
- VBA (Visual Basic for Applications) kullanarak:
- Geliştirici sekmesinden "Visual Basic" butonuna tıklayıp VBA Düzenleyicisi açılır ve "Ekle" > "Modül" ile yeni bir modül eklenir 2.
- 0 ile 1 arasında rastgele ondalıklı sayı üretmek için aşağıdaki kod kullanılır 2:
Sub RastgeleOndalik() Dim rastgeleSayi As Double rastgeleSayi = Rnd() ' 0 ile 1 arasında rastgele sayı üretir End Sub
- Belirli bir aralıkta rastgele tam sayı üretmek için aşağıdaki kod kullanılabilir 2:
Sub RastgeleArada() Dim rastgeleSayi As Integer rastgeleSayi = Int((100 - 1 + 1) * Rnd + 1) End Sub
- Benzersiz sayılar üretmek için aşağıdaki kod kullanılabilir 2:
Sub BenzersizRastgeleSayilar() Dim sayilar As Collection Set sayilar = New Collection Dim i As Integer Dim yeniSayi As Integer Dim tekrar As Boolean Do While sayilar.Count < 10 tekrar = False yeniSayi = Int((100 - 1 + 1) * Rnd + 1) On Error Resume Next sayilar.Add yeniSayi, CStr(yeniSayi) If Err.Number <> 0 Then tekrar = True Err.Clear End If On Error GoTo 0 Loop Next i End Sub
- Makro kullanarak:
Rastgele sayı üreten makro oluştururken, üretilen sayıların benzersiz olmasını sağlamak için kontrol mekanizmaları eklemek gerekebilir 3.
5 kaynaktan alınan bilgiyle göre: