Xin hướng dẫn cách sử dụng goal seek hàng loạt

[longruoi.xls]

Em chào mọi người. Chúc các bác ngày chủ nhật vui vẻ.

Em đang có bảng tính cần sử dụng đến goal seek nhưng làm thủ công hay nếu có thay đổi giá trị đầu vào lại dùng goal seek từ đầu thì lâu quá các bác ạ.
Em có search google cũng không thấy cách nào dùng được goal seek tự động cũng như không tìm thấy cách khác để giải quyết bài toán của mình.
Bài toán của em được giải thích rõ trong file đính kèm. Rất mong được các bác giúp đỡ.




Cảm ơn các bác đã xem.

 

[longruoi.xls]

Em đã tìm được bài viết hướng dẫn cách giải quyết. Vì vậy post lên đây cho ai search được bài viết này của em có thể tự xem và làm theo hướng dẫn để giải quyết các vấn đề tương tự.

Mọi người chèn đoạn code marco này vào. Trong đó (6, "H") là ô đặt mục tiêu của goal seek. F là cột chứa giá trị cần thay đổi cho nó bằng với mục tiêu. E là cột giá trị cần giải ra bằng goal seek khi cột F thay đổi bằng với mục tiêu ở ô 6H. Dự vào các giải thích này hoặc mọi người xem video ở trên là sẽ điều chỉnh được cho phù hợp với bảng tính của mình.

Sub Goal_Seek_Range_SingleGoal()
Dim j As Integer
For j = 5 To 13
Cells(j, "F").GoalSeek Goal:=Cells(6, "H"), ChangingCell:=Cells(j, "E")
Next j
End Sub

Trân trọng.