[حل شده] انتخاب رندوم سطر با 3 ستون

[asdsaddsasdasad]

سلام
من تعدادی سطر و با تعدادی ستون دارم که میخوام به صورت رندوم هر بار یکی از این سطر ها به همراه اطلاعات 3 ستونش نمایش داده بشه
چطور باید این کار رو بکنم ؟

برای مثال تو عکس پیوست میخوام اگر قرار باشه سطر 4 رندوم نشون داده بشه ، ردیف ، شماره و نام کاربر مختص سطر 4 نشون داده بشه


تشکر از شما

خیلی گشتم ولی نتونستم چیزی پیدا کنم که بشه حلش کنم

[rahi_feri]

سلام
اگه نمونه میذاشتید و خروجی مورد انتظار جواب دقیق تر بود!
چک کنید...!

[rasools13]

سلام همانند راه حل دوست عزیز rahi_feri می توان از تابع RandBetween برای تعیین ردیف تصادفی استفاده کرد اما مشکل استفاده از این روش اینه که با هر تغییر در اکسل این تابع بروزرسانی شده و مقدار جدیدی را ارائه می دهد که زیاد خوشایند نیست بنابرین بهتره از ماکروی ذیل برای تعیین ردیف تصادفی استفاده کنید و مقادیر دیگر را با تابع Index فرا خوانی کنید.
تصویر و فایل پیوست را بررسی کنید.

Sub Macro1()
'
' Macro1 Macro
'

'
    Dim Wsh As Worksheet
    Dim rowNum, Rnd As Integer
    Set Wsh = ActiveSheet
    With Wsh.ListObjects("Table1")
        rowNum = .ListRows.Count
        Rnd = Application.WorksheetFunction.RandBetween(1, rowNum)
    End With
    Range("G4") = Rnd
End Sub 

[rahi_feri]

سلام همانند راه حل دوست عزیز rahi_feri می توان از تابع RandBetween برای تعیین ردیف تصادفی استفاده کرد اما مشکل استفاده از این روش اینه که با هر تغییر در اکسل این تابع بروزرسانی شده و مقدار جدیدی را ارائه می دهد که زیاد خوشایند نیست بنابرین بهتره از ماکروی ذیل برای تعیین ردیف تصادفی استفاده کنید و مقادیر دیگر را با تابع Index فرا خوانی کنید.
تصویر و فایل پیوست را بررسی کنید.
[ATTACH=CONFIG]14236[/ATTACH]

Sub Macro1()
'
' Macro1 Macro
'

'
    Dim Wsh As Worksheet
    Dim rowNum, Rnd As Integer
    Set Wsh = ActiveSheet
    With Wsh.ListObjects("Table1")
        rowNum = .ListRows.Count
        Rnd = Application.WorksheetFunction.RandBetween(1, rowNum)
    End With
    Range("G4") = Rnd
End Sub 

بله؛ کاملا درسته!