Giúp tôi tạo giá trị tự động

[phibonaxi]

Các anh chị em nào có thể giúp mình giải quyết vấn đề sau:
- Sau một khoảng thời gian nhất định ( 30 giây chẳng hạn) tại ô A1 sẽ tự động xuất hiện 1 số, 30 giây sau ô A2 xuất hiện 1 con số và tiếp tục như vậy.

Cám ơn các members rất nhiều!

 

[Hoàng Trọng Nghĩa]

Các anh chị em nào có thể giúp mình giải quyết vấn đề sau:
- Sau một khoảng thời gian nhất định ( 30 giây chẳng hạn) tại ô A1 sẽ tự động xuất hiện 1 số, 30 giây sau ô A2 xuất hiện 1 con số và tiếp tục như vậy.

Cám ơn các members rất nhiều!

Con số là số như thế nào vậy bạn? Dựa trên cơ sở nào? Số ngẫu nhiên cũng phải có dãy số chứ?!

 

[phibonaxi]

Cám ơn minhthien321 đã quan tâm.
Ví dụ như xuất hiện các số ngẫu nhiên từ 0-100.
Mong nhận được sự giúp đỡ!

 

[SA_DQ]

Đây là cách tiêu tốn thời gian

Option Explicit
Sub Them100So()
 Dim Timer_ As Double, jJ As Byte:           Const Ww As Byte = 9
 
 Timer_ = Timer
 For jJ = 2 To Ww
   Randomize
   Cells(jJ, "A").Value = 100 + Int(100 * Rnd())
   Do
      If Timer - Timer_ > Ww Then
         Timer_ = Timer:            Exit Do
      ElseIf Timer Mod jJ = 1 Then
         Cells(jJ, "A").Interior.ColorIndex = 34 + (Timer Mod 7)
      End If
   Loop
 Next jJ
End Sub

Hãy gán cho macro 1 tổ hợp fím; Sau đó mở trang tính chưa có dữ liệu tại cột 'A' & bấm chạy macro để xem kết quả
(Chỉ mất gần 100 gy của bạn thôi)

 

[Po_Pikachu]

Bạn xem file của mình thử nha! Cứ 3 giây là nó điền một số vào đó. Bạn có thể tuỳ biến thời gian tuỳ thích. Chỉ cần sữa số 3 lại thành một số thời gian khác là được.
Thân.