Viết hộ thêm vòng lặp của 1 Record Macro (1 người xem)

[phamhuucuong.hd]

Mình đã ghi 1 Record Macro cho 1 câu lệnh nhưng ko làm thế nào để cho nó chạy hết (N8:N17) ở sheet."Đoạn chuyển tiếp"

Mong các bạn chỉ dùm.

 

[huuthang_bd]

Mình đã ghi 1 Record Macro cho 1 câu lệnh nhưng ko làm thế nào để cho nó chạy hết (N8:N17) ở sheet."Đoạn chuyển tiếp"

Mong các bạn chỉ dùm.

Bạn copy code này vào.

Sub Goaseck()
For i = 8 To 17
    Range("N" & i).GoalSeek Goal:=1.6, ChangingCell:=Range("D" & i)
Next
End Sub

 

[kyo]

Mình đã ghi 1 Record Macro cho 1 câu lệnh nhưng ko làm thế nào để cho nó chạy hết (N8:N17) ở sheet."Đoạn chuyển tiếp"

Mong các bạn chỉ dùm.

Dim i As Long
    For i = 8 To 17
        Range("N" & i).GoalSeek Goal:=1.6, ChangingCell:=Range("D" & i)
    Next i

Bạn dùng vòng lặp, tại vì record macro không thể record vòng lặp được. Không biết có đúng ý của bạn không vì kyo không rành về cái GoalSeek này nên chỉ dựa vào code của bạn mà thêm vòng lặp thôi.

Thân,
kyo.

 

[phamhuucuong.hd]

Sub Goaseck()
Dim i As Long
For i = 8 To 17 Step 1    
Range("N" & i).GoalSeek Goal:=1.6, ChangingCell:=Range("D" & i)    
Next i
End Sub

cho em hỏi là sai gì ah!!!