Nhờ trợ giúp code để áp dụng goal seak nhiều lần?

[ANHTUAN1810]

Mình lập 1 bảng tính với cách tính là khi ta nhập vào cột ô A1 một giá trị là x (giá trị này là giả thuyết,nhập bao nhiêu cũng dc) thì ô B1 sẽ cho ra 1 kết quả tính toán là y dựa vào giá trị ở ô A1.ô C1 sẽ lấy dữ liệu của ô B1 cho kết quả là z.ô D1 = x-z.Mình fải thử dần cho đến khi x = z là đc.
Mình chọn ô D1 rồi dùng menu lệnh tools > goal seek
dòng set cell : ô D1
dòng to value :nhập là 0
dòng by changing cell : chọn ô A1.
Làm như thế thì khá là thủ công trong khi bảng tính có rất nh dòng.
Các bạn có thể viết dùm mình 1 macro mà khi mình nhấn vào thì sẽ tự động làm động tác như trên (ví dụ có 500 dòng thì sẽ lặp lại 500 lần).thanks
Mình đính kèm theo file dưới đây,pass là 123
http://www.mediafire.com/?emydhnhyxw1

 

[ptm0412]

Hình như bạn cũng dùng record macro rồi, và sửa gì đó?
Tôi cũng record macro, nhưng không sửa, chỉ thay biến vào để lặp.

Sub Macro2()
For i = 29 To Range("aj29").End(xlDown).Row
    Range("AJ" & i).GoalSeek Goal:=0, ChangingCell:=Range("W" & i)
Next
End Sub

Tên chủ đề của bạn cũng chưa rõ ràng lắm, nên là: Nhờ trợ giúp code để áp dụng goal seak nhiều lần, đọc rõ nghĩa hơn.

 

[ANHTUAN1810]

Cám ơn bạn ptm0412 nhiều lắm,mình dùng code của bạn dc rùi,tốc độ xử lí cũng rất tốt.code của bạn đã đáp ứng dc điều mình mong muốn.thanksss

 

[dphi_long60]

Hay quá. NHiều ứng dụng bổ ích từ goal seak

 

[hxcute_a8]

các bác viết giúp em cái code để em chạy goal seek nhiều lần với cái bảng tính này với

Thanks!