randbetween by VBA

[meysam741]

سلام خدمت دوستان گرامي
از شما يه راهنمايي ميخوام :
در يك شيت اكسل مي خواهيم يك Command Bottom ايجاد كنيم كه با هربار زدن آن ، يك عدد رندوم بين 1 تا 10 در سلول B1 ايجاد نمايد.
سپس اين مقدار در آخرين رديف غيرخالي ستون A قرار گيرد. سپس با كليك كردن مجدد اين كليد، عدد جديدي ايجاد و در رديف بعدي از ستون A كپي شود و الي آخر....

با سپاس

[Nima]

hاز ماکرو زیر استفاده کنید:

Sub GenerateRandom()
    Range("b1") = WorksheetFunction.RandBetween(1, 10)
    Set nextrow = ThisWorkbook.Sheets(1).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
    nextrow.Value = Range("B1").Value
End Sub