Xin trợ giúp về code VB for Excel

[123456kid]

Chào các bạn

Mình có 1 bảng tính excel đơn giản

A1 = 0

A2=2+$A$1
A3=3+$A$1
A4 =A 2+ A3

Mình cho A1 có giá trị chạy từ 1 đến 10.

thì mình muốn ở cột A4 lần lượt hiện Sum của A4=A2+A3 .
VD: A1 =1 thì cột A4 =A 2+ A3
và khi A1=2 thì A5 =A 2+ A3 ( cột tự động xuống hàng mỗi khi A1 thay đổi )
khi A1=3 thì A6 =A 2+ A3
.....

NHƯNG khi mình code VB thì A1 chỉ chạy có một lần là A1 =1 thôi và A4 chỉ hiện có 1 kết quả khi A1 =1 còn A1 = 2,3,4,5...10 thì không hiện.
Cho mình hỏi Excel không tự cập nhật khi A1= 2 , phải không các bạn.
Có bạn nào biết xin vui lòng chỉ giúp.
Xin cám ơn

 

[SA_DQ]

Đâu bạn thử với macro này xem đúng í chưa vậy?

Option Explicit
Sub AddNumToCells()
 Dim jJ As Byte, Timer_ As Double
 
 Timer_ = Timer
 For jJ = 1 To 10
    [A1].Value = jJ
    Do
        If Timer - Timer_ > 2 * jJ Then Exit Do
    Loop
 Next jJ
 MsgBox "Xong Nha!", , "GPE Xin Chao Ban"
End Sub

 

[ptm0412]

Như vầy mới đúng ý tác giả:

Sub AddNum()
T = Timer
For i = 1 To 10
[A1] = i
    Do
        If Timer - T > 1 * i Then Exit Do
    Loop
Cells(i + 3, 1) = [A2] + [A3]
Next
End Sub

 

[ChanhTQ@]

/(/hưng tác giả topic là người rành VB mà PTMỹ!

&&&%$r &&&%$r &&&%$r

​

 

[ndu96081631]

Nói thiệt, bài này cũng chả hiểu để làm giống gì
Chủ topic hỏi xong, đi tuốt luôn

 

[sealand]

Mình thấy tiếc công các Bác vô cùng:
1/Đoán ra câu hỏi đã mất công nhiều.
2/Bỏ công tốn sức (của toàn những bậc "lão thành cách mạng") viết ra code chạy ro ro mà cũng chẳng có lấy 1 câu cảm ơn.
3/Câu hỏi phi lý vô cùng: Mình nghĩ còn 1 yếu tố nào chèn vào nữa, chứ thế này thì tính tay cho nó gọn vì có cho chạy 1 tỷ lần thì kết quả vẫn vậy

Cũng nên có quy định những bài hỏi mà không có cảm ơn hoặc hồi đáp cũng nên dọn dẹp lại. Nó không phải là câu nệ sự cảm ơn mà nó thể hiện việc không cần kết quả. "Con cháu" của Ezit Nexin (Những người thích đùa ấy mà) thoải mái thả những câu hỏi vu vơ làm phí công nhiều người khác. Mình linh tính gặp khá nhiều rồi thì phải?

 

[ndu96081631]

Cũng nên có quy định những bài hỏi mà không có cảm ơn hoặc hồi đáp cũng nên dọn dẹp lại. Nó không phải là câu nệ sự cảm ơn mà nó thể hiện việc không cần kết quả. "Con cháu" của Ezit Nexin (Những người thích đùa ấy mà) thoải mái thả những câu hỏi vu vơ làm phí công nhiều người khác. Mình linh tính gặp khá nhiều rồi thì phải?

Em đồng ý với ý kiến của anh. Mục đích để biết chủ đề ấy có đáp ứng được yêu cầu người hỏi hay không
Tuy nhiên, vẫn có thể loại trừ 1 trường hợp đặc biệt: Chủ topic hỏi vu vơ rồi đi mất tiêu nhưng xét thấy đó là 1 chủ đề hay, có thể mở rộng cho những ứng dụng khác thì chúng ta sẽ tiếp tục bàn luận (mà không cần đến ý kiến của chủ topic)

 

[ChanhTQ@]

/-(ết sức bình tĩnh đi các ban.

Mình cũng đoán già đoán non thôi: Người này đang tìm 1 giải thuật gì đó trong excel giúp bạn í ứng dụng thế mạnh của excel trong VB
Có thể trong VB bạn này là bật thầy, nhưng trong excel thì giống như New ton khoét 2 cái lỗ cho 2 con chó chui qua tường vậy mà!


Tranh thủ SPAM cái; Mà ai dám chắc là người đó không quay lại, cứ cho là người đó quá bận rộn đến nổi không kịp cảm ơn đi các bạn!


(húc vui!

 

[123456kid]

Sặ ..sặc... .c...Dr Thanh..thanh nhiệt giải nóng...hihi..mời mọi người uống 1 chén...cho hạ qủa..
Mình với vừa check mail mà chưa kịp tét gì hết .
Cám ơn các bạn đã help mình. mình chỉ là newbie thôi à . lâu lắm rồi không có sử dụng excel nên không biết viết sao .
ở trên chỉ là 1 vd đơn giản cho các bạn hiểu để giúp đỡ mình thôi, chứ file data excel của mình rắm rối lắm mà cũng không biết giải thích sao. Nói chung và nói tóm lại , nói rút gọn lại và cuối cùng là nói lại ..hihihi.. Xin cám ơn các bro nhiều. chúc 1 ngày tốt lành.