randbetween by VBA

Collapse
X
Collapse
 
  • صفحه از 1
  • زمان
  • نمایش
حذف همه
new posts
قبلی template بعدی
  • meysam741

    • 2013/04/13
    • 57
    #1

    randbetween by VBA

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

    با سپاس
    برچسب ها: by, randbetween, vba
    • Nima

      • 2011/07/22
      • 385
      #2
      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
      [CENTER][COLOR=#ff0000]************************************[/COLOR]
      No [COLOR=#32CD32][B]LION's [/B][/COLOR]roar ruins my hut, I afraid of [COLOR=#ff0000][B]TERMITE's [/B][/COLOR]silence
      [COLOR=#ff0000]************************************[/COLOR]

      [/CENTER]

        کامنت

        قبلی template بعدی
        چند لحظه..