randbetween by VBA

**meysam741** · 2014/01/07

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

با سپاس

اخطار: این یک موضوع قدیمی است
به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

سیستم تبلیغات اکسل ایران

**Nima** · 2014/01/07

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