Anh chị sửa giúp em sửa lỗi code GoalSeek (1 người xem)

[vova2209]

Chào anh chị!
Anh chị sửa giúp em sửa lỗi code Goal seek
Giá trị tại ô F5 ActiveCell, sau đó chọn địa chỉ ô cần thay đổi giá trị để ô F5 = 0

Sub GoalSeek_VBA()
Dim Mafia As Range
Mafia = Application.InputBox("Chon ô cân` Mafia:")
ActiveCell.GoalSeek Goal:=0, ChangingCell:=Mafia
End Sub

 

[namvu230397]

Lâu lắm không viết VBA nhưng em nhớ thứ nhất là dùng biến dạng object là phải dùng set. Thứ 2 dùng phương thức inputbox thì phải khai báo kiểu dữ liệu cho nó, ở đây bác đang dùng biến kiểu range, phải khai báo type:=8

 

[vova2209]

Lâu lắm không viết VBA nhưng em nhớ thứ nhất là dùng biến dạng object là phải dùng set. Thứ 2 dùng phương thức inputbox thì phải khai báo kiểu dữ liệu cho nó, ở đây bác đang dùng biến kiểu range, phải khai báo type:=8

Cảm ơn bạn nhiều!
Sub GoalSeek_VBA()
Dim Mafia As Range
Set Mafia = Application.InputBox("Chon ô cân` Mafia:", Type:=8)
ActiveCell.GoalSeek Goal:=0, ChangingCell:=Mafia
End Sub