Nhờ trợ giúp rút gọn và chỉnh sửa code (1 người xem)

[matran25251325]

Như ví dụ trong file mình có thu lại code nhưng chưa bít nên rút gọn thế nào cho đúng. Mục đích là tìm ra giá trị ô G2 bằng với giá trị D13. Trong file thì chỉ dùng đến 4 lần copy và past để tìm ra giá trị đó, nhưng có nhiều trường hợp sẽ cần nhiều vòng lặp copy past hơn để tìm ra giá trị G2. Mong mọi người giúp đỡ.

 

[huuthang_bd]

Như ví dụ trong file mình có thu lại code nhưng chưa bít nên rút gọn thế nào cho đúng. Mục đích là tìm ra giá trị ô G2 bằng với giá trị D13. Trong file thì chỉ dùng đến 4 lần copy và past để tìm ra giá trị đó, nhưng có nhiều trường hợp sẽ cần nhiều vòng lặp copy past hơn để tìm ra giá trị G2. Mong mọi người giúp đỡ.

Bạn nhờ sửa thì tôi sửa. Chạy cho đến khi nào thỏa điều kiện (không chịu trách nhiệm nếu Excel của bạn bị treo do chạy hoài mà không thỏa điều kiện nhé

Sub GPE()
[G2].ClearContents
Do Until [G2].Value = [D13].Value
    [G2].Value = [D13].Value
Loop
End Sub

P/S: Tôi vẫn khuyên bạn dùng các công cụ có sẵn của Excel.

 

[matran25251325]

Cảm ơn bác Hữu Thắng. Trong excel vẫn có chức năng Iteration, nhưng nếu mở 1 file nào khác cùng lúc với file ko kích hoạt chức năng iteration thì file sẽ báo lỗi vòng lặp.

 

[huuthang_bd]

Cảm ơn bác Hữu Thắng. Trong excel vẫn có chức năng Iteration, nhưng nếu mở 1 file nào khác cùng lúc với file ko kích hoạt chức năng iteration thì file sẽ báo lỗi vòng lặp.

Tôi đâu có nói cái đó. Tôi đang nói đến chức năng Goal Seek
Nếu làm bằng tay thì như sau:
Tại ô G3 (ô nào cũng được) gõ công thức sau:

=G2-D13

Gọi chức năng Goal Seek (ở Excel 2007 là Data | What-If Analysis | Goal Seek)
Set cell: Chọn G3 (ô đã nhập công thức)
To value: 0
By changing cell: Chọn G2
Chuyển thành Code:

Sub Goal_Seek()
    [G2].ClearContents
    [G2].Value = [D13].Value
    [G3].FormulaR1C1 = "=R2C7-R13C4"
    [G3].GoalSeek Goal:=0, ChangingCell:=[G2]
    [G3].ClearContents
End Sub

 

[matran25251325]

cảm ơn bác huuthang. Hàm goalseek này đôi lúc em cũng có dùng. Giữa 2 phương án này thì có lẽ dùng goalseek cho giá trị tìm chính xác hơn