نوشتن تابع rnd توسط زبان vba

[mahdi711225]

با سلام واحترام
سوال بنده اینه :
شما فرض کن تابع rnd تو اکسل تعریف نشده و شما میخواهید تابعی بنویسید ک عدد تصادفی تولید کنه چه کدی مینویسید؟

[Amir Mohsenpour]

ماژولی در اکسل ایجاد نموده و چند خط زیر را در آن کپی نمائید


Public Function mahdi()
x = Date
y = Time()
mahdi = (y * x)
End Function



تابعی با نام مهدی و به شکل =mahdi() ایجاد خواهد کرد. فرمت سلول را بر روی یک یا دو رقم اعشار قرار دهید.