Giúp tạo Macro tăng số

[mymichau]

Nhờ các anh giúp tạo Macro tăng số (bằng VBA)
Tại cell A1 có số là 1.
Khi Run macro thì số 1 tại cell A1 sẽ tăng dần dần đến 50 ( thời gian tăng số khỏang 1 giây tăng 1 số ).
Em làm hòai nhưng không được, nhờ các anh giúp. Xin cảm ơn.

 

[nvson]

Bạn thử đoạn code sau:

Option Explicit
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public Sub Dem()
Dim i As Integer
For i = 1 To 50
    Cells(1, 1) = i
    Sleep (1000)
    DoEvents
Next i
End Sub

 

[boong]

Thêm một chút cho nó hay nha!

Option Explicit Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Public Sub Dem() Dim i As Integer For i = 1 To 50     Cells(1, 1) = i     Sleep (1000)     DoEvents Next i [COLOR=red]If Cells(1, 1) = 50 Then[/COLOR] [COLOR=red]Call Dem[/COLOR] [COLOR=red]End If[/COLOR] End Sub

 

[SA_DQ]

Bạn xem cái này, rồi sẽ thích ngay mà!

http://giaiphapexcel.com/forum/showthread.php?t=9005&page=2 tại file đính kèm #11​

 

[mymichau]

Anh NVSON giải thích cú pháp Public Declare như thế nào, em thấy người dùng nhiều nhưng chưa hiểu.

 

[Lam_A0]

Anh NVSON giải thích cú pháp Public Declare như thế nào, em thấy người dùng nhiều nhưng chưa hiểu.

Cái này dùng để khai báo hàm API sleep trong thư viện kernel32.dll. Nếu bạn muốn tìm hiểu sâu hơn về nó thì có thể search, rồi bạn sẽ tìm thấy nhiều điều thú vị với các API.

 

[huyhung_xd]

Các bác nói về marco mà E ko hiểu chút nào ?Các Bác có thể cho E ít tài liệu nói về Marco được ko ?E sẽ tự nghiên cứu, một thời gian sau có gì chưa rõ, các Bác chỉ giáo thêm cho E nhé ! E xin Cảm Ơn trước ạ !

 

[SA_DQ]

Các bác nói về marco mà E ko hiểu chút nào ?Các Bác có thể cho E ít tài liệu nói về Marco được ko ?E sẽ tự nghiên cứu, một thời gian sau có gì chưa rõ, các Bác chỉ giáo thêm cho E nhé ! E xin Cảm Ơn trước ạ !

Bạn đến đây thử sức mình xem sao!

http://giaiphapexcel.com/forum/showthread.php?t=650​

 

[nvson]

Cái này dùng để khai báo hàm API sleep trong thư viện kernel32.dll. Nếu bạn muốn tìm hiểu sâu hơn về nó thì có thể search, rồi bạn sẽ tìm thấy nhiều điều thú vị với các API.

Bổ sung thêm:
Từ khoá Declare báo cho VB, VBA biết đây là khai báo một hàm của DLL.
Sau Declare là từ khoá Sub hoặc Function, cho biết đây là thủ tục hay hàm.
Từ khoá Lib cho biết tên DLL đang chứa hàm hay thủ tục đó.
Từ khoá Alias cho biết tên thực sự của thủ tục hay hàm trong thư viện DLL, nó có thể khác với tên ta khai báo trước từ khoá Lib. (phần này có thể có hoặc không)
Cuối cùng là khai báo các tham số truyền, cùng với kiểu dữ liệu hàm trả về.