Yeni Kayıt
Konudaki Resimler
|
Hızlı 
Bildirim
excelde rastgele sayı dağıtma
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
1 Kayıtlı Üye ve 1 Misafir - 2 Masaüstü
Giriş
Mesaj
-
-
Sub Macro1()
'
' Macro1 Macro
i = Int(Rnd() * 10)
BuOlmadi:
j = Int(Rnd() * 10)
y = Int(Rnd() * 10)
If ((j + y) <> i) Then GoTo BuOlmadi
Range("a1").Value = i
Range("e1").Value = j
Range("e2").Value = y
End Sub -
sadaasdasda
S
kullanıcısına yanıt
10 değeri senin a1 e girmek istediğin değer onu kafana göre değiştirirsin kaç hücreye dağıtacaksanda o kadar j,i gibi değişken ekle ve if komutuna + olarak ekle -
Sub RastgeleSayiDagit()
s = Val(Range("a1").Value)
s1 = Int(Rnd() * (s - 2))
s2 = Int(Rnd() * (s - s1))
s3 = s - s2 - s1
Range("b1").Value = s1
Range("c1").Value = s2
Range("d1").Value = s3
End Sub
< Bu mesaj bu kişi tarafından değiştirildi akcan -- 28 Ekim 2016; 11:00:28 > -
Şu online tool konuyla ilgilenenlere yardımcı olabilir -> https://functioncube.com/Functions/Divide-Number
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
