Yalnız Mesajı Göster
Eski 16-02-2015, 15:15  
kayrahan
 
Giriş: 14/02/2015
Şehir: antalya
Mesaj: 3
Excel Vers. ve Dili:
2010
Varsayılan

Alıntı:
Murat OSMA tarafından gönderildi Mesajı Görüntüle
Deneyiniz;
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Sifreyap()
Dim Sifre As String
Dim i As Integer, j As Integer
    
    For i = 1 To 10
    For j = 1 To 4
        If j Mod 2 = 0 Then
            Sifre = Chr(Int((90 - 65 + 1) * Rnd + 65)) & Sifre
        Else
            Sifre = Int((9 * Rnd) + 1) & Sifre
        End If
    Next j
        Cells(i, "A") = Sifre
        Sifre = ""
    Next i
    
j = Empty: i = Empty: Sifre = vbNullString
 End Sub
bu kodu nasıl excelde uygulayacağımı biliemedim.yardımlarınızı bekliyorum
kayrahan Çevrimdışı   Alıntı Yaparak Cevapla