نمایش اطلاعات ردیفها

[sunstar]

سلام علیکم
من یک فایل اکسل دارم که ستون اول آن حاوی نام ونام خانوادگی افراد می باشد . حاوی یک formشامل یک textboxو یک commandbutton نیز می باشد.
میخواستم زمانی که روی commandbutton کلیک میکنم اطلاعات هر سل به مدت دو ثانیه به ترتیب از a1 تا سل حاوی اطلاعات در textbox نمایش داده شود.واضختر اینکه اطلاعات سل a1 به مدت دو ثانیه در textbox نمایش داده بشه و بعد اطلاعات سل a2 به مدت دو ثانیه و الی آخر. منتظر پاسخ عزیزان و بزرگواران هستم.

[misammisam]

سلام
فقط موقع اجرای کد صبور باشد تا کارشو انجام بده ، از کد زیر در form استفاده کنید

Private Sub CommandButton1_Click()
lastrow = Sheet1.Range("a:a").Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

For i = 1 To lastrow
If Cells(i, 1) <> "" Then
TextBox1.Text = Cells(i, 1)
Application.Wait (Now + TimeValue("0:00:001"))
End If
Next i

End Sub