tạo form thông báo công việc

[giaosy]

em dùng vòng lặp for....next để duyệt qua các sheet trong workbook, sau đó tạo 01 form (có 1 textbox) để hiển thị đang ở sheet nào:
code như sau:

Private Sub UserForm_Activate()
Dim i As Integer
Dim wsh As Worksheet
For i = 1 To ThisWorkbook.Worksheets.Count
Set wsh = Sheets(i)
wsh.Activate
Range("A1").Value = 1
TextBox1.Text = "vua dien du lieu vao o A1 cua sheet" & " " & wsh.Name
Next
Call dong
End Sub

nhưng nó chỉ hiện tên sheet cuối cùng khoảng 1 giây rồi biến mất.
em gửi kèm file các bác giúp em với
thanks

 

[voda]

Bạn chỉnh đoạn code trên như sau:

Private Sub UserForm_Activate()
TextBox1.Text = ActiveSheet.Name
End Sub

 

[giaosy]

to bác voda:
khi sửa TextBox1.Text = ActiveSheet.Name
thì nó lại chỉ dừng ở sheet1, không duyệt qua từng sheet nữa

 

[voda]

-Kết quả của đoạn code trên: Textbox chỉ hiển thị tên sheet cuối là đúng. Vì khi vòng lặp duyệt qua các sheet, tên của sheet sẽ hiển thị trên textbox trong thời gian vô cùng ngắn, mắt ta không thấy được. Và ta chỉ nhìn thấy khi vòng lặp dừng ở sheet cuối.
-File bạn gởi lên vừa thiếu (sub dong?) vừa thừa (nhiều thủ tục quá!).Bạn nên chỉnh lại thật chuẩn và gởi lên