Şimdi Ara

excelde rastgele sayı dağıtma

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir (1 Mobil) - 1 Masaüstü1 Mobil
5 sn
5
Cevap
0
Favori
4.444
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
Sayfa: 1
Giriş
Mesaj
  • yapmak istediğim ama beceremediğim a1 hücresine verdiğim değeri formül b1 c1 d1 hücrelerine rastgele dağıtacak yani bu üç hücredeki sayıların toplamı a1 e eşit olacak



  • 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

  • Yapay Zeka’dan İlgili Konular
    excelde metin rakam ayırma
    4 yıl önce açıldı
    Daha Fazla Göster
    
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.