طلب مساعدة

[salimhebboul]

[سليم حاصبيا]

لا يمكن التعامل مغ الصورة يجب رفع الملف بحد ذاته

[salimhebboul]

Random word Generator2.rar

[سليم حاصبيا]

جرب هذا الماكرو

 

Option Explicit
Sub salim_rand_table()
If ActiveSheet.Name <> "Sheet1" Then Exit Sub
Dim i%, k%, New_arr()
ReDim New_arr(1 To 10, 1 To 2)

Dim my_rg As Range
Dim myStart%: myStart = 1

Dim myEnd%: myEnd = Application.CountA(Range("a:a")) - 1
Set my_rg = Cells(2, 1).Resize(myEnd)

 With CreateObject("System.Collections.SortedList")
    For i = myStart To myEnd
       .Item(Rnd) = i
     Next i
   For k = 1 To 10
      New_arr(k, 1) = my_rg.Cells(.GetByIndex(k))
      New_arr(k, 2) = my_rg.Cells(.GetByIndex(k)).Offset(, 1)
   Next
 End With
  Range("f2").Resize(UBound(New_arr, 1), UBound(New_arr, 2)).Value = New_arr
  Erase New_arr: Set my_rg = Nothing
End Sub

 الملف مع الكود اللازم

Random word Salim.xls

[Ali Mohamed Ali]

أحسنت استاذ سليم عمل راءع بارك الله فيك

[salimhebboul]

اين

في ٧‏/١٢‏/٢٠١٨ at 21:56, هانى محمد said: