Xin chào mọi người,
Tôi có một vấn đề với đối tượng range trong vba excel áp dụng cho vòng lặp goal seek như sau:
Sub Macro2()
'
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+q
'
Application.CutCopyMode = False
Application.CutCopyMode = False
Application.CutCopyMode = False
Range("O70").GoalSeek Goal:=0, ChangingCell:=Range("O40")
Range("U70").GoalSeek Goal:=0, ChangingCell:=Range("U40")
Range("V70").GoalSeek Goal:=0, ChangingCell:=Range("V40")
Range("W70").GoalSeek Goal:=0, ChangingCell:=Range("W40")
Range("X70").GoalSeek Goal:=0, ChangingCell:=Range("X40")
Range("Y70").GoalSeek Goal:=0, ChangingCell:=Range("Y40")
Range("Z70").GoalSeek Goal:=0, ChangingCell:=Range("Z40")
End Sub
Xin cho hỏi làm cách nào để viết gọn lại để đối tượng range chạy theo vùng chọn như: Range("O70","Z70").GoalSeek Goal:=0, ChangingCell:=Range("O40", "Z40) thay vì phải viết từng dòng rất dài.
Trân trọng cảm ơn.
Quang
Tôi có một vấn đề với đối tượng range trong vba excel áp dụng cho vòng lặp goal seek như sau:
Sub Macro2()
'
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+q
'
Application.CutCopyMode = False
Application.CutCopyMode = False
Application.CutCopyMode = False
Range("O70").GoalSeek Goal:=0, ChangingCell:=Range("O40")
Range("U70").GoalSeek Goal:=0, ChangingCell:=Range("U40")
Range("V70").GoalSeek Goal:=0, ChangingCell:=Range("V40")
Range("W70").GoalSeek Goal:=0, ChangingCell:=Range("W40")
Range("X70").GoalSeek Goal:=0, ChangingCell:=Range("X40")
Range("Y70").GoalSeek Goal:=0, ChangingCell:=Range("Y40")
Range("Z70").GoalSeek Goal:=0, ChangingCell:=Range("Z40")
End Sub
Xin cho hỏi làm cách nào để viết gọn lại để đối tượng range chạy theo vùng chọn như: Range("O70","Z70").GoalSeek Goal:=0, ChangingCell:=Range("O40", "Z40) thay vì phải viết từng dòng rất dài.
Trân trọng cảm ơn.
Quang