علي نفس طريقة الاستاذ القدير الكبير / جمال عبد السميع ... ملك المعادلات ... جزاه الله خيرا
ولاثراء الموضوع ....
وهذه المرة باستخدام الكود ...
جرب الكود التالي
Sub SAMA()
Dim myRange As Range
Set myRange = Worksheets("sheet1").Range("A1:D1")
myRange.Formula = "=ABS(INT(RAND()*10))"
myRange.Font.Bold = True
End Sub
اختيار ارقام عشوائيةxls.rar