- Katılım
- 18 Kasım 2011
- Mesajlar
- 406
- Excel Vers. ve Dili
- excel 2016 türkçe
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub kesir1()
'Payın paydadan küçük olduğu kod
pay = WorksheetFunction.RandBetween(1, 20)
payda = WorksheetFunction.RandBetween(pay + 1, 21)
[c4] = pay
[c5] = payda
End Sub
Sub kesir2()
'Payın paydadan büyük olduğu kod
10:
payda = WorksheetFunction.RandBetween(1, 20)
pay = WorksheetFunction.RandBetween(pay, 19)
If pay <= payda Then GoTo 10
[c9] = pay
[c10] = payda
End Sub
=C13/C14
Hocam alt alta yazılı şekilde mesela basit kesri ondalık kesre nasıl çevirebilirim.
Ondalık için aşağıdaki formülü kullanabilirsiniz :
Kod:=C13/C14
Sayı biçimini isteğe göre ayarlayın.