Anasayfa
Giriş yap
Mesaj Sayısı
tarafından Function BOZUKPARA(a As Currency)
p = a Mod 100000
If p >= 50000 Then BOZUKPARA = a + (100000 - p) Else BOZUKPARA = a - p
End Function
---------------------------
Üst kısmı VBA makro bölümünde bir module yazın. Daha sonra bu dosyayı bir isimle eklenti(*.XLA) olarak kaydedin ve sonra Araçlar eklentiler bölümünden dosyaya verdiğiniz ismi işaretleyin. Artık her çalışma sayfasında kullanabilirsiniz.
Kullanım:
=bozukpara(a1) --- A1 deki rakamı 100.000 ve katlarına yuvarlar.
=bozukpara(1271000) -- sonucu 1300000 dir.
p = a Mod 100000
If p >= 50000 Then BOZUKPARA = a + (100000 - p) Else BOZUKPARA = a - p
End Function
---------------------------
Üst kısmı VBA makro bölümünde bir module yazın. Daha sonra bu dosyayı bir isimle eklenti(*.XLA) olarak kaydedin ve sonra Araçlar eklentiler bölümünden dosyaya verdiğiniz ismi işaretleyin. Artık her çalışma sayfasında kullanabilirsiniz.
Kullanım:
=bozukpara(a1) --- A1 deki rakamı 100.000 ve katlarına yuvarlar.
=bozukpara(1271000) -- sonucu 1300000 dir.