Nhờ các bác giúp e đoạn code để sử dụng Goal seek

[vnlp13]

Nhờ các bác giúp e đoạn code để sử dụng Goal seek.
Sau khi em sử dụng help và tìm code được ví dụ này:
"sub tinh()
Worksheets("Sheet1").Range("Polynomial").GoalSeek _
Goal:=15, _
ChangingCell:=Worksheets("Sheet1").Range("X")
end sub"
E ko biết còn thiếu khai báo gì? mà chạy mãi không được.
Xin các bác giúp đỡ.
Thank u.

 

[cadafi]

Nhờ các bác giúp e đoạn code để sử dụng Goal seek.
Sau khi em sử dụng help và tìm code được ví dụ này:
"sub tinh()
Worksheets("Sheet1").Range("Polynomial").GoalSeek _
Goal:=15, _
ChangingCell:=Worksheets("Sheet1").Range("X")
end sub"
E ko biết còn thiếu khai báo gì? mà chạy mãi không được.
Xin các bác giúp đỡ.
Thank u.

Chạy không được là sao vậy bạn?? Code của bạn chạy tốt mà.

 

[vnlp13]

Cám ơn ban đã trả lời!

 

[tigertiger]

theo bạn mô tả thì phải thế này bạn ah,

Sub tinh()
    Worksheets("Sheet1").Cells(2, 2).GoalSeek _
        Goal:=15, _
        ChangingCell:=Worksheets("Sheet1").Cells(2, 1)
End Sub

 

[kicon]

Với Sub Goalsick, Từ Sub chuyển qua function để đưa giá trị cần thay đổi vô bằng cách nào vậy các Anh Chị, gửi file excel lên cho mình tham khảo với...thanks

quần áo trẻ em | quan ao tre em | quần áo sơ sinh | quần áo bé trai | quần áo bé gái | bodysuit carter | quan ao so sinh | quan ao tre em nhap khau