كيفية كتابة أمر اختيار كائن عشوائي من قاعدة البيانات ب لغة VB

يمكنك تجربة الكود التالي 

Sub test()
Dim PopulationSelect As Range
Set PopulationSelect = Application.InputBox("حدد نطاق البحث ", Type:=8)


RandSample = Int(PopulationSelect.Rows.Count * Rnd + 1)
PopulationSelect.Rows(RandSample).EntireRow.Select

End Sub

حيث يقوم بالبحث العشوائي حسب نطاق البحث المدخل